如何編寫代碼VBA以在一張Excel中復制所有圖紙

Question

工作表1名稱金額abc 25.00 bba 45.00

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

如果我有多個工作表，我應該如何而不是將（sheet1）寫入目標文件到工作表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