如何简便地把多个表合并成一个

笑迎风雨 · 发表于 2011-4-8 07:35

附件中的几个表只是示意。现实中有20多个相同的表，由不同的单位填写内容，现在要把这些表合并到一个表上，形成一个完整的表。原来都是采用复制、粘贴的笨办法，请问有没有更简便的方法，该怎样做？谢谢

zbwxlxy · 发表于 2011-4-8 08:01

如果你的多个工作薄都是这么规范，复制粘贴很简单呀。
全选--复制--选择性粘贴--跳过空单元格
若嫌选择性粘贴麻烦，可将其录制个宏并设置快捷键

ctp_119 · 发表于 2011-4-8 08:12

我帮你的附件做了适当的修改，具体情况情况附件，只需要把要汇总的文件放在同一个文件夹下，多少个都成，都可以一起合并汇总。
Sub huizong()
Dim str As String
Dim i As Integer
Dim j As Integer
Dim objcn As New ADODB.Connection
Range("a2:d65536").ClearContents
Application.ScreenUpdating = False
str = Dir(ActiveWorkbook.Path & "\*.xls")
Do
If InStr(1, str, "汇总") = 0 Then
objcn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source= " & ThisWorkbook.Path & "\" & str
Sql = "select * from [Sheet1$]"
i = [a65536].End(xlUp).Row + 1
Cells(i, 1).CopyFromRecordset objcn.Execute(Sql)
objcn.Close
Set objcn = Nothing
End If
str = Dir
Loop Until Len(str) = 0
Application.ScreenUpdating = True
End Sub

笑迎风雨 · 发表于 2011-4-8 08:27

谢谢楼上两位的回答。特别要感谢119精心制作的VBA！我看到了你改的那个，用起来很方便，就怕有些单位做表的时候还带着空格，如果是那样，改起来也比较麻烦。

ctp_119 · 发表于 2011-4-8 08:30

原帖由 笑迎风雨 于 2011-4-8 08:27 发表
谢谢楼上两位的回答。特别要感谢119精心制作的VBA！我看到了你改的那个，用起来很方便，就怕有些单位做表的时候还带着空格，如果是那样，改起来也比较麻烦。

这个你可以要求他们怎么做呀，其实他们只要填写自己的信息即可，如其简单，何乐而不为？！

笑迎风雨 · 发表于 2011-4-8 08:36

好的，谢谢119。我在加你的群，没通过呢。

笑迎风雨 · 发表于 2011-4-8 09:01

再求助：我在应用的时候，把VBA语句复制进去不能运行，提示用户定义类型未定义。请问是什么原因？

ctp_119 · 发表于 2011-4-8 09:04

原帖由 笑迎风雨 于 2011-4-8 08:36 发表
好的，谢谢119。我在加你的群，没通过呢。

已验证通过了，谢谢加入！

ctp_119 · 发表于 2011-4-8 09:11

原帖由 笑迎风雨 于 2011-4-8 09:01 发表
再求助：我在应用的时候，把VBA语句复制进去不能运行，提示用户定义类型未定义。请问是什么原因？

要前期绑定，即复制代码的同时要引用Micosoft activeX Data Objects 2.8 Library这个文件才能使用。引用方法：在VBE窗口中选工具菜单中的引用，再在引用对话框中找到该项，打√确定即可。

魂断蓝桥 · 发表于 2011-4-8 09:40

下个excel工具箱7.8 汇总里面有现成的工具。

		自动登录	找回密码
密码			免费注册

[已解决] 如何简便地把多个表合并成一个

评分