先建立一個表格的迴圈，統計總共有多少個表格。然後分別迴圈每個表，取66-77行Dim a, b, c, d, e As Integere = 1a = ThisWorkbook.Sheets.CountFor b = 1 To a"迴圈所有表格For c = 66 To 77 Sheet7.Cells(e, 1) = Sheets(b).Cells(c, 1) Sheet7.Cells(e, 2) = Sheets(b).Cells(c, 5) e = e + 1"取第66-77行A列和D列的資料 Next Next

將多個EXCEL表格中第一行的資料統一提取到另一個表格中的步驟為：

1、在彙總表中的A列，將多個工作表的表名依次排列；

2、在B1單元格輸入以下公式，然後向右向下填充公式

=OFFSET(INDIRECT($A1&"!A1"),,COLUMN(A1)-1)&""

公式表示：以A1單元格的內容作為表名引用，透過OFFSET函式將表名引用的A1單元格作為基準單元格，每向右移動一列，基準單元格向右偏移一列。從而得到A列表名工作表的所有首行資料。如果資料為空，就返回空值。