Excel 查找并复制列中的第一行if单元格

我有5000行，5到45列，列E中有唯一或重复的值。必须始终将具有重复项的第一行复制到第2页。因此，如果E2到E10中的值相同，请复制第2页中的第2行。 我必须复制行的值，因为有公式，我不想删除行，只需将它们复制到工作表2中即可

Sub Sample()
    Dim LastRowcheck As Long, n1 As Long
    Dim DelRange As Range

    With Worksheets("Sheet1")
        LastRowcheck = .Range("E" & .Rows.Count).End(xlUp).Row

        For n1 = 1 To LastRowcheck
            If .Cells(n1, 5).Value = Cells(n1 + 1, 5).Value Then
               .Rows(n1).Copy Destination:=Worksheets("Sheet1").Rows(n1)

            End If
        Next n1

        If Not DelRange Is Nothing Then DelRange.Delete
    End With
End Sub

---

那么，您的问题到底是什么？嗨，如何复制E列中第一行的值存在于其他行中？您是否只希望复制具有重复值的行？或者您希望复制所有值，但忽略重复项（因此也要复制非重复值）？此外，您的数据是否已排序，以便所有重复项彼此相邻？您能否澄清存在的问题？问题是重复项（列E中）不在相邻行上，这意味着您的代码没有识别这些重复项？