1、实例【请将A例班级相同的单元格进行合并?】
2、在工作表中,点击菜单栏【开发工具】,在其工具栏内,点击【visual basic】!
3、会进入VBA编辑界面!点击菜单栏【插入】,在其下拉菜单中,选择【模块】!
4、会弹出模块编辑窗口!
5、在代码编辑窗口输入以下代码:Sub 合并单元格()Dim i As Integer巳呀屋饔, j%, rng As RangeApplication.DisplayAlerts = Falsei = Cells(Rows.Count, 1).End(xlUp).RowFor j = i To 3 Step -1 Set rng = Range("a" & j) If rng = rng.Offset(-1) Then rng.Offset(-1).Resize(2).Merge End IfNextApplication.DisplayAlerts = TrueEnd Sub
6、在工作表的【开发工具】菜单下,点击【插入】按钮,插入一【表单】按钮,并与指定编写的左佯抵盗合并单元格代码关联,且进入命名为【合并单元格】!
7、点击【合并单元格】按钮!我们会看到A栏相同班级被瞬间合并!