Question

如何将N多个独立的excel表格，合并在一个表格。

不要提供小工具！表格都为格式相同的表格。

Answer 1

VBA代码可以吗?

追问

可以，但是要合并在一个Sheet里面的！我用的2010版本的

追答

合并任意的 Sheet
合并之前，请先创建一个空白的 Sheet 作为合并目标 Sheet ，这个Sheet 必需是第一个Sheet 哦。
如果不合并标题行（比如第一行）则 j=1 改为 j=2
如果数据不是从第一行，或者第一列开始的，请修改 j=1 及 k=2 两行的参数。
比如 j=2 k=3 表示从第2行，第三列开始的数据。

Sub CombineSheet()
Application.screenupdating = False
Dim i, j, k, n As String
n = 1
For i = 2 To ThisWorkbook.Sheets.Count
For j = 1 ToThisWorkbook.Sheets(i).UsedRange.Rows.Count
For k = 1 To ThisWorkbook.Sheets(i).UsedRange.Columns.Count
ThisWorkbook.Sheets(1).Cells(n, k).Value =ThisWorkbook.Sheets(i).Cells(j, k).Value
Next k
n = n + 1
Next j
Next i
Application.screenupdating = True
End Sub

意外惊喜：合并 Sheet 的功能会自动去掉超链接(HREF) 标记。
实际上，为了去掉 Excel 的所有超链接，也可以使用这个函数啊。

如果你实现了记得采纳啊......

追问

我试了，但是运行的时候没有反应，是什么问题？

追答

运行时,我把上屏屏闭了,为了运行速度更快点,你要运行时就直接上屏吗?

追问

运行的时候应该弹出一个，选择被合并表格的路径吧？
可是现在我点完运行什么也不弹出，表格里全是空的！

追答

原来你是要合并工作薄啊,不是合并工作表?同一个工作薄里面合并工作表怎么可能需要路径呢

追问

对，是合并多个工作薄。你发这个语句是合并一个工作薄的多个表是吧？