基於自動過濾器將粘貼列從一張工作表復制到另一張工作表

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