Frage : Excel VBA - Identifikation für jede Reihe zu den Resultaten anfügen

Die angebrachte Akte hat irgendeinen Code, der alle Spalten in eine Spalte schlingt und kombiniert, wenn die Beschriftenschnüre zum Anfang hinzugefügt.  Der Code geschrieben zum Anfang mit der ersten Spalte (auf das SurveyText Blatt) und Mähdrescher all.
Now, addiert ich eine andere Spalte (Spalte. A) mit einer Identifikation-Zahl für jede Reihe.  So sollte die Kombinierenspalte Funktion mit der zweiten Spalte beginnen.  Plus, sollte sie die Kennzeichnung jeder Zelle in der Reihe am Ende hinzufügen (auf diese Weise, die Endergebnisse in der einzeln-kombinierten Spalte kann zurück zu der ursprünglichen Reihenzahl verfolgt werden).

This Code geschrieben von StephenJR und er ist (in meinem, Meinung des Anfängers) und als solcher sehr kompakt und elegant -- Ich kann noch nicht herausfinden, wie es works.
Any Hilfe, die Sie leisten können, sehr geschätzt!

Attachments:

sampleText-combineColumns.xls (39 KBS)  (Akten-Art Details)  

Mähdrescher columns

Related Lösungen: Excel VBA schlingen - Anfängerfrage, einstellte Strecke ge, wie Variable, Versatz, Ziel und Schleife Co… zuweisen

Antwort : Excel VBA - Identifikation für jede Reihe zu den Resultaten anfügen

Dieses sollte den Trick tun

Allgemeines VorCombineColumns ()

Schwaches r als lang, c als lang

Mit Blättern („surveyText“)
    Für c = 2 zu. Zellen (1. Columns.Count). Ende (xlToLeft). Spalte - 1 Schritt 2
        Für r = 2 zu. Zellen (. Rows.Count, c). Ende (xlUp). Reihe
            Blätter („Sheet1“). Zellen (Rows.Count, 1).End (xlUp) (2) =. Zellen (r, 1) u.“ - „u. Zellen (r, c) u.“ _ „u. Zellen (1, c) u.“ - „u. Zellen (r, c + 1)
        Folgendes r
    Folgendes c
Ende mit

Enden-Unterseeboot