UC知道怎样把两个工作表合并成一个
来源：百度知道 编辑：UC知道 时间：2024/06/07 10:49:01
a名 2000 2300 2400
b名 1000 1400 3500
..
表二：名称 1月1日 1月2日 1月3日 ...
a名 20.2 20.3 20.4
b名 10.1 10.2 10.3
....
想要合并成的表三：名称 1月1日 1月2日 1月3日 ...
a名 2000 2300 2400
a名 20.2 20.3 20.4
b名 1000 1400 3500
b名 10.1 10.2 10.3
...
不要说让我一个一个复制粘贴啊，很多行的
麻烦说得仔细一点，多谢了
excel工作表的合并
注：本人所用EXCEL为OFFICE2003，在OFFICE2007中请将代码中的xls改为xlsx
你可以使用VBA，打开一个新的EXCEL文件，只要在EXCEL宏里运行以下代码（里面的文件夹地址一定要改成你要合并的EXCEL所在的文件夹地址）
Sub cfl()
Dim fs, f, f1, fc, s, x, rowss, columnss
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("D:\test\asdfg\") '存放文件的目录
Set fc = f.Files
x = 1
For Each f1 In fc
If Right(f1.Name, 3) = "xls" Then
Workbooks.Open (f1.Path)
rowss = Workbooks(f1.Name).Sheets(1).Range("A65536").End(xlUp).Row
columnss = Workbooks(f1.Name).Sheets(1).columns.Count
Workbooks(f1.Name).Sheets(1).Range("A1:z" & CStr(rowss)).Copy
Workbooks(1).Activate
Workbooks(1).Sheets(1).Range("A" & CStr(x) & ":z" & CStr( x + rowss)).Select
Workbooks(1).Sheets(1).Paste
Application.CutCopyMode = False
x = x + rowss
Workbooks(f1.Name).Close save