Question

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

像图中所显示，我要从第4行开始，每行下面，插入粘贴第3的行内容，请问用宏怎么写。不要说复制粘贴后排序，我第3行的内容是公式，不能排序，排序就会出错

Answer 1

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

With Worksheets("Data")
vD = .UsedRange.Formula
For x = 2 To UBound(vD, 1)
For y = x + 1 To UBound(vD, 1)
If vD(x, 1) = vD(y, 1) Then
.Rows(y).Copy
Worksheets("Duplicates").Rows(1).Insert
End If
Next y
Next x
End With
End Sub

追问

不对哦

点调试是这样

追答

lianxi我调试