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