VBA代碼將特定的列從工作表1復制到工作表2

Question

嗨，我有以下代碼將數據從工作表1復制到工作表2。所有列都被選中，如何修改以僅選擇列A，I和M：

Sub NewSheetData() 
    With Application 
        .ScreenUpdating = False 
        .EnableEvents = False 
    End With 

    Dim Rng As Range 

    Set Rng = Range([A1], Range("A" & Rows.Count).End(xlUp)) 

    On Error Resume Next 

    With Rng 
        .AutoFilter , field:=1, Criteria1:="*TC*", Operator:=xlOr 
        .SpecialCells(xlCellTypeVisible).EntireRow.Copy Sheets("Sheet2").Range("A1") 
        .AutoFilter 

    End With 

    On Error Goto 0 

    Application.EnableEvents = True 

Answer 1

您可以像這樣進行單獨的復制粘貼：

With Rng
    .AutoFilter , field:=1, Criteria1:="*TC*", Operator:=xlOr
    .SpecialCells(xlCellTypeVisible).Range("A1").Copy Sheets("Sheet2").Range("A1")
    .SpecialCells(xlCellTypeVisible).Range("I1").Copy Sheets("Sheet2").Range("B1")
    .SpecialCells(xlCellTypeVisible).Range("M1").Copy Sheets("Sheet2").Range("C1")
    .AutoFilter
End With

編輯：您也可以嘗試：

Sheets("Sheet1").Range("A1").SpecialCells(xlCellTypeVisible).Copy Sheets("Sheet2").Range("A1")
Sheets("Sheet1").Range("I1").SpecialCells(xlCellTypeVisible).Copy Sheets("Sheet2").Range("A1")
Sheets("Sheet1").Range("M1").SpecialCells(xlCellTypeVisible).Copy Sheets("Sheet2").Range("A1")