Question

我有大约50万行数据。我已使用条件格式突出显示了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

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

1 个答案: