1. Перестаньте создавать одну и ту же тему :)  
2. Приложите Excel файл (а не картинку). В файле можете заменить всю важную информацию на "бабочки", "цветочки", "яблоки". Много строк не нужно (строк 10-20). Т.е. полностью весь ваш прайс на 5мб нам не нужен  
 
P.S. Когда в следующий раз будете делать снимок активного окна, то нажимайте кнопку ALT вместе с PrintScreen, чтобы вам больше не приходилось обрезать часть картинки

Вот, записал макрорекордером  
Sub Макрос1()  
      With Columns("B:B")  
       .HorizontalAlignment = xlLeft  
       .Orientation = 0  
       .AddIndent = False  
       .IndentLevel = 0  
       .ShrinkToFit = False  
       .ReadingOrder = xlContext  
   End With  
End Sub  
 
Или вручную: выбеляем стобец 2; правой кнопкой на любой ячейке стобца - формат ячеек - выранивание: по левому краю - отступ - "0"

{quote}{login=ignel}{date=15.08.2010 05:28}{thema=}{post}Это не совсем то, что нужно...  
 
Т.е. вытащить из второй колонки все группы, подгруппы, товары и разместить их в отдельных колонках...{/post}{/quote}В таком случае оставьте несколько строк прайса на одном листе, а на втором покажите, что должно получиться.  
 
26626

{quote}{login=ignel}{date=15.08.2010 06:00}{thema=}{post}Добавил в файлик еще одну вкладку. Вкладки называются "Что есть" и "Что требуется". На первой розовым выделен формат, в котором табличка сейчас. На второй, светло-зеленым, - какой нужен...{/post}{/quote}  
необходим признак по которому можно определить группу и подгруппу  
в ваших данных таких признаков вроде нет

{quote}{login=kim}{date=15.08.2010 07:16}{thema=}{post}Признаки есть - размер отступа :-){/post}{/quote}  
ну да через IndentLevel можно попробовать

Вот, как вариант  
 
 
 
 
 
86768

{quote}{login=Hugo}{date=16.08.2010 09:42}{thema=}{post}Странно, у меня Transpose на таких объёмах не срабатывает, уже второй раз сталкиваюсь.  
Удалил всё, что ниже джемов - отработало.{/post}{/quote}В моем файле работает? И что такое "джемов"?

А-А, в первоначальной таблице... а я их у себя в коде ищу ;-)  
А сколько памяти в компе?  
Вероятно, для слабых компов код нужно переделать.... я как раз об этом думал...  
но будет очень медленно.

Понимаю что мой способ обработки на фоне кодов и макросов будет выглядеть как каменный топор против АК-47 но всеже.  
1) Удаляем строчки в которых в столбце В пусто, при помощи автофильтра.  
2) прогоняем макрос на название жирным шрифтом, в столбце А появятся +(спасибо форуму за идею)  
 
Sub Жирность()  
Dim i As Long  
For i = 1 To 16999  
If Cells(i, 2).Font.Bold = True Then Cells(i, 1) = "+"  
Next  
End Sub  
3) Далее при помощи автофильтра в столбце А выбираем+.  
4) в столбце Е прописываем формулу e9=a9 и протягиваем ее.  
5) ручками выносим разделяем категории и подкатегории по разным столбцам.  
6) А далее фокус. В столбце А выбираем "Пустые".  
В столбце E если мы оставили самые низкие категории типа Каша, Супы....консервы мясорастительные и тп. у нас получится следующая формула: E12=E11 и протягиваем эту формулу до самого низу.  
Тожесамое делаем в соседних столбцах с категориями и подкатегориями.  
7) Столбцы E F G сохраняем как значения.  
8) в столбце А выбираем + при помощи автофильтра и удаляем все строчки.  
9) вуаля все протянуто.  
 
как сделать подобное при помощи макроса не знаю.

Должно, но не работает...  
тут ошибка:  
Range(Cells(1, 1), Cells(k, 7)) = Application.WorksheetFunction.Transpose(Tabl)

{quote}{login=Михаил}{date=16.08.2010 01:41}{thema=}{post}Вот, как вариант  
86768{/post}{/quote}  
Михаил, огромное спасибо! Макрос работает. Единственное, он вывалился в дебаг с ошибкой Run-time error 9: Subscript out of range на вот этой строчке - Sheets("Лист1").Select . Макрос не нашел этого листа, поскольку его не было. Создал лист с этим именем, продолжил конвертацию. Весь полный прайс конвертнулся нормально. Это относится к первому макросу (post_146011.rar), который Вы прикладывали к сообщению. Второй макрос немного не так раскидывает разделы/подразделы. Ну да не суть важно. Первый работает просто отлично!!!  
 
Еще раз спасибо Вам и всем участвующим в обсуждении за оперативность и доброжелательность!  
 
С уважением - Игорь.

{quote}{login=Hugo}{date=16.08.2010 12:27}{thema=}{post}Может версия офиса? Сейчас и дома на 2000 запускал, вечером на 2003 проверю.{/post}{/quote}Мы с вами чем-то схожи... я использую 2010, вы 2000; зато я езжу на "горбатом" Запорожце, а Вы?  
:-)

{quote}{login=Hugo}{date=16.08.2010 12:54}{thema=}{post}Ну моя машина стоит 3 зарплаты.{/post}{/quote}  
Машина = комп или Машина = автомобиль? :-)

{quote}{login=Hugo}{date=16.08.2010 11:46}{thema=}{post}  
тут ошибка:  
Range(Cells(1, 1), Cells(k, 7)) = Application.WorksheetFunction.Transpose(Tabl){/post}{/quote}Где-то я видел такую конструкцию:  
 
Set MyRange = Range(Cells(1, 1), Cells(k, 7))  
MyRange= Application.WorksheetFunction.Transpose(Tabl)  
 
не знаю, что это дает, но попробовать можно...