<em>EXCEL</em>中如何提取多个工作表中的数据-excel 批量提取数据,excel跨

Sub 自动把word表格转换到Excel()
On Error Resume Next ''''''出错继续（应对不规范的表格）

''''''重命名所有WORD文件为大写“A”。e79fa5e98193e78988e69d83334如 A (1).docx。

''maxcolumn(xex)
Dim maxrowend2
Dim wdApp
For w3 = 1 To 2 想合并多少个文档？
maxrowend2 = Sheets("sheet1").[a65536].End(xlUp).Row

Set wdApp = CreateObject("word.application")
path_ = ThisWorkbook.Path
wdApp.Documents.Open (path_ & "\" & "A (" & w3 & ")" & ".docx")
wdApp.Visible = True
n = wdApp.ActiveDocument.Tables.Count ''''有多少个表格
'x = 0
x = maxrowend2 + 1 ''''初始行号
y = 0
For i = 1 To n
rs = wdApp.ActiveDocument.Tables(i).Rows.Count ''''有多少个行
cs = wdApp.ActiveDocument.Tables(i).Columns.Count ''''有多少个列

''''''ghg = MsgBox(rs & "行列" & cs) '''''''''''''''''''''''''''''''提示

For m = 1 To rs

x = x + 1
y = 1
ThisWorkbook.Sheets("Sheet1").Cells(x, 1) = "源自A (" & w3 & ")" & ".docx" & "； 第" & i & " 表 " ''''''''''9999999999999999999
For n = 1 To cs

vv = wdApp.ActiveDocument.Tables(i).Cell(m, n)
ThisWorkbook.Sheets("Sheet1").Cells(x, y + 1) = Mid(vv, 1, Len(vv) - 1) '''空第一列
y = y + 1
Next
Next
Next
wdApp.Application.Quit '关闭word文档
Set wdApp = Nothing '释放对象变量的内存
Next

End Sub

工具/材料：Microsoft Office Excel2016版，Excel表格。 

1、首zd先选中Excel表格，双击打开。 

2、然后在该界面中，选中“方方格子”里“工作表”里“汇总拆分”按钮回。 

3、再者在该界面中，选中“汇总大师”选项。 

4、之后在该界面中，点击左侧“多簿汇总到一表”选项。

5、接着在该界面中，点击“开始”按钮。 

6、其次在该界面中，点击右侧的“添加文件”按钮。 

7、接着在该界面中，选中要提取的多个工作表。 

8、其次在该界面中，点击右下角的“打开”按钮。 

9、之后在该界面中，选择“区域”和“提前数值答”。

10、其次在该界面中，点击右下角的“开始”按钮。 

11、然后在该界面中，显示提取成功，点击“确定”按钮。 

12、最后在该界面中，显示多个工作表中提取的数据。

按alt+F11，双击左边列表的一个工作表（自己插入模块也行），在内容窗格中粘贴下面代码，然后按F5键运行（用别的方法运行也可以）

把一个文件中的所以表格的前几行汇总636f7079e799bee5baa6e79fa5e98193362起来。

Sub aaa()
Dim n As Integer, m As Integer, k As Integer, j As Integer, ab As Worksheet
n = InputBox("请输入要提取的行数？", "请输入")
j = InputBox("每块数据之间间隔行数？", "请输入")
k = 0
Worksheets.Add
ActiveSheet.Name = "汇总表"
m = Worksheets.Count
For Each ab In Sheets
If ab.Name <> "汇总表" Then
x = Worksheets("汇总表").Range("a65536").End(xlUp).Row + 1 + j
ab.Range("a1:EW" & n).Copy Worksheets("汇总表").Cells(x, 1)
k = k + 1
End If
Next ab
MsgBox ("共复制" & k & "个表格的数据")
End Sub

题目太宽泛了,无从下手呀,不过,我倒有一个多表copy格合并汇总的样表,您看一下,

示意图如下：依次为：1表，2表，汇总表

在百汇总表中，在C3单元格中输入公式：=IFERROR(SUM(INDIRECT("'"&INDIRECT("A"&ROW())&"月'!"&"E:E"))/(COUNTA(INDIRECT("'"&INDIRECT("A"&ROW())&"月'!"&"C:C"))-1),"")

在汇总表中，在D3单元格中输入公式：=IFERROR(SMALL(INDIRECT("'"&INDIRECT("A"&ROW())&"月'!"&"E:E"),1),"")

在汇总表中，在C3单元格中输入公式：=IFERROR(LARGE(INDIRECT("'"&INDIRECT("A"&ROW())&"月'!"&"E:E"),1),"")

3个公式同时下拉，即可。

其实,你就是有再多的表的话,此方法也可以很好地处理.

向左度转|向右转

向左转|向右转

向左转|向右转