根据单元格颜色vba剪切整行

Question

我有大约500k行数据。我使用条件格式在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