VBA从工作表名称的各种工作表中提取数据

Question

我有一个工作簿，其中包含一个主要工作表“Monthly collection reeport”和几张带日期的工作表。我需要将数据从所有纸张（仅总列C14-D14）拉到主纸张“每月”（C4-D14），其中一个在第一列以下，纸张名称分别在B1-B13栏中。

Answer 1

根据您的需要进行调整：

Sub xxxxx()
Dim j As Integer
x = Sheets.Count ' count no of sheets
For j = 1 To x - 1 
Range("a" & j) = Worksheets(j + 1).Name ' main sheet must be the first, run code from main sheet
Next
End Sub      

Answer 2

所以最终的代码将是

Sub xxxxx() Dim j As Integer x = Sheets.Count ' count no of sheets For j = 4 To x + 2 Range("B" & j) = Worksheets(j - 2).Name ' main sheet must be the first, run code from main sheet Next End Sub