EXCEL 中肿么用宏实现批量复制相同行

可以的，参考以下宏。Public Sub Check_for_Duplicate_Rows()Dim vD As VariantDim x As IntegerDim y As Long

With Worksheets(Data)vD = .UsedRange.FormulaFor x = 2 To UBound(vD, 1)For y = x + 1 To UBound(vD, 1)If vD(x, 1) = vD(y, 1) Then.Rows(y).CopyWorksheets(Duplicates).Rows(1).InsertEnd IfNext yNext xEnd WithEnd Sub