Excel VBA 循環工作表

Question

VBA新手在這里。 我正在努力編寫腳本以將多個（~250）工作表中的特定單元格中的數據提取到主工作表中。 示例：我希望腳本從名為 Cand 4、Cand 5、Cand 6 等的工作表中的單元格 B3:C3、E4、B15:C20 中提取數據。

我想我的循環部分工作正常，但我缺少其他東西。 幫助！ 任何人都猜測腳本會是什么樣子？ 謝謝！

Answer 1

這是我將如何做到的。

1. 創建一個新工作表（我們稱之為 Back_End）。
2. 在此工作表中，創建一個包含要粘貼其數據的所有工作表名稱的命名范圍 (ctrl-F3)。 讓我們稱之為“Sheets_List”
3. 使用代碼復制粘貼數據（見下文）

VBA 代碼：

Option Explicit

Sub Copy_Paste_Sheets()

Dim i
Dim Sheet_List As Range
Dim Sheet_List_String As String

For i = 1 To 250 'number of sheets

Set Sheet_List = Range("Sheets_List")
Sheet_List_String = Sheet_List.Cells(i, 1)

'Range 1
Sheets(Sheet_List_String).Range("B3:C3").Copy Sheets("Master").Cells(i,1) 'Destination 1 (i=row, 1=column)
Application.CutCopyMode = False

'Range 2
Sheets(Sheet_List_String).Range("E4").Copy Sheets("Master").Cells(i,1) 'Destination 2 (i=row, 1=column)
Application.CutCopyMode = False

'Range 3
Sheets(Sheet_List_String).Range("B15:C20").Copy Sheets("Master").Cells(i,1) 'Destination 3 (i=row, 1=column)
Application.CutCopyMode = False

Next i

End Sub