Excel可以利用VBA实现快速、批量合并具有相同单元格的若干行。
软件版本:Office2007
方法如下:
1.如果上下单元格数值相同,就合并单元格:
2.Alt+F11,输入代码如下:
Sub m()
Application.DisplayAlerts = False '避免合并单元格时出现提示
For i = Range("A65536").End(3).Row To 2 Step -1 '从最后一行到倒数第二行循环
If Cells(i, "A") = Cells(i - 1, "A") Then '如果上下两个单元格值相同
Range("A" & i - 1 & ":A" & i).Merge '那么就合并这两个单元格
End If
Next i
Application.DisplayAlerts = True
End Sub
3.F5执行代码,结果如下: