Excel单元格合并宏命令

2019独角兽企业重金招聘Python工程师标准>>>

Application.Goto Reference:="Macro1"
        Application.DisplayAlerts = False
#从第6行开始 到 242行结束
        For j = 6 To 242 Step 1 
#合并单元格每二个合并 2 和 3单元格合并 B6和C6本例为
            For i = 3 To 42 Step 2 
#判断单元格内容是否相等，若相等则合并
                If Cells(j, i - 1) = Cells(j, i) Then
                    Range(Cells(j, i - 1), Cells(j, i)).Merge
                End If
            Next
        Next
        Application.DisplayAlerts = True

 

转载于:https://my.oschina.net/lovederh/blog/829486