Emparelhar números iguais de colunas adjacentes

Ir em baixo

Emparelhar números iguais de colunas adjacentes

Mensagem por alexandrevba em Seg Nov 03, 2014 7:39 am

Bom dia!!
o código abaixo alinha os números que são iguais, considerando colunas A e B.
Antes
1 16
2 17
3 18
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Depois
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 16
17 17
18 18
19
20
21
22
23
24

Código:
Sub Alinhar_Numeros()
'Posiciona os números iguais (um do lado do outro) entre a coluna A e B
    Dim rng1 As Range
    Set rng1 = Range([A1], Cells(Rows.Count, "A").End(xlUp))
    rng1.Offset(0, 1).Columns.Insert
    With rng1.Offset(0, 1)
        .FormulaR1C1 = _
        "=IF(ISNA(MATCH(RC[-1],C[1],0)),"""",INDEX(C[1],MATCH(RC[-1],C[1],0)))"
        .Value = .Value
    End With
    Columns(3).Delete
End Sub


Att
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum