Remover células vazias e duplicadas na linha
Fechado
FranChasing
-
15 mar 2012 às 01:35
FranChasing Posts 1 Data de inscrição quinta 15 de março de 2012 Status Membro Última visita 15 de março de 2012 - 15 mar 2012 às 11:15
FranChasing Posts 1 Data de inscrição quinta 15 de março de 2012 Status Membro Última visita 15 de março de 2012 - 15 mar 2012 às 11:15
Veja também:
- Remover células vazias e duplicadas na linha
- Fotos duplicadas na galeria - Dicas -iOS
- Como remover linha do word - Dicas -Word
- Como é representado um intervalo de células dentro de uma fórmula? - Dicas -Excel
- Pular linha latex - Dicas -Linguagens
- Como fazer uma linha do tempo - Dicas -Word
1 Respostas
FranChasing
Posts
1
Data de inscrição
quinta 15 de março de 2012
Status
Membro
Última visita
15 de março de 2012
15 mar 2012 às 11:15
15 mar 2012 às 11:15
Tenho esta macro que funciona perfeita somente na PRIMEIRA LINHA no restante das linha ocorre remoções indevidas de números repetidos com linhas antereiores. Veja exemplo das remoções equivocadas e no final a rotina da macro
ANTES DE REMOVER
01 02 03 01 04 05 02 03 06 07
08 09 10 02 11 12 09 11 13 02
14 15 16 17 14 11 18 19 16 11
DEPOIS DE REMOVER (ERRADAS 2ª e 3ª LINHAS)
01 02 03 04 05 06 07
08 09 10 11 12 13
14 15 16 17 18 19
COMO DEVE SER
01 02 03 04 05 06 07
08 09 10 02 11 12 13
14 15 16 17 11 18 19
Note que a primeira linha está PERFEITA
A segunda linha ocorreu de remover os dois números 02 quando era pra remover somente UM número 02
Na terceira linha ocorreu de remover os números 11 duas vezes quando era pra remover somente UM nº 11
Por quê isto ocorre ? Porque qualquer número que se repete com linhas anteriores são eliminados todos da linha. Entendido ?
'Macro
Sub RemoverDuplicados()
Dim Colecao As New Collection
Dim Intervalo As Range
Dim Celula
On Error GoTo ERRO
Set Intervalo = ActiveSheet.UsedRange
For Each Celula In Intervalo
Celula.Select
Colecao.Add Celula.Value, CStr(Celula.Value)
Next
Exit Sub
ERRO:
ActiveCell.ClearContents
Resume Next
End Sub
MUITO GRATO !!!
ANTES DE REMOVER
01 02 03 01 04 05 02 03 06 07
08 09 10 02 11 12 09 11 13 02
14 15 16 17 14 11 18 19 16 11
DEPOIS DE REMOVER (ERRADAS 2ª e 3ª LINHAS)
01 02 03 04 05 06 07
08 09 10 11 12 13
14 15 16 17 18 19
COMO DEVE SER
01 02 03 04 05 06 07
08 09 10 02 11 12 13
14 15 16 17 11 18 19
Note que a primeira linha está PERFEITA
A segunda linha ocorreu de remover os dois números 02 quando era pra remover somente UM número 02
Na terceira linha ocorreu de remover os números 11 duas vezes quando era pra remover somente UM nº 11
Por quê isto ocorre ? Porque qualquer número que se repete com linhas anteriores são eliminados todos da linha. Entendido ?
'Macro
Sub RemoverDuplicados()
Dim Colecao As New Collection
Dim Intervalo As Range
Dim Celula
On Error GoTo ERRO
Set Intervalo = ActiveSheet.UsedRange
For Each Celula In Intervalo
Celula.Select
Colecao.Add Celula.Value, CStr(Celula.Value)
Next
Exit Sub
ERRO:
ActiveCell.ClearContents
Resume Next
End Sub
MUITO GRATO !!!
Assine nossa newsletter!
