Questione : Excel VBA - aggiungere l'identificazione per ogni fila ai risultati

La lima allegata ha certo codice che collega ed unisce tutte le colonne in circuito in una colonna, con le identificare-stringhe allegate all'inizio.  Il codice è stato scritto all'inizio con la prima colonna (sullo strato di SurveyText) e associazione all.
Now, ho aggiunto un'altra colonna (colonna. A) con un numero di identificazione per ogni fila.  Così, la funzione della unire-colonna dovrebbe cominciare con la seconda colonna.  Più, dovrebbe aggiungere il codice di identificazione ad ogni cellula nella fila all'estremità (questo senso, i risultati finali nella colonna singolo-unita può essere seguito di nuovo al numero originale di fila). il codice del

This è stato scritto da StephenJR ed è molto compatto ed elegante (in mio, opinione del principiante) e come tali -- Ancora non posso calcolare fuori come aiuto che di works.
Any potete fornire notevolmente sarà apprezzato! class= " lastRow del
>Attachments " di nome " del class= del class= " valore " del
il

class= " fileInfo " del
il title= " " di nome di schedario del class= " di sampleText-combineColumns.xls il class= (39 KB)  Javascript " del href= " " dei attachmentDetails del class= di (tipo di lima particolari)  
class= " descrizione " del
associazione columns
il class= di
del >
class= > " libero " del
soluzioni >Related class= il href= " /Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26388927.html " il title= " Excel VBA - domanda di Excel " qRelatedParent " VBA " del class= - domanda del principiante, ha regolato la gamma come la variabile, contrappeso, assegna l'obiettivo ed il ciclo il co…

Risposta : Excel VBA - aggiungere l'identificazione per ogni fila ai risultati

Ciò dovrebbe fare il trucco

CombineColumns secondario pubblico ()

R fioca come lungamente, c come lungamente

Con gli strati (“surveyText„)
    Per c = 2 a. Cellule (1. Columns.Count). Estremità (xlToLeft). Colonna - 1 punto 2
        Per r = 2 a. Cellule (. Rows.Count, c). Estremità (xlUp). Fila
            Strati (“Sheet1„). Cellule (Rows.Count, 1).End (xlUp) (2) =. Cellule (r, 1) &„ - “&. Cellule (r, c) &„ _ “&. Cellule (1, c) &„ - “&. Cellule (r, c + 1)
        R seguente
    C seguente
Estremità con

Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us