如何从多个excel文件中提取固定单元格的数据，并构建一个新的excel表

资源ID：
如何从多个excel文件中提取固定单元格的数据，并构建一个新的excel表
我现在有100多个excel文件，现在需要将每个文件中的固定单元格的数据提取出来，形成一个新的excel表，请问有什么办法？
现在可以直接这样引用：在单元格中输入<='F:\CERN\数据集\复件 范丽080704\气象数据\[LSA1993.8.xls]T'!$Z$40>。问题是：还有其它月份的数据，如“LSA1993.9.xlsl、……、LSA2008.8.xls”，如果我现在直接拉下去的话，所有单元格都是“LSA1993.8.xls”,不会自动变为“LSA1993.9.xls、1993.10.xls……”。请问可以如何实现？
'关闭所有excel文档，新建一数李个薯轿迟工作薄
'运行下帆丛面的宏
Sub hebin()
Dim fs, f, f1, fc, s

Set fs = CreateObject("Scripting.FileSystemObject")
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
fd.Show
s = fd.SelectedItems(1)

Set f = fs.GetFolder(s)
Set fc = f.Files
n = 0
For Each f1 In fc
If Right(f1.Name, 3) <> "xls" Then GoTo nt
n = n + 1
Workbooks.Open f1.Name
Workbooks(1).Sheets(1).Cells(n, 1) = Workbooks(2).Name
Workbooks(1).Sheets(1).Cells(n, 2) = Workbooks(2).Sheets(1).Cells(40, 26)
Workbooks(2).Close SaveChanges:=False
nt:
Next
End Sub

 首先提取是要看你提取单元格及内容，来进行判定。

大致分为几点：

  1. 复制粘贴。此类比毁历较纤滚搜繁琐。

  2. 建议使用公式:vlookup;这个提取基数来进行，

  3. 公式=,直接提取。备坦

  4. 录制宏，设置宏的快捷键。一键搞定

     

可以分4列实现：
第一列为“'F:\CERN\数据集\复件 范粗型段丽080704\气象数据\[LSA1993.”，第二列租陵为“8――N”，第三列为“.xls]T'!$Z$40”，第四列就用=CONCATENATE()函数岩誉合并，从而实现你要的功能 。
固定单元格是哪个

可以用宏将100多个excel文件的Z40汇总棚裤哗到表中。为纯凳了对应：可以先用宏汇总每个excel文件的第40行，再复制新链行表Z列。
在A1输入LSA1993.8.xls,A2输入LSA1993.9.xls,再选中A1,A2,再往下拉.
← 上一篇： 下一篇： →