Sammensmelte to kolonner til en

VBA koden indlægges i Ark1:


Dim størsteTal
Sub Sammensætkolonner()  '<-- Udførelsen begynder her
    gennemGåRækker
    organiserKolonneC
End Sub
Private Sub gennemGåRækker()
Dim ræk, kol
    størsteTal = 0
Rem Gennemgå rækker
    For ræk = 1 To 65500
        If Cells(ræk, 1) = "" And Cells(ræk, 2) = "" Then
            Exit Sub
        End If
       
        For kol = 1 To 2
            tal = Cells(ræk, kol)
            If tal <> "" Then
                If Cells(tal, 3) = "" Then
                    Cells(tal, 3) = tal        'indsæt tal i kolonne C
                    If tal > størsteTal Then
                        størsteTal = tal
                    End If
                End If
            End If
        Next kol
    Next ræk
End Sub
Private Sub organiserKolonneC()
    For ræk = størsteTal To 1 Step -1
        If Cells(ræk, 3) = "" Then
            Cells(ræk, 3).Select
            Selection.Delete Shift:=xlUp
        End If
    Next ræk
End Sub

langt hen af vejen supert, men er det muligt at lave samme "tricks", hvis cellerne ikke nødvendigvis er tal? (ved godt jeg ikke lige fik skrevet det før).

kol1  Kol2  kol3 (ønsket)
1    jeg  1 
jeg  2    jeg
2    3    2
            3

således at rangeringen er kol1-række1 dernæst kol2-række1 dernest kol2-række1 ovs...

Beklager den manglende beskrivelse i original...

Sæt de 2 kolonner under hinanden
Lav en overskrift i A1

Kør denne, den sætter dem i i kolonnen
Ret 200 til sidste række med data i

Range("A1:A200").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "I1"), Unique:=True

super, takker og send et svar...

et svar ;-))