Есть директория, в которой есть папки названные по ФИО, и в каждой из них различные файлы (графические в основном).
Подскажите, пожалуйста, как сделать, чтобы подобно выше макросу на лист в столбец А подтягивались название папок (ФИО), а по столбцам разносились название файлов с гиперссылками из этих папок. При обновлении добавлялись лишь новые папки/файлы.
Пример:
С:\
   \Иванов ИИ
     \2015.05.jpg
   \Смирнов СС
     \2015.04.jpg
     \2015.02.bmp
   \Сидоров АА
     \2014.12.jpg
     \2015.07.pdf
Должно получиться:

Иванов ИИ | 2015.05.jpg
Смирнов СС | 2015.04.jpg | 2015.02.bmp
Сидоров АА | 2014.12.jpg | 2015.07.pdf

Надо импортировать:
Вкладка Данные - Получение внешних данных Из текста - Мастер текстов (импорт) - "выбрать нужный разделитель для столбцов" - В шаге 3 для проблемных столбцов выбрать "текстовый формат ячейки" (при проблемах с цифрами в правой части "Подробнее" для выбора разделителей) - Готово

Не совсем понятен вопрос, но к примеру делал следующее: есть столбик со значениями на Листе1, с помощью ВПР искал его в диапазоне на Листе2, после этого вставлялась гиперссылка на найденную ячейку. Надо что-то более сложное?

Видно не так все просто как мне кажется, даже судя по справке http://support.microsoft.com/kb/291308/ru

А что необходимо подправить, если между столбцом Код и Поле1 есть другие столбцы.  
Заменить CurrentRegion.Value на Range() .Select, указав относительную ссылку в формате RC[]?
Если код не в первом столбце, тогда указать a=[*первая ячейка*], все верно?
Вопросы глупые, но VBA темный лес для меня

Уважаемые форумчане! Помогите решить проблемы, самостоятельно не могу придумать.  
Возможно ли стандартными функциями (или есть нет такой возможности макросом) сделать следующие:  
Есть таблица 1 колонка ключ. В поле1,2,3 могут быть значения (как минимум одно поле точно заполнено). Необходимо чтобы каждый ключ отводилось столько столько строк, сколько заполнено полей, пишется в строки с указанием наименования поля.    
Пример приложил.  
Заранее спасибо на наводку!

{quote}{login=genyaa}{/quote}  
Спасибо ОГРОМНОЕ! Очень помогло лишний раз полениться и не переделывать вручную