在工作表标签上击右键,查看代码。 在VBE窗口中,点“插入”,模块。将以下代码粘贴到模块代码窗格中,ALT+F8运行该宏,就行了。 附件中有样本。 Sub 数据提取() For i = 2 To Worksheets.Count Sheets(1).Cells(Sheets(1).[a65536].End(3).Row + 1, 1) = Sheets(i).[D3] Sheets(1).Cells(Sheets(1).[b65536].End(3).Row + 1, 2) = Sheets(i).[e6] Next End Sub