Excel VBA復制/粘貼列從多個工作表到不同列中的一個工作表

Question

我有一本約20張的工作簿，其格式和設置都相同。 只有工作表名稱不同（例如“ 1010”，“ 1020”，“ 1030”等）。 現在，我想從每個工作表D列復制到新創建的工作表，但是：

表格“ 1010”中的D列需要轉到新創建的表格中的G列。

工作表“ 1020”中的D列需要轉到新創建工作表中的H列。

等等。
我已經手動創建了以下代碼，用於將列D復制/粘貼到新表中。

Sheets("1010").Select  
 Columns("D:D").Select  
 Application.CutCopyMode = False  
 Selection.Copy  
 Sheets("1000 (2)").Select  
 Range("G1").Select  
 ActiveSheet.Paste  

    Sheets("1020").Select  
Columns("D:D").Select  
Application.CutCopyMode = False  
Selection.Copy  
Sheets("1000 (2)").Select  
Range("H1").Select  
ActiveSheet.Paste  

盡管我不知道如何，但我以某種方式認為這樣做可以更快。 請指教。

Answer 1

這應該確實需要您：

Sub marine()
    Sheets.Add after:=Sheets(Sheets.Count)
    ActiveSheet.Name = "compilation"
    For i = 1 To Sheets.Count - 1
        Sheets(i).Range("D:D").Copy Cells(1, 6 + i)
    Next i
End Sub