Excel筛选Sheet1列数据并粘贴至Sheet2（值粘贴）问题排查

看起来你的VBA代码没写完，而且还有几个容易踩的坑导致没达到预期效果。我帮你梳理问题，再给你修正后的完整代码：

原代码可能存在的问题 #

• 用Function不合适：Excel的工作表函数（就是在单元格里调用的那种）默认不允许修改其他工作表的内容，这类操作更适合用Sub过程来实现
• 筛选后区域捕获逻辑缺失：你的代码里Set FiltRng的部分没写完，没法正确获取筛选后的可见数据
• 错误处理太粗糙：On Error Resume Next会掩盖所有错误，你根本不知道哪里出了问题
• 没明确处理值粘贴：直接复制粘贴可能会带格式或公式，不符合你要“值形式粘贴”的需求

修正后的完整代码 #

Option Explicit

Sub FilterAndCopyToSheet2(Choice As String)
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim sourceRng As Range
    Dim visibleRng As Range
    
    ' 绑定源表和目标表，避免硬编码名称出错
    Set wsSource = ThisWorkbook.Worksheets("Sheet1")
    Set wsTarget = ThisWorkbook.Worksheets("Sheet2")
    
    ' 清空目标表所有内容
    wsTarget.Cells.ClearContents
    
    ' 先取消源表之前的筛选（如果存在）
    If wsSource.AutoFilterMode Then
        wsSource.AutoFilterMode = False
    End If
    
    ' 定义完整的数据源范围：表头在第1行，数据从A列到第23列（W列），自动取最后一行
    Set sourceRng = wsSource.Range("A1:W" & wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row)
    
    ' 应用筛选：第23列（W列）匹配指定条件
    sourceRng.AutoFilter Field:=23, Criteria1:=Choice
    
    ' 捕获筛选后的可见区域（包含表头），临时屏蔽错误防止无数据时报错
    On Error Resume Next
    Set visibleRng = sourceRng.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0 ' 恢复正常错误处理
    
    If Not visibleRng Is Nothing Then
        ' 以值的形式粘贴到Sheet2的A1起始位置
        visibleRng.Copy
        wsTarget.Range("A1").PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False ' 清除剪贴板，避免弹窗提示
    Else
        MsgBox "未找到符合 [" & Choice & "] 条件的数据！"
    End If
    
    ' 最后取消源表的筛选，保持界面整洁
    wsSource.AutoFilterMode = False
End Sub

' 测试用的子过程，直接运行就能测试筛选功能
Sub TestFilter()
    ' 把这里的"测试条件"换成你实际要筛选的内容
    FilterAndCopyToSheet2 "测试条件"
End Sub

关键细节说明 #

• 用Sub替代Function：你可以直接运行TestFilter，或者给Excel按钮绑定FilterAndCopyToSheet2来触发操作
• 自动适配数据范围：代码会自动找到Sheet1中A列的最后一行数据，不用手动修改行号
• 确保包含表头：数据源范围从A1开始，所以筛选后的可见区域会包含表头
• 严格值粘贴：PasteSpecial xlPasteValues确保只粘贴单元格的值，不会带格式、公式或数据验证规则
• 错误防护：如果没有符合条件的数据，会弹出提示框，不会报错崩溃

使用注意事项 #

1. 确认你要筛选的是第23列（对应Excel里的W列），如果列不对，修改Field:=23的数字就行
2. 如果你的表头不在第1行，调整sourceRng的起始行（比如表头在第2行就改成A2:W...）
3. 运行TestFilter前记得把里面的筛选条件换成你实际需要的内容

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