excel快速合并多行单元格分别按列合并

更新时间2021-11-17 11:32:49

求助大神：选中单元格，通过点击按钮，对选中单元格进行纵向合并。
初始情况如下：



想要达到的效果如下：选中实线单元格后，通过代码对任意选中单元格进行纵向合并。

代码如下：

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了。

相关标签:excel