Вырезать весь ряд на основе цвета ячейки VBA

Question

у меня около 500к строк данных.Я выделил дублированные ячейки в столбце A с использованием условного форматирования.

Я хочу написать код VBA для проверки выделенных ячеек красным цветом в столбце A, а затем вырезать и вставить соответствующую целую строку на новый лист.

Answer 1

Имейте в виду, что при удалении одной ячейки, которая была окрашена в результате дублирования, другая ячейка, которая также была окрашена, становится нецветной, если нет других ячеек с таким же значением.Измените, если необходимо, и попробуйте:

Option Explicit

Sub Insert()

    Dim LastRowS1 As Long, LastRowS2 As Long, i As Long

    LastRowS1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

        For i = LastRowS1 To 2 Step -1

            If Sheet1.Range("A" & i).DisplayFormat.Interior.ColorIndex = 38 Then

                LastRowS2 = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row

                Sheet1.Range("A" & i).Cut Sheet2.Range("A" & LastRowS2 + 1)

                Sheet1.Rows(i).EntireRow.Delete

            End If

        Next i

End Sub