excel快速合并多行单元格分别按列合并
求助大神:选中单元格,通过点击按钮,对选中单元格进行纵向合并。初始情况如下:想要达到的效果如下:选中实线单元格后,通过代码对任意选中单元格进行纵向合并。
代码如下:
Sub mymerge()
Dim rg As Range
Dim i As Integer
Set rg = Selection
row1 = rg.Rows.Count
cols = rg.Columns.Count
For i = 1 To cols
rg.Range(Cells(1, i), Cells(row1, i)).Merge
Next
End Sub
效果如下:
都是空白单元格,通常操作方法是选择左边一列的单元格,合并,然后右拉这个合并单元格至所需的列即可。
这个方法操作非常简单。
在excel中,能操作的,不用函数;能用函数的,不用VBA。这是不成文的规定。
如果为了学习VBA,你的要求还可以,若是实际应用就大可不必了。
若想得到你要的VBA代码,你按照上述的操作方法来录制宏,然后稍加修改就OK了。
热门标签: