多个Excel合并的问题!!!!!!!!!!

来源：百度知道 编辑：UC知道 时间：2024/05/28 02:52:20
现在我有4个工作表,想合并成一个工作表.横向一直,纵向有变化,纵向如下:

工作表1: 土豆 2KG
豌豆 3KG
白菜 5KG

工作表2: 土豆 3KG
芹菜 2KG
黄瓜 4KG
合并之后: 土豆 5KG
豌豆 3KG
白菜 5KG
芹菜 2KG
黄瓜 4KG

就这样的,和并后相同<品名>的数量,是两个工作表的总和,
不重复的<品名>就不变.

很感谢有这方面熟悉的朋友来回答.

先将工作表2的内容复制到工作表1的下方，再排序，分类汇总，将分类汇总前面的减号改为加号即可达相应效果。

我来帮你，我在网上找了好久才写成的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

'For j = 1 To rowss
'For i =