Excel单行列数据场景下VBA合并代码失效问题咨询

核心问题分析 #

当源表仅1行数据时，LastRow5 - LastRow4 > 1的判断结果为False，直接跳过了AutoFill相关逻辑，但这1行数据的复制/填充逻辑其实仍需执行，这就是失效的根本原因。

具体排查与修复步骤 #

• 校验行号变量的准确性：检查LastRow4（目标表"All"的最后数据行）和LastRow5（当前源表的最后数据行）的赋值逻辑，确保用Cells(Rows.Count, "A").End(xlUp).Row这类可靠方式获取行号，避免因空行、隐藏行导致行号计算偏差。
• 调整AutoFill的判断分支：
  • 如果AutoFill是用于填充公式或格式，1行数据无需执行填充操作，直接复制该行即可。修改判断逻辑如下：

    If LastRow5 >= 1 Then ' 只要源表存在有效数据
        ' 先将源表数据复制到目标表的下一行
        Sheets(当前源表名).Range("A1:X" & LastRow5).Copy Destination:=Sheets("All").Range("A" & LastRow4 + 1)
        ' 仅当源表数据≥2行时，再执行原AutoFill逻辑
        If LastRow5 > 1 Then
            ' 原AutoFill代码块
        End If
    End If
    

  • 如果AutoFill是用于扩展目标表的公式，1行数据的场景下，直接复制目标表上一行的公式到新行即可，无需调用AutoFill方法。
• 单场景调试验证：单独用仅含1行数据的源表做测试，按F8步进调试VBA代码，观察LastRow4和LastRow5的实际数值，确认判断分支的执行是否符合预期。

额外优化建议 #

• 不要硬编码列范围（比如固定到X列），改成动态获取源表的最后列号，适配不同业务表的结构差异。
• 合并前增加表头校验逻辑，确保源表与目标表的列结构一致，避免数据错位。

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