Cuestión : Excel VBA - añadir la identificación para cada fila a los resultados

El archivo atado tiene cierto código que coloque y combine todas las columnas en una columna, con las etiquetar-secuencias añadidas al principio.  El código fue escrito al comienzo con la primera columna (en la hoja de SurveyText) y la cosechadora all.
Now, he agregado otra columna (columna. A) con un número de identificación para cada fila.  Así pues, la función de la combinar-columna debe comenzar con la segunda columna.  Más, debe agregar el código de identificación a cada célula en la fila en el extremo (esta manera, los resultados finales en la columna solo-combinada se puede rastrear al número original de la fila). el código del

This fue escrito por StephenJR y es muy compacto y elegante (en mi, opinión del principiante) y como tal -- ¡Todavía no puedo imaginar cómo ayuda de works.
Any que usted puede proporcionar será apreciado grandemente! class= " lastRow del
>Attachments del " nombre " del class= del class= " valor " del
del >
class= " fileInfo " del
el title= " del " nombre de fichero del class= " del sampleText-combineColumns.xls el class= (39 KB)  Javascript del href= " de los " attachmentDetails del class= " del (tipo de archivo detalles)  
class= " descripción " del
cosechadora columns
el class= de
del >
class= > " claro " del
soluciones >Related class= el href= " /Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26388927.html " title= " Excel VBA - pregunta del Excel " qRelatedParent " VBA " del class= - pregunta del principiante, fijó la gama como la variable, compensación, asigna la blanco y el lazo co…

Respuesta : Excel VBA - añadir la identificación para cada fila a los resultados

Esto debe hacer el truco

CombineColumns secundario público ()

R dévil como de largo, c como de largo

Con las hojas (“surveyText”)
    Para c = 2 a. Células (1. Columns.Count). Extremo (xlToLeft). Columna - 1 paso 2
        Para r = 2 a. Células (. Rows.Count, c). Extremo (xlUp). Fila
            Hojas (“Sheet1”). Células (Rows.Count, 1).End (xlUp) (2) =. Células (r, 1) y” - “y. Células (r, c) y” _ “y. Células (1, c) y” - “y. Células (r, c + 1)
        R siguiente
    C siguiente
Extremo con

Submarino del extremo
Otras soluciones  
 
programming4us programming4us