-
vba字典合并单元格为空_用VBA在Excel中分解合并单元格的代码范例
2021-01-14 10:54:421用VBA在Excel中分解合并单元格的代码范例:Sub分解合并单元格并填充()Set已选择的区域=Selection首行=已选择的区域.Row行数=已选择的区域.Rows.CountIf首行+行数-1=65536Then行数=ActiveSheet.UsedRange.Row+...1
用
VBA
在
Excel
中分解合并单元格的代码范例:
Sub
分解合并单元格并填充
()
Set
已选择的区域
= Selection
首行
=
已选择的区域
.Row
行数
=
已选择的区域
.Rows.Count
If
首
行
+
行
数
-
1
=
65536
Then
行
数
=
ActiveSheet.UsedRange.Row
+
ActiveSheet.UsedRange.Rows.Count -
首行
+ 1
首列
=
已选择的区域
.Column
列数
=
已选择的区域
.Columns.Count
For
列
=
首列
To
首列
+
列数
- 1
Set
单元格
= Cells(
首行
,
列
)
行
=
首行
While
单元格
.Row <
首行
+
行数
If
单元格
.MergeCells Then
Set
合并区
=
单元格
.MergeArea
合并区
.UnMerge
If
合并区
.Rows.Count > 1 Then
合并区
.FillDown
行
=
行
+
合并区
.Rows.Count
Else
行
=
行
+ 1
End If
Set
单元格
= Cells(
行
,
列
)
Wend
Next
End Sub
Sub
合并相同的单元格
()
Dim Rng As Range, Dic As Object, Arr, N&
Set Dic = CreateObject("scripting.dictionary")
'
创建字典项目
For Each Rng In Range("b2:b" & Cells(Rows.Count, 2).End(3).Row)
'
循环
B
列要处理的数据区
If Rng <> "" Then
'
如果单元格不为空
,
则
If
Dic.exists(Rng.Value)
Then
'
如果已存在该单元格内容对应的字典项目
,
则将当前单元格与已存
在内容进行组合
Set Dic(Rng.Value) = Union(Dic(Rng.Value), Rng)
Else
'
否则进行添加
Set Dic(Rng.Value) = Rng
End If
End If
Next Rng
If Dic.Count > 0 Then
'
如果字典项目数大于
0,
则
Arr = Dic.keys
'
将字典的
key
赋值给数组
Application.DisplayAlerts
=
False
'
关闭警告信息
(
合并单元格时会弹出警告信息
,
通过此命令禁止弹出
该信息
)
-
datatable相同列合并_Excel 批量合并单元格,量大且需要合并的行数都不一样
2020-12-26 23:10:01我曾经写过用 VBA 实现的方法,只要点击一下按钮就能合并区域内的所有连续的相同单元格,详情可参见 Excel VBA(20) – 批量合并单元格。如果不想用 VBA,那么用菜单操作也能快速达成目的。下面来看下案例。案例:...快速合并大量单元格,而且每个需要合并区域的单元格数量不固定,难道要一个个手动操作吗?
我曾经写过用 VBA 实现的方法,只要点击一下按钮就能合并区域内的所有连续的相同单元格,详情可参见 Excel VBA(20) – 批量合并单元格。
如果不想用 VBA,那么用菜单操作也能快速达成目的。
下面来看下案例。
案例:
批量合并下图 1 中的“班级”,效果如下图 2 所示。
解决方案:
1. 选中需要合并的单元格区域 --> 按 F5 --> 在弹出的“定位”对话框中点击“定位条件”
2. 在弹出的对话框中选择“空值”--> 点击“确定”
3. 此时就已经选中了区域内的所有空单元格 --> 输入公式“=A2”--> 按 Ctrl+Enter 将公式应用到所有选中区域
现在表格样式如下,A 列中的所有空白单元格中都填充了班级名。
4. 选中数据表的任意区域 --> 选择菜单栏的“数据”-->“分类汇总”
5. 在弹出的“分类汇总”对话框中按以下方式进行设置 --> 点击“确定”
- 分类字段:选择“班级”
- 选定汇总项:勾选“班级”
- 其他所有复选框都不要选
结果如下,数据表左边多出来一列班级分类汇总列。
6. 选中 A 列中跟 B 列的班级名称相对应的区域 --> 按 F5 --> 在弹出的“定位”对话框中点击“定位条件”
7. 在弹出的“定位条件”对话框中选择“空值”--> 点击“确定”
8. 选择菜单栏的“开始”-->“合并后居中”
所有连续的空单元格就合并起来了。
9. 选中 A 列中跟 B 列的班级名称相对应的区域 --> 选择菜单栏的格式刷 --> 将格式复制到 B 列需要合并的区域
10. 选中数据表的任意区域 --> 选择菜单栏的“数据”-->“分类汇总”
11. 在弹出的对话框中点击“全部删除”按钮
分类汇总列的内容和格式就全都删除了,只留下一个空白列。
12. 将 A 列删除 --> 选中“班级”列的内容区域 --> 选择菜单栏的“开始”-->“所有框线”,就完成了最终设置。
很多同学会觉得 Excel 单个案例讲解有些碎片化,初学者未必能完全理解和掌握。不少同学都希望有一套完整的图文教学,从最基础的概念开始,一步步由简入繁、从入门到精通,系统化地讲解 Excel 的各个知识点。
现在终于有了,以下专栏,从最基础的操作和概念讲起,用生动、有趣的案例带大家逐一掌握 Excel 的操作技巧、快捷键大全、函数公式、数据透视表、图表、打印技巧等……学完全本,你也能成为 Excel 高手。
-
第038篇:VBA之单元格基础、多表内容合并的初级实例
2020-05-21 18:13:01Excel 2016版里,每个工作簿的单元格行数:104 8576,列数:1 6384,单元格个数:104 8576 × 1 6384 = 171 7986 9181 一个单元格内字符容量是32767个字符,实际上,我们根本用不到这么大的容量。 VBA中单元格学习...单元格是Excel中最小的一个单位,几个概念的范围大小依次是:工作簿>工作表>行/列>单元格,单元格是我们操作得最多的一类对象。
Excel 2016版里,每个工作簿的单元格行数:104 8576,列数:1 6384,单元格个数:104 8576 × 1 6384 = 171 7986 9181
一个单元格内字符容量是32767个字符,实际上,我们根本用不到这么大的容量。
VBA中单元格学习的重要性:
(1)大部分的批量操作,都是在操作单元格;
(2)单元格的表示方法与操作、信息获取方式,是使用VBA编程的基础。
单元格操作实例之多表内容合并:
原材料:3张单表+1张汇总表
目标效果:
代码实现:
Sub 多表合并()
Dim i%, rs%, rss%, st As Worksheet, zdw As Worksheet
Set zdw= Sheets("整单位") '将汇总工作表"整单位"定义为变量zst
For i = 1 To 3
Set st = Sheets(i & "部门") '将1-3每部门的工作表定义为变量st
rs = st.UsedRange.Rows.Count '计算1-3部门每个表的最后一行
rss = zdw.UsedRange.Rows.Count + 1 '计算“整单位的最后一行的下一行”
st.Range("a2:b" & rs).Copy Cells(rss, 1) '复制每个1-3表的数据到总表中
Cells(rss, 3).Resize(rs - 1) = i & "部门" '将1-3表的工作表名写入到总表对应的记录行末尾
Next
End Sub -
数据合并设计_Excel 数据透视表还能这么玩,批量合并单元格
2021-01-14 13:55:55之前我曾经教过 VBA 和分类汇总的方法,详情请参阅Excel VBA(20) – 批量合并单元格Excel 批量合并单元格,量大且需要合并的行数都不一样今天要教大家另外一种方法,就是我们平时常用的数据透视表。万万没想到,数据...虽然我一直不建议合并单元格,但如果老板一定要求合并也没办法。如何批量合并单元格?之前我曾经教过 VBA 和分类汇总的方法,详情请参阅
- Excel VBA(20) – 批量合并单元格
- Excel 批量合并单元格,量大且需要合并的行数都不一样
今天要教大家另外一种方法,就是我们平时常用的数据透视表。万万没想到,数据透视表还能这么玩。
案例:
将下图 1 中的相同班级合并单元格,效果如下图 2 所示。
解决方案:
先在空单元格中填入相应的班级名。
1. 选中 A2:A10 区域 --> 按 F5 --> 在弹出的对话框中点击“定位条件”
2. 在弹出的对话框中选择“空值”--> 点击“确定”
3. 输入“=A2”--> 按 Ctrl+Enter 回车
4. 选中数据表的任意单元格 --> 选择菜单栏的“插入”-->“数据透视表”
5. 本例为了教学方便,我将数据透视表放置在现有工作表中 --> 点击“确定”
6. 在右侧的“数据透视表字段”区域,将所有字段顺序拖入“行”区域
7. 选中数据透视表的任意区域 --> 选择菜单栏的“设计”-->“总计”-->“对行和列禁用”
8. 选择“设计”-->“报表布局”-->“以表格形式显示”
此时班级的排序是默认按拼音字母顺序排的,我们需要调整为按班级顺序排列。
9. 选中 E2 单元格 --> 输入“一班”--> 回车
10. 选中数据透视表的任意区域 --> 右键单击 --> 在弹出的菜单中选择“数据透视表选项”
11. 在弹出的对话框中选择“布局和格式”选项卡 --> 勾选“合并且居中排列带标签的单元格”
12. 选择“显示”选项卡 --> 取消勾选“显示展开/折叠按钮”--> 点击“确定”
13. 选中整个数据透视表区域 --> 选择菜单栏的“所有框线”--> 调整字体和表格列宽
单元格就全部合并好了。
很多同学会觉得 Excel 单个案例讲解有些碎片化,初学者未必能完全理解和掌握。不少同学都希望有一套完整的图文教学,从最基础的概念开始,一步步由简入繁、从入门到精通,系统化地讲解 Excel 的各个知识点。
现在终于有了,以下专栏,从最基础的操作和概念讲起,用生动、有趣的案例带大家逐一掌握 Excel 的操作技巧、快捷键大全、函数公式、数据透视表、图表、打印技巧等……学完全本,你也能成为 Excel 高手。
-
vb6 word 2002 合并单元格_VBA实践+把大纲级别分明的word文档转换成横向从属结构excel表格...
2020-12-09 13:08:57VBA实践+把大纲级别分明的word文档转换成横向从属结构excel表格有一个比较规范的word文档,各级标题大纲级别分明,现在要按照各段落的大纲级别转换到excel中,表格是横向从属结构的,如最左侧的是一级大纲的内容,往... -
Excel 宏vba 自动合并单元列
2011-11-16 14:40:26需求: 根据列合并; 同一列中相邻内容一致的合并成一个单元格, 以变美观 分析: ...出现提示框, 让用户自己输入需要合并的列;... 将此列内容相同的相邻2列或几列, 合并单元格 难点: 合并单元... -
Excel VBA实用技巧大全 附书源码
2010-10-08 18:59:2404106判断某单元格是否为合并单元格区域的一部分 04107获取单元格区域内的值,并使其矩阵化 04108获取单元格内的前缀字符 04109判断单元格内的数字是否为文本字符 04110获取单元格的格式 04111获取单元格的字体... -
Excel: 根据颜色数格子
2021-02-24 20:58:50根据需要复制下列代码进模组(2选1)3.1 把合并单元格按行数来数3.2 把合并单元格当成1个整体继续4. 使用方法4.1 计算当天单个类别时长4.2 计算当天多个类别时长4.3 计算多天多个类别时长4.4 统计多天多类别总时长 ... -
Excel 多个工作表或工作簿一键轻松合并
2019-01-03 00:48:05VBA 宏小工具,能快速合并多个工作表或者工作簿的数据,合并支持拷贝数据格式,可指定是否复制表头,可指定复制的起始行,也可显示数据来源那个表格或工作簿,基本上没有复制行数的限制。要求待合并的工作表或... -
我整理的VBA 自定义函数大全 共138页
2008-11-21 16:14:03目录: 1.返回 Column 英文字 2.查询某一值第num次出现的值 ...157.查找合并单元格位置 158.阴阳历转换和阴阳历生日 159.利用数组和Substitute来替换某字符 160.一键创建斜线表头 161.自动获取指定月的工作日 -
excel中161个VBA_自定义函数超级实用
2018-03-28 08:36:32函数作用:获取最后一行行数.........................54 '27.函数作用:判断是否连接在线.........................54 '28.函数作用:币种转换.................................54 '29.函数作用:检验工作表是否有可... -
下面这段(合并excel表)代码运行中出现下标越界,为什么
2018-04-19 05:02:46'ExcelHome VBA编程学习与实践 Dim Trow&, k&, arr, brr, i&, j&, book&, a& Dim p$, f$, Rng As Range With Application.FileDialog(msoFileDialogFolderPicker) '取得用户选择的文件夹路径 .... -
Excel百宝箱9.0无限制破解版
2012-02-03 19:05:29【让合并单元格合理分页】:如果合并单元格已跨页,打印时会造成合并区域的值仅显示在一页中,另一页空白;或者两页各显示一部分,本工具用于调整合并单元格,使其字符同时显示在两页中 【增强版跨越合并】:对选区... -
Excel百宝箱
2012-10-27 17:09:21【让合并单元格合理分页】:如果合并单元格已跨页,打印时会造成合并区域的值仅显示在一页中,另一页空白;或者两页各显示一部分,本工具用于调整合并单元格,使其字符同时显示在两页中 【增强版跨越合并】:对选区... -
Excel百宝箱9.0无限制破解版.rar
2012-09-05 09:31:51【让合并单元格合理分页】:如果合并单元格已跨页,打印时会造成合并区域的值仅显示在一页中,另一页空白;或者两页各显示一部分,本工具用于调整合并单元格,使其字符同时显示在两页中 【增强版跨越合并】:对选区... -
Exce百宝箱——2012版本.rar
2012-10-19 19:52:33【让合并单元格合理分页】:如果合并单元格已跨页,打印时会造成合并区域的值仅显示在一页中,另一页空白;或者两页各显示一部分,本工具用于调整合并单元格,使其字符同时显示在两页中 【增强版跨越合并】:对选区... -
excel 工具箱
2012-01-22 15:04:34【合并区域自动换行】:可以让具有合并单元格的区域在自动换行与不换行之间自由切换 【建立图片目录】:对指定文件夹下所有图片(GIF、PNG、JPG,JPEG)建立目录,并批量导入 【批量导入图片(精确匹配)】:瞬间导入... -
Excel百宝箱8.0
2011-06-07 21:32:17【合并区域自动换行】:可以让具有合并单元格的区域在自动换行与不换行之间自由切换 【建立图片目录】:对指定文件夹下所有图片(GIF、PNG、JPG,JPEG)建立目录,并批量导入 【批量导入图片(精确匹配)】:瞬间导入... -
EXCEL百宝箱8.0终极版
2011-11-05 16:48:02【合并区域自动换行】:可以让具有合并单元格的区域在自动换行与不换行之间自由切换 【建立图片目录】:对指定文件夹下所有图片(GIF、PNG、JPG,JPEG)建立目录,并批量导入 【批量导入图片(精确匹配)】:瞬间导入... -
Excel百宝箱 9.0 破解版 批量导入图片等200种功能
2013-05-11 22:46:24【取消合并还原合并数据】对一列中合并后的单元格取消合并,且恢复合并前所有数据 【合并数据并复制】可以将一个区域的数据直接复制到一个单元格中 【建立图片目录】对指定文件夹下所有图片(GIF、PNG、JPG、JPEG四... -
excel的使用
2012-11-25 17:06:012、单元格内容的合并根据需要,有时想把B列与C列的内容进行合并,如果行数较少,可以直接用“剪切”和“粘贴”来完成操作,但如果有几万行,就不能这样办了。解决办法是:在C行后插入一个空列(如果D列没有内容,就... -
EXCEL集成工具箱完整版 (简体/繁体/英文多国语言版) V7.0
2010-08-13 10:31:10Excel集成工具箱7.0是利用VBA(Visual Basic for Applications)语言编写的增强应用型插件。包括160个菜单功能和100个左右自定义函数,集160个工具于一身,但体积小于15MB。当安装集成工具箱后,如果您使用Excel ... -
EXCEL集成工具箱V6.0
2010-09-11 01:44:37Excel集成工具箱6.0是利用VBA(Visual Basic for Applications)语言编写的增强应用型插件。包括160个菜单功能和100个左右 自定义函数,集160个工具于一身,但体积小于15MB。当安装集成工具箱后,如果您使用Excel ... -
EXCEL集成工具箱V8.0完整增强版(精简)
2010-09-23 16:58:17【插入行数】 对工作表隔行插入行并可以复制标题行,其中对相隔行数、插入行数等可以自定义。 【注解样式】 可以插入多达50种样式的注解,支持随时切换当前注解样式为指定的样式。 【工作表拆分】 将当前工作表的... -
EXCEL集成工具箱V8.0 多国语言版(2003-2010通用)
2010-09-11 12:08:58【插入行数】 对工作表隔行插入行并可以复制标题行,其中对相隔行数、插入行数等可以自定义。 【注解样式】 可以插入多达50种样式的注解,支持随时切换当前注解样式为指定的样式。 【工作表拆分】 将当前工作表的... -
EXCEL集成工具箱V9.0 多国语言最终原版(2003-2010通用)
2011-01-07 20:40:25【插入行数】 对工作表隔行插入行并可以复制标题行,其中对相隔行数、插入行数等可以自定义。 【注解样式】 可以插入多达50种样式的注解,支持随时切换当前注解样式为指定的样式。 【工作表拆分】 将当前工作表的... -
EXCEL集成工具箱 2014 V21.0 官方版
2014-03-27 22:58:51║ 【条件背景选择】 【插入行数】 【监控单元格修改】 【筛选复制可见】 【关闭所有动画】 ║ ║ 【高级背景】 【注解样式】 【可视化批注】 【选中相同值】 【媒体播放器】 ║ ║ 【高级背景选择】 【工作表拆分】... -
Excel工具箱教学指导
2014-03-27 23:07:35║ 【条件背景选择】 【插入行数】 【监控单元格修改】 【筛选复制可见】 【关闭所有动画】 ║ ║ 【高级背景】 【注解样式】 【可视化批注】 【选中相同值】 【媒体播放器】 ║ ║ 【高级背景选择】 【工作表拆分】... -
EXCEL集成工具箱2012_V13.0
2012-08-12 12:53:19║ 【条件背景选择】 【插入行数】 【监控单元格修改】 【筛选复制可见】 【关闭所有动画】 ║ ║ 【高级背景】 【注解样式】 【可视化批注】 【选中相同值】 【媒体播放器】 ║ ║ 【高级背景选择】 【工作表拆分】... -
excel百宝箱 正版
2013-04-04 23:39:28║ 【条件背景选择】 【插入行数】 【监控单元格修改】 【筛选复制可见】 【关闭所有动画】 ║ ║ 【高级背景】 【注解样式】 【可视化批注】 【选中相同值】 【媒体播放器】 ║ ║ 【高级背景选择】 【工作表拆分】...