Excel宏列合并问题：忽略空行动态识别有效数据范围

原代码存在的问题 #

• 仅从第2行开始查找列9的第一个空行，若有效数据起始行大于2（比如第6/8行）或中间存在空行，会错误截断数据范围，导致部分有效数据未处理
• 未考虑unit列（H列）或number列（I列）其中一列数据缺失的场景，合并逻辑不够健壮

优化后的代码 #

Sub MergeUnitAndNumber()
    Dim ws_Export As Worksheet
    Dim lastRow As Long, currentRow As Long
    Dim colUnit As Integer, colNumber As Integer
    
    ' 替换为你实际操作的工作表名称
    Set ws_Export = ThisWorkbook.Worksheets("Export")
    colUnit = 8 ' 对应Unit所在的H列
    colNumber = 9 ' 对应Number所在的I列
    
    ' 动态获取两列的最后非空行，取最大值确保覆盖所有有效数据
    lastRow = Application.Max( _
        ws_Export.Cells(ws_Export.Rows.Count, colUnit).End(xlUp).Row, _
        ws_Export.Cells(ws_Export.Rows.Count, colNumber).End(xlUp).Row _
    )
    
    ' 遍历所有可能存在有效数据的行
    For currentRow = 2 To lastRow
        ' 跳过两列都为空的行
        If IsEmpty(ws_Export.Cells(currentRow, colUnit)) And IsEmpty(ws_Export.Cells(currentRow, colNumber)) Then
            GoTo NextRow
        End If
        
        ' 合并逻辑：处理其中一列缺失的情况，避免多余空格
        If IsEmpty(ws_Export.Cells(currentRow, colNumber)) Then
            ws_Export.Cells(currentRow, colNumber).Value = ws_Export.Cells(currentRow, colUnit).Value
        ElseIf Not IsEmpty(ws_Export.Cells(currentRow, colUnit)) Then
            ws_Export.Cells(currentRow, colNumber).Value = ws_Export.Cells(currentRow, colNumber).Value & " " & ws_Export.Cells(currentRow, colUnit).Value
        End If
        
NextRow:
    Next currentRow
End Sub

关键优化说明 #

• 动态识别有效范围：通过Cells(Rows.Count, 列号).End(xlUp).Row分别获取两列的最后非空行，取最大值作为遍历终点，无论数据起始行在哪、中间是否有空行，都能覆盖所有有效数据
• 自动跳过空行：判断当前行两列是否都为空，直接跳过无数据的行
• 兼容数据缺失场景：针对number列空、unit列空的不同情况做了处理，避免合并后出现多余空格或错误覆盖
• 明确工作表对象：直接指定操作的工作表，避免依赖ActiveSheet引发的误操作

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