Ссылка на динамический диапазон данных

[NikolayGVB]

Дорогие Коллеги,

очень нужен Ваш профессиональный совет. Я пока в VBA не силен, многое не получается

Мне необходимо копировать части данных из одного файла в другие. Копирование производится по столбцам, которые в исходном файле каждый день имеют разную длину. Я попытался реализовать задачу с использованием следующих команд:

' LastRow = номер последней ячейки в исходном файле (например, 144), _
CurrentClm = индекс выбранного столбца (например, AB), _
LastCell = соответственно, полное наименование последней ячейки выделяемого диапазона (в данном случае значение AB144)

LastCell = CurrentClm & LastRow ' значение LastCell = AB144
Range("AB1:LastCell").Select
Selection.Copy

Попытка использования Range("AB1:LastCell").Select вызывает ошибку "Method "Range" of object "_Global" failed".

Подскажите, пожалуйста, как ПРАВИЛЬНО сослаться на диапазон.

Заранее благодарен,
с уважением,
Николай

[EducatedFool]

Замените строку Range("AB1:LastCell").Select на Range("AB1:" & LastCell).Select

Но выделять диапазон ячеек для копирования совсем необязательно.

Лучше использовать что-то вроде этого:

    For i = 15 To 23
        Range(Cells(1, i), Cells(65000, i).End(xlUp)).Copy   [a5].Offset(, i - 11) 
    Next i

Этот код скопирует содержимое столбцов с 15 по 23-й (копируя диапазоны ячеек, начиная с первой, и заканчивая последней заполненной) в столбцы 1-9, начиная вставку с 5-й строки (Offset - это смещение)

Конструкция Cells(65000, i).End(xlUp) возвращает ссылку на последнюю заполненную ячейку в данном столбце (равносильно выделению ячейки в строке 65000, и последующему нажатию Ctrl + СтрелкаВверх)




А этот код произведёт копирование на другой лист, начав вставку с ячейки B3:

    For i = 11 To 23
        Range(Cells(1, i), Cells(65000, i).End(xlUp)).Copy   Worksheets("ЛистДляКопии").[b3]
    Next i

Здесь есть информация по теме.

[NikolayGVB]

ЗдОрово, работает! ОГРОМНОЕ спасибо за высокопрофессиональную помощь, очень Вам признателен.

С уважением,
Николай