如何使用Excel VBA將多個工作表同一位置內容彙總到一個工作表

如圖，現在有這樣一個工作簿，裡面有一些工作表。

在每個工作表中，都有對應的內容，格式都是一致的。

現在要將這些詳細工作表同一位置A2：B2的內容都放入Sheet1中，並且是按行填入。

如果工作表很多的話，手動輸入就比較麻煩，下面就介紹一下使用VBA來處理這樣的表格。

VBA程式碼如下：

Sub Collection（）

Worksheets（“Sheet1”）。Activate

Dim i As Integer， j As Integer

j = 2

For i = 2 To Worksheets。Count

Worksheets（i）。Range（“A2：B2”）。Copy

Worksheets（“Sheet1”）。Range（“A” & j & “：B” & j）。Select

ActiveSheet。Paste

j = j + 1

Next i

Application。CutCopyMode = False

Range（“A1”）。Select

End Sub

點選執行之後，對應的內容就會都出現在Sheet1中了。

這樣就比較快速方便。當然了，在實際工作中，相關的資料或者資訊會更加複雜，可以根據實際情況來進行調整。例如修改目標的單元格區域，在填入的單元格需要注意設定好新的範圍，避免後面資料填入以後出現疊加覆蓋情況。

想了解更多Excel的操作技巧，歡迎關注微信公眾號：tobefascinating，一起學習，一起進步。