Notifications

Clear all

Macro Simples

2024 - VBA & Macros

Post Recente por Fernando Fernandes 10 anos atrás

4 Posts

2 Usuários

0 Reactions

668 Visualizações

RSS

arthurcd

(@arthurcd)

Posts: 69

Trusted Member

Topic starter

Bom Dia,
Então acho que é um problema simples de ser resolvido...é o seguinte
Aqui na primeira coluna tenho uma sequencia e na segunda tenho uma outra sequencia
1 2
2 5
3 7
4 9
5 10
6
7
8
9
10

eu gostaria que os números da segunda coluna se ajustassem com o da primeira para que fique assim

1
2 2
3
4
5 5
6
7 7
8
9 9
10 10

pois ultimamente estou fazendo isso na mão rs e são uns 500 números rs

podem me ajudar?

Postado : 03/11/2014 7:06 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Bom dia!!

Tente assim..

Sub AleVBA_13397()
    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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 03/11/2014 7:29 am