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

我有一本工作手册，里面有一张主要的“每月收集报告”和几张带date的工作表。 我需要将所有页面（仅列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