Формирование столбца из данных других столбцов

[Domk]

Здравствуйте глубокоуважаемые маги и гуру!
Каждый день в Excel выполняю работу, которую, как мне кажется можно упростить несложным макросом, а именно:
Имеются несколько столбцов с данными, которые я переношу в определенный столбец. Все столбцы абсолютно идентичны по структуре и находятся в пределах одного листа.
"новый" формируемый столбец можно пометить единичкой, допустим в пятой строке, чтобы макрос понял, в какой столбец переносить данные.
далее: в ячейка одного из исходных столбцов копируется и переносятся в "новый" столбец в ту же строку, вставляясь туда "как формула", после чего курсор возвращается обратно и очищает ячейку как Delete.

Помогите пожалуйста! Заранее благодарен!

[Денис]

В 2003 году у меня возникла точно такая проблема: автоматизировать работу с листом. В отличие от тебя у меня не было ни интернета, ни даже справки. Я решил проблему так: включил запись макроса, сделал все требуемые действия. Остановил запись. Открыл бейсик и проанализировал полученный код. На его основе построил свой макрос с циклами, переменными и т.п.
Попробуй.

[Domk]

Конечно, я бы так и сделал, но как объяснить макросу в КАКОЙ столбец нужно копировать? Он каждый день разный, для этого я и хотел пометить его единицей...

[iGrok]

Конечно, я бы так и сделал, но как объяснить макросу в КАКОЙ столбец нужно копировать? Он каждый день разный, для этого я и хотел пометить его единицей...

Выбери ряд, в котором будешь ставить пометки.
Потом в макросе циклом перебирай WorkSheet.Cells() с этим номером ряда и счётчиком цикла в роли номера столбца.
Где увидишь в Cells.Text свою единичку - туда и копируй столбец.

Только для цикла лучше ограничение поставить. Чтобы не получилось, что будучи запущенным без единички в одном из столбцов, он будет перебирать все ячейки (256 в ширину, вроде).

[Domk]

Эх, ребята, для экономиста это просто непостижимо

[iGrok]

Ок. Можно проще. )

Сделай для начала то, что посоветовал Денис.
Если твои действия записать, открыть получившийся макрос и немного над ним подумать, то в итоге у тебя должен получиться макрос, копирующий всё, что тебе нужно в какой-то один столбец.
Замени номер этого какого-то одного столбца на переменную. К примеру "CurColumn" а её значение в самом начале макроса запроси у пользователя при помощи:

Код: Выделить всё

CurColumn = Val(InputBox("Введите номер столбца"))
'С последующей проверкой на нажатие отмены, или "кривой" ввод.
If CurColumn = 0 Then Exit Sub


В итоге, при выполнении макрос спросит тебя, куда копировать, и всё сделает. Это чтобы единички не искать. =)