在excel VBA中将值粘贴到筛选表中。

Sub PasteValuesToFilteredTable()
    Dim ws As Worksheet
    Dim rngPaste As Range
    
    ' 设置目标工作表
    Set ws = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 设置要粘贴的区域范围
    Set rngPaste = ws.Range("A1")
    
    ' 确保筛选表处于可见状态
    ws.AutoFilterMode = False
    ws.Range("A1").AutoFilter
    
    ' 将值粘贴到筛选表中
    rngPaste.PasteSpecial xlPasteValues
    
    ' 清除剪贴板中的内容
    Application.CutCopyMode = False
    
    ' 关闭筛选
    ws.AutoFilterMode = False
End Sub