Vraag : Excel VBA - voeg identiteitskaart voor elke rij aan resultaten toe

Het dossier in bijlage heeft één of andere code die de lijnen en alle kolommen in één die kolom combineert, met etiket-koorden aan het begin worden toegevoegd.  De code werd geschreven aan begin met de eerste kolom (op het blad SurveyText) en combineert all.
Now, heb ik een andere kolom toegevoegd (col. A) met een aantal van identiteitskaart voor elke rij.  Zo, zou de combineren-kolomfunctie met de tweede kolom moeten beginnen.  Plus, zou het de code van identiteitskaart aan elke cel in de rij aan het eind moeten toevoegen (deze manier, de eindresultaten in de enig-gecombineerde kolom kan terug naar het originele rijaantal worden gevonden). de code

This geschreven door StephenJR en het is zeer compact en elegant (in mijn, het advies van de beginner) en zoals zulke -- Ik kan niet nog te weten komen hoe het hulp works.
Any u kunt verstrekken zeer zal gewaardeerd worden!

Attachments:

van

sampleText-combineColumns.xls (39 KB)  (de Details van het Type van Dossier)  

combineer columns

Related Oplossingen: Excel VBA - beginnersvraag, vastgestelde waaier zoals veranderlijk, compensatie, wijst doel en lijn toe mede…

Antwoord : Excel VBA - voeg identiteitskaart voor elke rij aan resultaten toe

Dit zou de truc moeten doen

Openbare SubCombineColumns ()

Schemerig r zoals lang, c zoals lang

Met Bladen („surveyText“)
    Voor c = 2 aan. Cellen (1. Columns.Count). Eind (xlToLeft). Kolom - 1 Stap 2
        Voor r = 2 aan. Cellen (. Rows.Count, c). Eind (xlUp). Rij
            Bladen („Sheet1“). Cellen (Rows.Count, 1). Eind (xlUp) (2) =. Cellen (r, 1) &“ - „&. Cellen (r, c) &“ _ „&. Cellen (1, c) &“ - „&. Cellen (r, c + 1)
        Volgende r
    Volgende c
Eind met

Sub van het eind