Excel VBA复制筛选后空表误复制表头及代码报错问题求解

• 修改版代码报错的两个直接原因：
  • 工作表名称误加空格：初始代码引用的是Sheet1/Sheet2，修改版写成了Sheet 1/Sheet 2，和实际工作表名不匹配时会触发下标越界错误。
  • 最后一行查找语法错误：Cells()方法的第二个参数仅接受单个列的列标/列号，不支持"A2:A"这种多单元格范围写法，属于语法错误。
• 原代码空数据时复制表头的核心逻辑问题：当A列2行以下无数据时，End(xlUp)从A列最底部向上查找到的最后一行是表头所在的第1行，此时定义的复制范围A2:H1是无效范围，VBA会自动将其修正为A1:H2，最终把表头复制到目标表。

在执行复制操作前增加边界判断：如果统计到的最后数据行小于2（即表头下无有效数据），直接终止过程，不执行复制即可，不需要修改最后一行的查找列参数。

修复后的完整代码：

Sub Macro36()

Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Dim lCopyLastRow As Long
Dim lDestLastRow As Long

    '绑定复制源、目标工作表，注意工作表名要和实际完全一致
    Set wsCopy = Worksheets("Sheet1")
    Set wsDest = Worksheets("Sheet2")
    
    '统计A列最后一行行号
    lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "A").End(xlUp).Row
    
    '无有效数据时直接退出过程，避免复制表头
    If lCopyLastRow < 2 Then Exit Sub
    
    '统计目标表B列的第一个空行
    lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "B").End(xlUp).Offset(1).Row
    
    '复制数据到目标位置
    wsCopy.Range("A2:H" & lCopyLastRow).Copy wsDest.Range("B" & lDestLastRow)

End Sub

• 如果实际工作表名确实带空格（比如Sheet 1），只需要把代码里的工作表名字符串改成和实际名称完全一致即可。
• 如果需要适配筛选场景、仅复制可见行数据，只需把复制行代码替换为以下写法：

wsCopy.Range("A2:H" & lCopyLastRow).SpecialCells(xlCellTypeVisible).Copy wsDest.Range("B" & lDestLastRow)

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