Вопрос : Эксел VBA - приложите удостоверение личности для каждого рядка к результатам

Прикрепленный архив имеет некоторое Кодего закрепляет петлей и совмещает все колонки в одну колонку, при обозначать-шнуры приложенные к началу.  Кодий было написано к старту с первой колонкой (на листе SurveyText) и зернокомбайн all.
Now, я добавлял другую колонку (col. A) с номером удостоверения личности для каждого рядка.  Так, функция совмещать-колонки должна начать с второй колонкой.  Положительная величина, она должна добавить Кодего удостоверения личности к каждой клетке в рядке в конце (эту дорогу, окончательные результаты в одиночн-совмещенной колонке можно трассировать назад к первоначально номеру рядка). Кодий

This было написано StephenJR и оно очень компактно и шикарно (в моем, мнение beginner) и как такие -- Я все еще не могу давать в численном выражении как помощь works.Any вы можете предусмотреть больш будет оценено! class= " lastRow
>Attachments " имени " class= class= " значение "
>
class= " fileInfo "
title= " " filename class= " sampleText-combineColumns.xls (39 KB)  яваскрипт " href= " " attachmentDetails class= (тип архива детали)  
class= " описание "
зернокомбайн columns
class=
>
class= " ясное " >
Related: href= " /Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26388927.html " title= " Эксел VBA Excel VBA " class= " qRelatedParent " - вопрос о beginner, установило ряд как перемеююый, смещение, задает цель и петлю co…

Ответ : Эксел VBA - приложите удостоверение личности для каждого рядка к результатам

Это должно сделать выходку

Общественное Sub CombineColumns ()

Тусклый r как длиной, c как длиной

С листами («surveyText»)
    Для c = 2 к. Клетки (1. Columns.Count). Конец (xlToLeft). Колонка - 1 раздел 2
        Для r = 2 к. Клетки (. Rows.Count, c). Конец (xlUp). Рядок
            Листы («Sheet1»). Клетки (Rows.Count, 1).End (xlUp) (2) =. Клетки (r, 1) &» - «&. Клетки (r, c) &» _ «&. Клетки (1, c) &» - «&. Клетки (r, c + 1)
        Следующий r
    Следующий c
Конец с

Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us