VBA宏筛选复制异常求助：筛选DE42后数据粘贴不全

咱们先拆解下你现有代码里的几个核心问题，这些问题正是导致表头被复制、数据只粘贴一半的原因：

• 中文引号：VBA只识别英文双引号，你代码里的“”全部要换成""
• 语法错误：SpecialCell是拼写失误，正确写法是SpecialCells；Range.(“F2”)多了个多余的点，应该改成Range("F2")
• 复制范围选错：你要复制的是L列筛选后的可见数据，而非AL列的单元格
• 未准确定位完整数据区域：只选单个单元格的可见范围会导致无法覆盖所有筛选后的数据

下面是完全适配你需求的修正代码，附带详细注释：

Sub DE42()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim sourceRange As Range
    
    ' 绑定目标工作表，避免ActiveSheet切换带来的意外错误
    Set ws = ActiveWorkbook.Sheets("Alerted Deduped")
    
    ' 清除之前的筛选状态（如果存在）
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 获取L列最后一行的行号，确保覆盖所有有效数据
    lastRow = ws.Cells(ws.Rows.Count, "L").End(xlUp).Row
    
    ' 对L列（第12列）执行筛选，匹配"DE42"
    ws.Range("L1:L" & lastRow).AutoFilter Field:=12, Criteria1:="DE42"
    
    ' 定义复制范围：L2到L最后一行的可见单元格（直接排除表头L1）
    On Error Resume Next ' 防止筛选后无数据导致的报错
    Set sourceRange = ws.Range("L2:L" & lastRow).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    ' 如果有符合条件的可见数据，就粘贴到AL列从AL2开始的位置
    If Not sourceRange Is Nothing Then
        sourceRange.Copy
        ws.Range("AL2").PasteSpecial xlPasteValues
        Application.CutCopyMode = False ' 清除剪贴板状态，避免Excel一直显示复制提示
    Else
        MsgBox "没有找到符合条件的DE42数据！"
    End If
    
    ' 可选：如果不需要保留筛选结果，可以取消下面的注释来清除筛选
    ' ws.AutoFilterMode = False
End Sub

关键改进点说明： #

• 稳定的工作表绑定：用ws变量直接指向目标工作表，比依赖当前激活工作表更可靠
• 完整数据范围：通过lastRow定位L列最后一行，彻底解决“只复制一半数据”的问题
• 主动排除表头：复制范围从L2开始，直接跳过L1的表头，避免表头被误复制
• 错误防护：加入错误处理逻辑，防止筛选后无数据时宏报错崩溃，还会弹出提示告知用户
• 清理剪贴板：执行完粘贴后清除剪贴板状态，让Excel恢复正常操作状态

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