Разворот таблицы на 90°

[dobrohleb]

Всем доброго времени суток! Ув. форумчане, очень прошу Вас помочь! Шеф дал задание, с которым я сам, видимо, не в силах справиться!

Вопрос в следующем: имеется таблица Excel, столбцы, строки и текст в ней развернуты на 90° против часовой стрелки. Нужно всего-то привести ее к нормальному виду, т.е. повернуть всю таблицу с текстом на 90° по часовой стрелке.

Полазив по форуму и интернету, нужного решения не нашел. Вариант с транпонированием таблицы через меню "Специальная вставка..." не подходит.

Пожалуйста, у кого есть варианты по решению задачи, прошу оказать помощь!

Файл с примером прилагается: Лист1 - начальный вариант таблицы, Лист2 - конечный результат (разворачивал вручную )

razvorot.zip

[IgorGO]

см.вложение

[Казанский]

Тож делал когда-то: http://forum.ixbt.com/topic.cgi?id=23:36087

[dobrohleb]

Спасибо за мгновенный ответ! Но такой вариант немного не подходит. В заголовке таблицы должны остаться дни недели, а строки - Фамилии. Эту таблицу я создал для примера. У шефа она большего размера и более сложной формы!

[IgorGO]

не рассмотрел сначала. разворачивать-то надо с листа1))

[dobrohleb]

Ok, IgorGO!!! Вижу вопрос Вы поняли!!! Объясните, пожалуйста, КАК у Вас это получилось!!!

[IgorGO]

разворот на листе2 - это копирование, специальная вставка с ТРАНСПОНИРОВАНИЕМ

разворот на листе1 - это формулы, они на листе. точнее - это одна формула скопированная в соотв. количество ячеек.

[nerv]

У шефа она большего размера и более сложной формы!

Кручу верчу, шефу угодить хочу) Еще вариант. Только направление текста потом изменить не забудьте...

Sub io()
Dim x As Object
For Each x In Cells.SpecialCells(2)
    x.Copy Cells(x.Column, 20 - x.Row)
Next
End Sub

[dobrohleb]

Сообщение от nerv

Кручу верчу, шефу угодить хочу)...

Угодить или нет, а задача поставлена конкретная и подлежит выполнению!

[nerv]

Сообщение от dobrohleb

а задача поставлена конкретная и подлежит выполнению!

Так в чем проблема? Копируете код в книгу, переходите на лист с таблицей, кот. надо "перевернуть", жмете Alt+F8, потом Enter.