EXCEl,多个工作表自动添加到一个表格,但不能有重复?

来源：百度知道 编辑：UC知道 时间：2024/06/23 08:13:02
有一EXCEL表,里面有许多工作表,现要把工作表里面的A,B,C列数据自动汇总到一个工作表上,
例如:有S1,S2,S3,S4,S5等十个工作表,现将这十个工作表汇总到F表(F表为总表)
要求F的数据包含前十个工作表数据且不能重复.
注:A1∽A5都有相同的表格格式为:
A列:物料代号 B列:物料名称,C列为:物料规格.

请高手帮忙解决一下,要自动添加到F表,且不能有重复.

谢谢啊,祝更位圣诞节快乐.
我的工作表结构都不复杂,只有三列数据的,且三列数据的名称都慢一样的.
能不能在这里贴出来.谢谢了,我回去试下.

用合并计算，步骤如下：选择数据－合并计算，函数选择求和，鼠标放到引用位置框，选中S1表，按住SHIFT键再选中S5表，选中A至C列。点击添加，确定完成。如还有疑问请百度HI或MSN:jackqiang1@hotmail.com

宏代码如下：

Sub ABC()
For i = 1 To Sheets.Count
If Sheets(i).Name <> ActiveSheet.Name Then
Sheets(i).UsedRange.Copy
X = Range("A65536").End(xlUp).Row + 1
Cells(X, 1).Select
ActiveSheet.Paste
End If
Next
Rows(1).Select
Selection.Delete Shift:=xlUp
Cells.Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("B1") _
, Order2:=xlAscending, Key3:=Range("C1"), Order3:=xlAscending, Header:= _
xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal, DataOption3:=xlSortNormal
For X = 1 To 65535
Do While Cells(X, 3).Value = Cells(X + 1, 3).Value And Cells(X + 1, 3) <> ""
Rows(X + 1).Select
Selection.