Соединение значений в столбцах (Очень нужна помощь!)

[123456678]

Доброго времени суток, уважаемые форумчане!
Столкнулся с проблемой при написании кода.
Задача состоит в следующем: Есть таблица в которой (в каждом столбце) имеется необходимая информация(например дата, место провидения, сумма, время), но для удобства её обработки необходимо её переместить по столбцам, а некоторые столбцы объединить в один(что бы в одном столбце вместе стояли дата и время, в другом отдельно сумма и т.д.).
Есть один нюанс, таких таблиц много, и количество строк в них всегда разное.
С переносом столбцов с места на место справились без проблем, силами копирования и перемещения. Объединить тоже получилось, но только силами формул, а что бы применить формулу ко всему столбцу возникли сложности.

ActiveCell.FormulaR1C1 = "=RC[1]&RC[2]&RC[-1]"
Selection.AutoFill Destination:=Range("B3:B125"), Type:=xlFillDefault


В принципе такой код вполне устраивал. Но возникла проблема в том, что определяем количество строк в таблице переменно "i". А вот как вставить эту переменную в значение номера ячейки что бы получилось так (но было работоспособно):

Selection.AutoFill Destination:=Range("B3:B&i"), Type:=xlFillDefault

Тип переменной пробовал и Range и Integer не получается. Подскажите пожалуйста как поправить.
А может есть способ проще слепить эти столбцы? но с учетом того что количество строк всегда разное (варьируется от 100 до 300 000 и более)

Очень надеюсь на Вашу помощь.

[IgorGO]

Selection.AutoFill Destination:=Range("B3:B&i"), Type:=xlFillDefault

так почти все уже написано, переносим кавычку на 3 символа влево добавим пробелов и... готово

Selection.AutoFill Destination:=Range("B3:B" & i), Type:=xlFillDefault

[doober]

То ,что в кавычках у вас-это текст,переменную надо вынести на свободу
Selection.AutoFill Destination:=Range("B3:B&i"), Type:=xlFillDefault
Selection.AutoFill Destination:=Range("B3:B" & i ), Type:=xlFillDefault

PS:Опять не успел

[IgorGO]

Сережа, зато "отпустить переменную на свободу" - звучит гораздо круче!!!
очень образная фраза

[IgorGO]

а в режиме "all inclusive" строка может выглядеть так:

Selection.AutoFill Destination:=Range("B3:B" & cells(rows.count,2).end(xlup).row), Type:=xlFillDefault

[123456678]

IgorGO, doober, Огромное Вам спасибо!
К сожалению целиком код не под рукой , затра с утра все проверю!
Одно маленькое уточнение, какой тип переменной ставить? Long или Range? или так и не понимаю до конца...

З.Ы. "Вынести на своду" - это звучит гордо! амнистия почти, мать её!

[IgorGO]

а последний вариант вообще без переменной, она вычисляется внутри выражения, как № последней строки с данными в колонке В

[123456678]

IgorGO, Спасибо за оба варианта!
Душа не выдержала ждать до завтра, набросал примерно то что мне надо, правда без встроенной функции определения номера последней заполненной строки (которая определяет значение переменной) и ТАДАМ! все заработало!
Второй вариант я не совсем понял, но если не ошибся, там есть недостаток, что если в столбце окажется пустая ячейка, то он на ней остановится. Но завтра постараюсь по экспериментировать.

А ещё, если не сложно, может подскажите какую нибудь нормальную книгу, желательно на русском (я понимаю что это почти не сопоставимо), про VBA?

[doober]

может подскажите какую нибудь нормальную книгу, желательно на русском (я понимаю что это почти не сопоставимо), про VBA?

Мое мнение.
Лучшая книга-это попробовать разобраться в решениях,которые выкладывают на форумах.
Постепенно увеличивая уровень сложности.
Скопировали код себе в файл,выполняете по шагам,смотрите на значения переменных.
Попытаться понять смысл происходящего.
На это уйдет не один год.

[123456678]

doober, спасибо за совет, попробую.
А про время это точно. "Всю жизнь учись, все равно дураком помрешь" (с)