从多个excel中提取相同位置的数据与一个excel文件中

在最左边新建一个工作表，在该表运行以下代码 Sub 提取() For I = 2 To Sheets.Count Sheets(I).[B7].Copy Range("A" & [a60000].End(xlUp).Row + 1) Sheets(I).[B8].Copy Range("B" & [b60000].End(xlUp).Row + 1) Sheets(I).[B9].Copy Range("C" & [c60000].En