关于EXCLE表合并问题！

[sundong9]

由于工作需要要把500多个结构相同的EXCLE表格文件，合并到一个EXCLE表，可不可以不通过复制粘贴，进行合并工作啊？请高手指点一二！

[蓝帆·雨轩]

这么多是吧，那还是写个VBA，运行一下好了，这个是最省时省力的方法了，呵呵。不过，就是需要您稍微有一点点的VBA知识了（注意：只需要一点点就可以做出来了）

提示：一个循环判断读工作表读数据即可。

示意：

Private Sub RunCopyData()
On Error GoTo handererror

Dim TMPSheet As Worksheet
Dim IRow As Integer
Dim ICol As Integer
'结构相同,那么正常情况下列是一定的,这里我们就按照列相同,记录行不同来分析
Dim WRow As Integer
WRow = 2 '定义目标表的数据起始行,假定第一行为标题行

For Each TMPSheet In ThisWorkbook.Sheets
If TMPSheet.Name <> Sheet3.Name Then '假定Sheet3为目标表
IRow = 2 '假设第一行是标题行,从第二行开始数据
Do Until TMPSheet.Cells(IRow, 1) & "" = "" '假定第一列总是有数据的
For ICol = 1 To 9 '假设工作表为9列
Sheet3.Cells(WRow, ICol).Value = TMPSheet.Cells(ICol) '赋值
Next
WRow = WRow + 1
Loop
End If
Next

HandlerError: '此处添加的是出错处理
MsgBox "处理出错,请检查数据!"
Exit Sub

End Sub

添加一个窗体按钮,进行宏绑定即可。也可以将代码部分添加到Button控件中。单击按钮执行即可。

楼主可按需求进行相应更改。

[蓝帆·雨轩]

以上代码不完善，且直接在这上面写的，未经测试（不过应该不会有什么问题，只是性能可能欠考虑），仅供参考。

若还有问题，可以继续讨论。