Question

如何提取多个excel表格的某一个单元格内容

因为有很多一样的商品申请表，我需要统计出单价、商品名称情况。

有没有一种方法可以一下把某文件夹里所有表格的某个位置的数据提取出到新建的表格中？比如我想要的数据都是在E9这个单元格里。

一个一个打开太慢了。

Answer 1

 一、可以任意复制，前提是单元格必须一致。比如说，下图，是A到H.

二、必须有A到H的空位，如图：这就是复制一次的效果。

三、现在两个一起复制：请注意：

是不是，您只要留下足够的空间，就可以随意复制。所谓熟能生巧，多练习，即可。

Answer 2

使用宏工具
方法 工具—宏—Basic编辑器—插入—模块 粘贴如下内容即可，如将其中：Wb.Sheets(G).Range("E9").Copy 改为 Wb.Sheets(G).UsedRange("E9").Copy ，则为复制全部非空内容。

Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).Range("E9").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub

Answer 3

1.你应该把所有文件改为相似的名字，如sheet1.xls, sheet2.xls
2.在新建表里使用引用。如在a1单元格里输入=,然后打开sheet1.xls,点击e9单元格，回车，则在新建单元格中显示sheet1.xls中e9单元格内容
3.复制a1单元格，粘贴至a2单元格，在地址栏中修改sheet1.xls为sheet2.xls，其余类似

Answer 4

编程吧