Realce linhas duplicadas (não células)

Question

Preciso destacar linhas duplicadas na minha planilha do Excel 2013. Eu posso destacar valores de célula duplicados dentro de linhas, usando o método "Realçar - > Duplicar", mas o que estou tentando fazer é destacar as linhas como um todo que são duplicatas. Se apenas uma célula é diferente para essa linha, então não é considerado duplicado no meu caso.

Exemplo:

Name    Task     Phone Number
A       Do 1     12345
B       Do 1     12345
A       Do 2     12345
B       Do 1     12345

Para a tabela acima, apenas as linhas 2 e 4 devem ser destacadas.

    

Answer 1

Você pede para destacar as linhas, mas acredito que isso pode ser problemático (embora você não descreva por que deseja isso). Supondo que você tenha 10 linhas e muitas delas correspondam a outras linhas, sua planilha será parecida com

Oproblemaéquevocênãotemideiadequallinhacorrespondeaquelinha!

Vocêtambémteráoproblemanapróximavezqueexecutaroscript,odestaquecontinuará.

Comotal,ofereçoumasoluçãocomumacolunaextradeinformações(capturadetelaabaixo):

SubWalkThePlank()DimstartRowAsIntegerstartRow=2'UpdatethistoleadustothetreasureDimrowAsIntegerrow=startRowDoWhile(Range("A" & row).Value <> "")

    Dim innerRow As Integer
    innerRow = row + 1

    Dim name As String
    Dim task As String
    Dim phone As String

    name = Range("A" & row).Value
    task = Range("B" & row).Value
    phone = Range("C" & row).Value

    Do While (Range("A" & innerRow).Value <> "")


        If (Range("A" & innerRow).Value = name And Range("B" & innerRow).Value = task And Range("C" & innerRow).Value = phone) Then
            Range("D" & row).Value = Range("D" & row).Value & innerRow & ", "
            Range("D" & innerRow).Value = Range("D" & innerRow).Value & row & ", "
            'Rows(row).Interior.ColorIndex = 6      'UNCOMMENT THIS LINE IF YOU WANT HIGHLIGHTING

            'Rows(innerRow).Interior.ColorIndex = 6      'UNCOMMENT THIS LINE IF YOU WANT HIGHLIGHTING
        End If

    innerRow = innerRow + 1
    Loop

    row = row + 1
Loop

End Sub

Isso é o que faz

Façaissoemumacópiadoseuarquivo-nãohárecursodedesfazer!

Anotenocódigoqueháduaslinhasmostrandoalinhaquevocêdesejaremoverocomentário(removaoprimeiro'dessaslinhaseelasserãodestacadas)

Como eu adiciono o VBA no MS Office?