EXCEl批量提取多个excel文件中表格的前几行

Question

有很多excel表（多个文件），如何批量提取它们中某张表格的前几行，应该怎么办？谢谢！
100多份excel表手动复制粘贴太麻烦了！

Answer 1

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

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

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

Answer 2

如果是在一个工作簿中，而且数据的位置都一样的话，就直接选中第一张工作表中的数据，按住shift，再选最后一张表中的数据就行了

Answer 3

这个嘛，最好是用VBA提取，100多份确实太多了

Answer 4

=(sheet1!a1:f1)，表示表1中的A1至F1的数据
=(sheet2!a1:f1),表示表2中的A1至F1的数据