Question

vb如何提取多个Excel文件中某个表格的某列数据到一个Excel表格里，如图，共有100多个表

表格以文件日期命名，现在比如我想提取所有表格的围护结构位移的累计沉降数据





Answer 1

在工作表标签上击右键，查看代码。

在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

追问

没有用啊