excel - 合并单元格vba excel

Question

请我的朋友，我想合并最后一列中的单元格

我用这段代码找到了最后一列

lastColumn = Worksheets("sheet1").Cells(1, Columns.Count).End(xlToLeft).Column

这可以找到行数

nbrows = Worksheets("sheet1").Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count

标签： excelvbamergecellrows

Answer 1

我找到解决方案

Worksheets("sheet1").Activate
Range(Cells(1, lastColumn), Cells(nbrows, lastColumn)).MergeCells = True