Excel VBA宏合并多列单元格遇空白即停止的解决求助

问题原因 #

你当前代码中用Cells(Rows.Count, "J").End(xlUp).Row获取最后一行的方式，会定位到J列最后一个非空单元格的行号。如果J列中间存在空白单元格，或者J列末尾有空白行，后续的行就不会被纳入遍历范围，导致宏无法覆盖所有目标行。

解决方案 #

修改最后一行的获取逻辑，确保遍历范围覆盖你需要处理的所有行，不管J列是否有空白。以下是两种可行的修改方案：

方案1：基于工作表已使用区域确定遍历范围（推荐）

这种方式会自动识别工作表中所有有内容的行，避免遗漏且效率较高：

Sub MergeCells()
    Dim rng As Range
    Dim LastRow As Long
    
    ' 获取工作表已使用区域的最后一行
    LastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
    
    ' 遍历J3到最后一行的所有单元格，包括空白单元格
    For Each rng In Range("J3:J" & LastRow)
        ' 合并当前单元格及右侧5列的内容，空白单元格会被视为空字符串
        rng.Value = rng.Value & rng.Offset(0, 1).Value & rng.Offset(0, 2).Value & _
                    rng.Offset(0, 3).Value & rng.Offset(0, 4).Value & rng.Offset(0, 5).Value
    Next
End Sub

方案2：遍历J列所有物理行（适合需要处理全列的场景）

如果你需要处理J列的每一行（直到Excel最大行），可以直接指定最大行号，注意：这种方式会遍历大量空行，效率较低：

Sub MergeCells()
    Dim rng As Range
    Dim LastRow As Long
    
    ' 获取Excel工作表的最大行号（Excel 2007及以上为1048576）
    LastRow = Rows.Count
    
    For Each rng In Range("J3:J" & LastRow)
        rng.Value = rng.Value & rng.Offset(0, 1).Value & rng.Offset(0, 2).Value & _
                    rng.Offset(0, 3).Value & rng.Offset(0, 4).Value & rng.Offset(0, 5).Value
    Next
End Sub

额外说明 #

• 代码中直接将合并结果写回J列，会覆盖J列原有的内容，如果需要保留原数据，可以将结果写入其他列（比如修改为rng.Offset(0,6).Value = ...）。
• 空白单元格在合并时会被当作空字符串处理，不会中断合并逻辑。

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