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é