EXCEL表格汇总解决方案分享

后勤部长 · 发表于 2010-6-19 19:36

Excel表格汇总解决方案分享，含有多个表格Sheet 1----Sheet 10，每个表格中均有，条码，商品名称，规格，单位，产地，销量，6列，由于每个表格中条码唯一，且日销品种不同，想将这些表格中的数据，汇总到一个表格里面，要求：包含条码，商品名称，规格，单位，产地，销量，6列，且销量等于各个表格相同条码的商品销量合计
下面即将为你解决：

用宏很快的。同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub test()
Dim i As Byte
Sheets(1).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "tempSheet"
For i = 2 To Sheets.Count - 1
Sheets(i).Select
Range("A2:F" & Range("A65000").End(xlUp).Row).Copy
Sheets("tempSheet").Select
Range("A65000").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Next i
Range("A1:A" & Range("A65000").End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Range("A1:F" & Range("A65000").End(xlUp).Row).Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
ActiveSheet.Name = "汇总"
Range("F2").Select
Selection = "=SUMIF(tempSheet!A2:A" & Range("A65000").End(xlUp).Row & ",A2,tempSheet!F2:F" & Range("A65000").End(xlUp).Row & ")"
Selection.AutoFill Destination:=Range("F2:F" & Range("A65000").End(xlUp).Row)
Range("F2:F" & Range("A65000").End(xlUp).Row).Copy
Range("F2:F" & Range("A65000").End(xlUp).Row).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("A1").Select
Application.DisplayAlerts = False
Sheets("tempSheet").Delete
Application.DisplayAlerts = True
End Sub
回到Excel，点菜单的工具，宏，运行test，完成。经过测试，好用。