基于自动过滤器将粘贴列从一张工作表复制到另一张工作表

Question

我正在尝试根据过滤器将数据从工作表复制到另一个工作表。

根据自动筛选条件为“P”的列 Q，我需要将列 T & U 从工作表 ORD_CS 复制到工作表 Namechk。

这是我的代码。 没有错误，但整个列都被复制了。

Sub Macro26()
'
'Match Personal Names
'

'
  
    Dim i As Long, LR As Long
    Dim sht, sht1 As Worksheet
    
    Set sht = ActiveWorkbook.Worksheets("ORD_CS")
    Set sht1 = ActiveWorkbook.Worksheets("Namechk")
        
    sht.Range("A7:AC7").AutoFilter Field:=17, Criteria1:="P"
    sht.Range("T7:U99999").Copy
    sht1.Range("A1").PasteSpecial
    Application.CutCopyMode = False
End Sub

Answer 1

试试这个：

sht.Range("T7:U99999").SpecialCells(xlCellTypeVisible).Copy sht1.Range("A1")

而不是

sht.Range("T7:U99999").Copy
sht1.Range("A1").PasteSpecial

Answer 2

Sub filter_paste()

Dim sht, sht1 As Worksheet

Set sht = ActiveWorkbook.Worksheets("ORD_CS")
Set sht1 = ActiveWorkbook.Worksheets("Namechk")

sht.Range("A:AC").AutoFilter Field:=17, Criteria1:="P"
sht.Range("T7:U99999").Copy sht1.Range("A1")

End Sub