2 kollommen samenvoegen middels vba

[blikbanaan]

Ik heb een macro die 2 kollommen samenvoegd, dit werkt maar er traag, is hiet een andere manier voor

 

[edmoor]

Waarom niet gewoon met een functie:

=A2 & B2

Of:

Sub VoegSamenKolomen()
    Application.ScreenUpdating = False
    For i = 2 To Range("A1").End(xlDown).Row
        Cells(i, 3) = Cells(i, 1) & Cells(i, 2)
    Next i
    Application.ScreenUpdating = True
End Sub

 

[blikbanaan]

Ja dat heb had ik gedaan , maar bij 20.000 regels heeft excel tijd nodig om door te rekenen

 

[edmoor]

Stukje code van #2 al getest?

 

[blikbanaan]

Ja net getest op 20.000 regels jouw macro loopt dit in 3 sec door, mijn in 28 sec

 

[edmoor]

Dat scheelt een stukje

 

[HSV]

Hoe snel is dit?

Sub VoegSamenKolomen()
 Range("c2:c30000") = [index(a2:a30000&b2:b30000,)]
End Sub

 

[blikbanaan]

zo dit is 1 seconde op 10856 regels , bedankt allemaal