还记得前面有一节,专为一个群友写的: 不会VBA之前,我还得给做个辅助列,然后通过透视表的方式实现,可是当我们学习了VBA之后,问题竟是如此简单了。 代码如下: Sub 合并相同的单元格() Dim i% Application.DisplayAlerts = False For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 If Cells(i, 1).Value = Cells(i - 1, 1).Value Then Cells(i - 1, 1).Resize(2, 1).Merge With Cells(i - 1, 1) .VerticalAlignment = xlCenter .HorizontalAlignment = xlCenter End With End If Next Application.DisplayAlerts = True End Sub 合并单元格的写法: range(合并区域).merge 想合并哪一列只需简单修改参数即可。代码部分就不多做解释了,想学西的同学来我的视频教程里学习,只有真正的掌握,才会体会到VBA给大家带来的方便之处。 |
|
来自: L罗乐 > 《VBA基础入门教程》