Excel: Goto Diferenças de coluna quebradas?

Question

então eu tenho uma única coluna em uma planilha. parece assim:

a, a, a, b, b, b, c, c, c, c, d, d, d, d, e, e, e, e etc

(sim, é uma coluna. Essa coisa não gosta de devoluções ...)

agora, se você clicar na coluna e selecionar Ir para especial > Diferenças de coluna

deve selecionar as primeiras células ... a, b, c, d e

mas o que você consegue é a célula em TODOS? linhas após A é selecionado.

Isso faz isso para o Excel 2003 e 2007

O que estou fazendo de errado?

    

Answer 1

Este método alternativo acabou funcionando também ..

Como obtenho os valores distintos / exclusivos em uma coluna no Excel?

    

Answer 2

Especial GoTo > Column Differences opera no intervalo selecionado. Não sei por que você pensou em descobrir como iterar na coluna.

Se você interrogar o valor de um intervalo (como sua coluna), o valor será a primeira célula do intervalo. Portanto, as células com valores não iguais a a são selecionadas como diferentes, que é o que eu recebo.

Atualização: Este sub deve fazer o que você espera:

' Selects changed cells in a single column.
' This sub will *not* work on multiple column selections
Public Sub SelectColumnDifferences()
    Dim c As Range
    Dim different As Range

    Set different = Selection.Cells(1)
    For Each c In Selection
        If c.Value <> different.Areas(different.Areas.Count).Value Then
            Set different = Union(different, c)
        End If
    Next c

    different.Select

    Set different = Nothing
    Set c = Nothing
End Sub