在VBA中如何编写合并单元格之代码

1、实例【请将A例班级相同的单元格进行合并？】

3、会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！

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

7、点击【合并单元格】按钮！我们会看到A栏相同班级被瞬间合并！