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