Range的Merge方法合并单元格

单元格对象的Merge方法可以用来合并相邻的单元格区域，使之成为一个更大的矩形单元格区域。其语法为

Range.Merge

当需要取消合并单元格时，则使用UnMerge方法。
可以使用循环结构，不断判断是否与之前的部门相同，若相同，则利用Union方法将其添加至所需合并的单元格区域的并集中来。若不相同，则先用Merge将之前的单元格进行合并，然后重新获取当前的部门信息。

VBA运行时关闭警告

当对单元格区域进行合并操作时，Excel 一般会出现如图所示的警告。在VBA运行过程中，由于需要对多个区域进行合并，该警告的出现将会变得非常恼人。

因而，当VBA代码可能导致出现一些警告信息时，开发者应先关闭警告信息。在VBA中，可以使用Excel程序对象(Application)的DisplayAlerts属性来关闭或开启警告信息，其值可为True或者False，分别表示开启或关闭警告信息。
一般，该关闭警告信息的语句放置于程序的开始，而在程序运行结束后，需要将警告信息再一次开启，否则用户将在正常操作时收不到任何警告信息而造成一些不必要的问题。

多行中相同的内容处理

当数据按照某列排序完成后，可以以该列为关键字对相同的信息进行批量处理，比如合并、分类求和、插入汇总行等。通常采用本例所示的循环结构，如图所示多行处理流程图。

示例：

当制作某些报表时，需要将一些内容相同的单元格进行合并。如图所示，该表为各部门的工资信息，现已经将数据按照部门进行排序。能否利用VBA将A列中部门相同的单元格进行批量合并？

部门	员工编号	姓名	基本工资
财务部	0006	程建华	2875
财务部	0009	李国敏	3050
财务部	0016	袁志刚	3523
人事部	0125	杨建军	2700
人事部	0209	曲波	3215
管理部	0017	周汉林	2890
管理部	0018	骈永富	2850
管理部	0020	孙玉梅	2580
管理部	0023	陈亚菁	3460
管理部	0072	刘志峰	1850
管理部	0080	刘玉录	1385
管理部	0114	俞卫广	6700
市场部	0215	林革壮	1565
市场部	0233	李卫卿	6213
市场部	0247	申玲	1230
市场部	0260	孙正发	1950
销售部	0265	毛传阳	3500
销售部	0288	张元端	2465
销售部	0293	朱凌波	3420
销售部	0314	张宏	2310
销售部	0371	郭建	1571
销售部	0374	高波	6200
总经办	0377	卢卫	3200
总经办	0391	赵秀池	2450

Option ExplicitSub 合并相同的单元格()Dim strDep As StringDim RowN As IntegerDim Rng As RangestrDep = Cells(2, 1).ValueSet Rng = Cells(2, 1)'关闭警告提示Application.DisplayAlerts = FalseFor RowN = 2 To 26If strDep = Cells(RowN, 1).Value ThenSet Rng = Union(Rng, Cells(RowN, 1))ElseRng.MergestrDep = Cells(RowN, 1).ValueSet Rng = Cells(RowN, 1)End IfNextApplication.DisplayAlerts = TrueEnd Sub

Excel 2010 VBA 入门 033 批量合并相同的单元格相关推荐

Excel 2010 VBA 入门 040 批量删除空行
目录示例: 实现代码1: 单元格删除Delete方法单元格删除的通用算法实现代码2 利用Union获取整个单元格区域进行统一操作 Union方法的注意事项单元格插入Insert方法示例: 如 ...
Excel 2010 VBA 入门 031 批量生成上标
目录 Characters对象 Font对象的Superscript属性设置Characters对象Font的注意事项 Characters属性的通用性示例 Characters对象 Charac ...
Excel 2010 VBA 入门 048 批量替换文本中的指定字符(replayce函数和方法)
目录示例: 实现代码 Replace函数单元格对象的Replace方法使用Replace方法实现代码示例: 如图所示,该表为某公司商品编码.由于商品目录升级,现商品编码中以"GXGY ...
Excel 2010 VBA 入门 034 创建图片批注
目录批注(Comment)对象批注的添加与删除 FiIIFormat对象 OnError语句示例: 批注(Comment)对象 Comment对象是单元格的一个属性,表示单元格的批注.Comme ...
Excel之VBA实现一键批量合并某列相同单元格
Sub 批量合并居中相同单元格() Dim l%, i% Application.DisplayAlerts = False k% = InputBox("请输入合并单元格所在列" ...
【知识兔】Excel教程：批量合并相同内容单元格神技
大家好,今天知识兔跟大家分享一下关于批量合并相同内容单元格的方法有哪些,这是一位同学在群里求助的案例,当时群内针对这个问题各位小伙伴们抛出了多种解决方法,索性知识兔小编就整理成专题文章来跟大家分享一下 ...
Excel：VBA数据分析-找到含某个关键字的单元格就标黄（五）
Excel:VBA数据分析-找到含某个关键字的单元格就标黄(五) 是的,还是之前的测试表,i( •̀ ω •́ )✧.新加了一列关键字列. 这次要写的逻辑如标题所示,找到含有某个指定关键字的单元 ...
Excel 2010 VBA 入门 103 利用VBA批量插入图片
目录示例代码: Shapes.Shape和 ShapeRange Shapes对象插入图形的方法 Excel的坐标图形大小的调整获取图片的原始大小将图片按比例缩放至单元格图片批量插入的步骤 ...
Excel 2010 VBA 入门 095 数据处理之用数组实现分列
示例如图所示,该表为某系统中导出的数据.由于该数据将原本的四列信息合并至一个单元格中,现希望利用数组对该数据进行分列,将其分为四列. 关键词;关注指数;升降幅度;升降位次小胸钢托聚拢游泳衣;12; ...

Excel 2010 VBA 入门 033 批量合并相同的单元格

Range的Merge方法合并单元格

VBA运行时关闭警告

多行中相同的内容处理

示例：

Excel 2010 VBA 入门 033 批量合并相同的单元格相关推荐

最新文章

热门文章