大神 快来

Sheets("Data1").Select
Columns("C:C").Select
ActiveSheet.Range("$A$1:$CU$60000").RemoveDuplicates Columns:=3, Header:= _
xlYes
Sheets("Data2").Select
Columns("C:C").Select
ActiveSheet.Range("$A$1:$CU$60000").RemoveDuplicates Columns:=3, Header:= _
xlYes
Sheets("Data1 Summary").Select
Range("A4").Select
ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh
Sheets("Data2 Summary").Select
ActiveSheet.PivotTables("数据透视表2").PivotCache.Refresh
Sheets("Data1 Summary").Select
Range("A6:A1000").Select
Selection.Copy
Sheets("Comparison").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Data2 Summary").Select
Range("A6:A1000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Comparison").Select
Range("A1001").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("A:A").Select
Application.CutCopyMode = False
ActiveSheet.Range("$A$2:$V$2000").RemoveDuplicates Columns:=1, Header:= _
xlYes
Range("A8").Select
End Sub
为啥到Sheets("Comparison").Select这里就停了