前面的两篇文章取消合并单元格,到底步骤还是多一些。
今天分享一段代码,一键就可以取消,一键就可以合并。
接下来,先看ForSheet表演。
是不是很方便?
当然,还可以指定列来进行合并,想合就合,想分就分,就是这么的任性。
以后只需要将你的合并列复制到该文件中,不管后面有几十行几百行几万行。
那还不是几秒钟的事。
会点VBA就是不一样,没有的功能自己可以写点代码。
其中这里用了两种代码。
以下代码我觉得更方便些
思路是这样的,从最后一行向上做循环,如果发现当前行与上一行的内容相同,则合并
就是这么简单。
Private Sub CommandButton2_Click()
Dim i As Long
Dim rs As Long
Application.DisplayAlerts = False
With ActiveSheet
rs = .Range("a1").End(xlDown).Row
For i = rs To 2 Step -1
If .Cells(i, 1) = .Cells(i - 1, 1) Then
.Range(Cells(i, 1), Cells(i - 1, 1)).Merge
End If
Next
End With
Application.DisplayAlerts = True
End Sub
当你打开此类文件时,因为有宏代码,需要点击以下按钮,启用宏。
会一点VBA真的是不一样,有想法就可以去实现。
子曰:用之则行,不用则藏。
意思是说,如果你用我的这些建议,就马上行动,知行合一,如果你不用,就赶紧收藏,以绝后患。
领取专属 10元无门槛券
私享最新 技术干货