满意回答
2021/11/14 21:26
代码如下：Submymerge()DimrgAsRangeDimiAsIntegerSetrg=Selectionrow1=rg.Rows.Countcols=rg.Columns.CountFori=1Tocolsrg.Range(Cells(1,i),Cells(row1,i)).MergeNextEndSub效果如下：
评论(0)
加载中...
匿名
其他回答(1)
-
其他都是空白单元格，通常操作方法是选择左边一列的单元格，合并，然后右拉这个合并单元格至所需的列即可。这个方法操作非常简单。在Excel中，能操作的，不用函数；能用函数的，不用VBA。这是不成文的规定。如果为了学习VBA，你的要求还可以，若是实际应用就大可不必了。若想得到你要的VBA代码，你按照上述的操作方法来录制宏，然后稍加修改就OK了。回答于 2021/11/14 21:46
0人关注该问题