例子如下："产品1"表：图号名称数量2110螺杆52130底盘12450螺帽5……"产品2"表为：图号名称数量2110螺杆32180v型底盘12450螺帽3……另有产品3……等数十个工作表现在要求对通用件统计，即超过2个产品使用的零件，并列出属于那个产品生成如下汇总表：图号名称数量产品2110螺杆5产品1（该单元格表示来自表的表名2110螺杆3产品22450螺帽5产品12450螺帽3产品2求教如何编写代码?感激不禁！

将汇总表放在最前面 Sub 汇总通用件() SC = Worksheets.Count Sheets(1).Select Range("A2").Select For I = 2 To SC Sheets(I).Select RC = Sheets(I).UsedRange.Rows.Count Rows("2:" & RC).Copy Sheets(1).Select ActiveSheet.Paste Range(ActiveCell.Offset(0, 3), ActiveCell.Offset(RC - 2, 3)) = Sheets(I).Name ActiveCell.End(xlDown).Offset(1, 0).Select Next RC2 = ActiveSheet.UsedRange.Rows.Count For J = RC2 To 2 Step -1 If WorksheetFunction.CountIf(Range("A2:A" & RC2), Range("A" & J)) = 1 Then Range("A" & J).EntireRow.Delete End If Next End Sub