咨询Excel VBA合并最后一列单元格的实现方法

你已经完成的两个前置参数定位逻辑（最后一列列号、A列有效常量行数）可以直接复用，无需重复调整，直接基于这两个参数构建目标区域即可完成合并操作。

核心实现代码 #

' 复用你已经编写的参数获取逻辑
lastColumn = Worksheets("sheet1").Cells(1, Columns.Count).End(xlToLeft).Column
nbrows = Worksheets("sheet1").Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count

' 执行合并操作
With Worksheets("sheet1")
    ' 跳过已存在合并的单元格，避免触发VBA报错
    If Not .Cells(1, lastColumn).MergeCells Then
        ' 锁定目标范围：lastColumn列下，从第1行到与A列有效行对齐的最后一行
        .Range(.Cells(1, lastColumn), .Cells(nbrows, lastColumn)).Merge
        ' 可选配置：设置合并单元格居中对齐，优化显示效果
        With .Cells(1, lastColumn)
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
        End With
    End If
End With

常见适配调整说明 #

• 如果表格第1行是固定表头，实际需要合并的区域从第2行开始，直接把合并范围的起始行从1改成2，对应调整为.Range(.Cells(2, lastColumn), .Cells(nbrows, lastColumn))即可，不需要修改其他逻辑
• 当前通过SpecialCells(xlCellTypeConstants)统计得到的nbrows是A列常量单元格的总个数，不是实际的最后一行行号——如果A列存在空行，直接把计数结果当行号用，会导致合并范围错位。碰到错位问题时，可以把nbrows的获取逻辑替换为直接定位A列最后非空单元格的行号：nbrows = Worksheets("sheet1").Cells(Rows.Count, "A").End(xlUp).Row，这种方式定位的行范围不会因为空行出现偏差
• Excel原生的合并规则为：合并完成后仅保留合并区域左上角单元格的内容，其余被覆盖的单元格内容会被自动清除。如果目标合并区域内存在多个非空内容，需要提前把所有内容汇总到左上角单元格后再执行合并，避免数据丢失

内容的提问来源于stack exchange，提问作者zakaryae lahboube