Excel VBA实现A列空行合并C列删行 支持连续空行 运行报类型不匹配错误

报错根因 #

• 代码中未显式声明ws工作表对象，变量隐式为Variant类型，后续单元格操作易触发类型校验异常
• 循环遍历到第1行时，若A列为空，Offset(-1)会引用工作表边界外的无效区域，直接抛出类型不匹配错误
• 直接用.Cells(i,1) = ""判断空值时，若目标单元格包含公式错误值（如#N/A、#DIV/0!），与空字符串做等值比较会强制触发类型不匹配
• 单元格内容拼接时未做错误值兼容，带错误值的单元格参与字符串运算就会报错

修正后可运行代码 #

Sub Merge()
    Dim ws As Worksheet
    Dim i As Long
    Dim lastRow As Long
    Dim appendText As String
    
    Set ws = Worksheets("test") ' 可按需替换为实际工作表名称
    
    ' 获取A列实际有内容的最后一行行号，减少无效遍历
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从最后一行倒序遍历，规避删除行导致的行号偏移漏判问题
    ' 遍历起始行设为2，彻底避免第1行向上偏移越界的问题
    For i = lastRow To 2 Step -1
        ' 先检测A列单元格是否为错误值，避免等值比较报错
        If Not IsError(ws.Cells(i, "A")) Then
            ' 检测A列是否为空/仅含空格
            If Trim(ws.Cells(i, "A").Value) = "" Then
                ' 读取当前行C列内容，错误值直接转空字符串兼容
                appendText = ""
                If Not IsError(ws.Cells(i, "C")) Then appendText = ws.Cells(i, "C").Value
                
                ' 将内容追加到上一行C列，兼容上一行的错误值
                If Not IsError(ws.Cells(i - 1, "C")) Then
                    ws.Cells(i - 1, "C").Value = ws.Cells(i - 1, "C").Value & appendText
                Else
                    ws.Cells(i - 1, "C").Value = appendText
                End If
                
                ' 删除当前A列为空的整行
                ws.Rows(i).EntireRow.Delete
            End If
        End If
    Next i
End Sub

适配说明 #

• 完全兼容连续多行A列为空的场景：倒序遍历过程中，每遇到一个A列空行，就将其C列内容追加到紧邻上一行，最终所有连续空行的C列内容都会合并到同组中第一个A列非空行的C列单元格末尾
• 全流程对含错误值的单元格做兼容处理，从根源上消除类型不匹配报错
• 自动跳过表格末尾的全空行，无无效运算

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