Знатокам синтаксиса формул Excel VBA. Как написать формулу

[Aent]

Что то вы не то написали, дорогие товарищи.
1)результатом приведённого кода является инициализация массива sVar строковыми значениями из ранга, а вовсе не присваивание переменным, указанным ViktorM.
2) даже в этом случае Split и прочее cовсем не нужны. Что мешает сразу определить массив
Array(-14,-13,...2)
3)Ранг можно прочитать в массив и непосредственно

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

Div v()
v = Range( ActiveCell.Offset(iзап, 0).Resize(, 9))
'Получается двумерный массив v(1,1), v(1,2),v(1,3) ....

Чем им удобнее оперировать чем просто ячейками я не понимаю
4) Разименования в VBA нет это всё таки не С++
Можно динамически переопределять имена листа
Но нельзя вычислять имя переменной VBA для левой части оператора присваивания

[VictorM]

Aent,

Чем им удобнее оперировать чем просто ячейками я не понимаю

да, похоже Вы правы. Лишняя головная боль.

[VictorM]

Здравствуйте, Уважаемые.
Опять "заклинило" , прошу помощи.
Суть такова:
начальная яч. диапазона A5
конечную, правую нижнюю, нахожу так:
Range("A5").End(xlDown).Offset(0, 6).Select (Select - пока, временно) т.к. кол-во строк не знаю.
А теперь мне нужно этот дипазон скопировать.
Я написал конечно, но двумя строками с Select и чувствую, что коряво.
Понимаю, что можно определить диапазон для копирования одной строкой, но как только начинаю все это приводить к одной строке, VBE "жутко ругается" на скобки и синтаксис.
**************************
Простите за лишний пост, все написал.
Эта строка должна выглядеть так:
Range(Range("A5"), Range("A5").End(xlDown).Offset(0, 6)).Copy
**************************************
p.s. а мож это можно написать по другому, без .End(xlDown) ?

[Aent]

[A5].CurrentRegion.Copy ?
Если в столбце G есть данные

[SAS888]

Если в столбце "G" нет данных, то нет и требуемого диапазона.
Если есть, например, одно значение, то код

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

Range(Range("A5"), Range("A5").End(xlDown).Offset(0, 6)).Copy

скопирует диапазон "A5:G" & Rows.Count, т.е. до последней строки листа. Что есть не правильно, не говоря уже о том, что в столбце "G" может много раз встретиться пустая ячейка. Корректно, опять же при условии наличия хотя бы одного значения в столбце "G" (If Columns("G").Text <> ""), можно записать:

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

Range([A5], Cells(Cells(Rows.Count, "G").End(xlUp).Row, "G")).Copy

[VictorM]

Aent, спасибо за совет, но .CurrentRegion в данном случае не идет, там вокруг этих данных полно еще всякого. Вообще стараюсь его применять очень ограниченно.
SAS888, большое спасибо, очень красиво. И работает как надо.
Только у меня вопрос возник, раньше не приходилось работать с [ ] и не могу понять синтаксис. Справка выдает "поиск не дал результатов".
Можно пару слов о применении [ ] ?
Спасибо.

[SAS888]

[A5] - это то же, что Range("A5"). Просто сокращенная запись, которую "понимает" компилятор VBA.

[VictorM]

SAS888, СПАСИБО!!!!
Я этого нигде не мог найти.

[VictorM]

И вот опять вопрос по синтаксису.
Почему вот это

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

Worksheets("БТ").Range([A5], Cells(Cells(Rows.Count, "G").End(xlUp).Row, "G")).ClearContents

не работает, если лист не активен. Если сделаю вот так

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

Worksheets("БТ").Activate
Range([A5], Cells(Cells(Rows.Count, "G").End(xlUp).Row, "G")).ClearContents

все работает
но у меня таких листов 5 штук и не хочу я их активировать, только для того чтобы очистить диапазон с данными
можно их конечно сгруппировать и т.д. , но меня интересует - почему не работает первая строка?
Спасибо.

[SAS888]

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

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

Worksheets("БТ").Range("A5")

до последней заполненной ячейки столбца "G" активного листа. Т.е. нужно так:

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

With Worksheets("БТ")
        .Range(.Range("A5"), .Cells(.Cells(Rows.Count, "G").End(xlUp).Row, "G")).ClearContents
    End With