在工作表标签上击右键，查看代码。
在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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024