Имя диапазона

[CAMyM]

Необходимо в качестве диапазона выбирать текущий столбец. Хотелось бы делать это в цикле. Возможно ли это?

[pashulka]

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

Dim iDiapazon As Range
Set iDiapazon = ActiveCell.EntireColumn

А присвоить имя этому диапазону можно, использовав любой из двух нижеопубликованных вариантов.

ActiveCell.EntireColumn.Name = "MyName"

ActiveWorkbook.Names.Add Name:="MyName", _
RefersTo:="=" & ActiveCell.EntireColumn.Address

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

[CAMyM]

О циклах...
Есть набор данных, имеющий древовидную структуру. Необходимо для каждого родителя формировать список его потомков.
Например...

a - 1й уровень
-aa - 2й уровень
--aaa - лист
--aab - лист
-ab - 2й уровень
--aba - лист
--abb - лист
b - 1й уровень
-ba - 2й уровень
--baa - лист
--bab - лист
-bb - 2й уровень
--... - лист

Необходимо отображать эти данные так:

| a | ab | abb | - где "| |" столбцы

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

Своего рода фильтрация получается, что-ли...

[pashulka]

Возможно имеет смысл опубликовать исходные данные (не содержащие конфиденциальной информации) и то, что Вы, в результате всех действий, хотите получить ...

[CAMyM]

Может так чего-нибудь прояснится...

[pashulka]

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

[CAMyM]

Спасибо на добром слове... )))
Вот Вам файлик...

[ZORRO2005]

CAMyM
Посмотрите здесь

[CAMyM]

Спасибо. Только это не поможет... Исходные данные создаются импортируются, известна только структура...