Lave Krydskombinationer mellem 2 kolonner.

Her er en makro, der kan gøre det.
Resultatet leveres i kolonne C

Sub test2()
    Dim rng1 As Range
    Dim rng2 As Range
    Dim resultat()
   
    Set rng1 = Range("A1:A" & Range("A65536").End(xlUp).Row)
    Set rng2 = Range("b1:b" & Range("b65536").End(xlUp).Row)
   
    ReDim resultat(1 To rng1.Cells.Count * rng2.Cells.Count)
    For Each c In rng1
        For Each c1 In rng2
            x = x + 1
            resultat(x) = c & c1
        Next
    Next

    Range("C1").Resize(x) = Application.Transpose(resultat)

End Sub

Hvis du skal have melleumrum imellem skal du nok bruge

resultat(x) = c & " " & c1

Super - hvis du smider et svar så skal jeg acceptere :-) Dog hvis jeg må være lidt krævende og nysgerrig. Ville man kunne dele det op så man fik kolonne A indholdet i kolonne C men kolonne A stående selvstændigt i D - dvs

Kolonne A          Kolonne B    Kolonne C      Kolonne D
X2525              A              X2525            A
X3562              B              X2525            B
X3546              C              X2525            C
                                  X3562            A
                                  osv.          osv.

Sådan ?

Sub Test_Delt()
    Dim rng1 As Range
    Dim rng2 As Range
    Dim resultat()
   
    Set rng1 = Range("A1:A" & Range("A65536").End(xlUp).Row)
    Set rng2 = Range("b1:b" & Range("b65536").End(xlUp).Row)
   
    ReDim resultat(1 To rng1.Cells.Count * rng2.Cells.Count, 1 To 2)
    For Each c In rng1
        For Each c1 In rng2
            x = x + 1
            resultat(x, 1) = c
            resultat(x, 2) = c1
        Next
    Next

    Range("C1").Resize(x, 2) = resultat

End Sub

Det er bare super, tak for hjælpen :-)

så skal du bare lige acceptere svaret :-)