Question : Excel VBA - apposer l'identification pour chaque rangée aux résultats

Le dossier joint a un certain code qui fait une boucle et combine toutes les colonnes en une colonne, avec des marquer-cordes apposées au commencement.  Le code a été écrit au début avec la première colonne (sur la feuille de SurveyText) et le cartel all.
Now, j'ai ajouté une autre colonne (colonne. A) avec un numéro d'identité Pour chaque rangée.  Ainsi, la fonction de combiner-colonne devrait commencer par la deuxième colonne.  Plus, elle devrait ajouter le code d'identification À chaque cellule dans la rangée à l'extrémité (de cette façon, les résultats finaux dans la colonne simple-combinée peut être tracée de nouveau au nombre original de rangée). le code du

This a été écrit par StephenJR et il est très compact et élégant (dans mon, l'opinion du débutant) et en tant que tels -- Je ne peux pas encore figurer dehors comment on l'appréciera considérablement aide de works.
Any que vous pouvez fournir !
class= " lastRow de
>Attachments de " nom " de class= de
class= " valeur " de
>

class= " fileInfo " de
le title= " de " nom de fichier de class= " de sampleText-combineColumns.xls le class= (39 KBS)  Javascript de href= " de " attachmentDetails de class= " de (type de dossier détails)  
class= " description " de
cartel columns
le class= de
de >
class= > " clair " de
solutions >Related class= le href= " /Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26388927.html " title= " Excel VBA - question de Excel " qRelatedParent " VBA de class= - question de débutant, a placé la gamme comme la variable, excentrage, assignent la cible et la boucle Co…

Réponse : Excel VBA - apposer l'identification pour chaque rangée aux résultats

Ceci devrait faire le tour

CombineColumns secondaire public ()

Faible r en tant que longtemps, c en tant que longtemps

Avec des feuilles (« surveyText »)
    Pour c = 2 à. Cellules (1. Columns.Count). Extrémité (xlToLeft). Colonne - 1 étape 2
        Pour r = 2 à. Cellules (. Rows.Count, c). Extrémité (xlUp). Rangée
            Feuilles (« Sheet1 »). Cellules (Rows.Count, 1).End (xlUp) (2) =. Cellules (r, 1) et » - « et. Cellules (r, c) et » _ « et. Cellules (1, c) et » - « et. Cellules (r, c + 1)
        Prochain r
    Prochain c
Extrémité avec

Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
  •  Winzip 12 issues de secours du travail ?
  •  
    programming4us programming4us