如何寫代碼VBA用於複製在一個表中的所有片材練成

Question

表1 名稱量 ABC 25.00 BBA 45.00

Sub sbCopyRangeToAnotherSheet() 
    Sheets("sheet1").Range("A:B").Copy Destination:=Sheets("Sheet4").Range("a1") 
End Sub 

如果我有一個以上的片我應該怎麼寫代替（Sheet 1中）到目標文件到工作表4？

Answer 1

Sub sbCopyRangeToAnotherSheet() 
    dim col as integer 
    col = 1 
    For Each wks In Worksheets 
     if (wks.Name <> "Sheet4") then 
      wks.Range("A:B").Copy Destination:=Sheets("Sheet4").Cells(1, col) 
      col = col + 2 
     end if 
    next wks 
End Sub