Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Хочу все знать (http://forum.oszone.net/forumdisplay.php?f=23)
-   -   Excel | преобразовать строку в столбец (http://forum.oszone.net/showthread.php?t=58279)

BRAT2 19-12-2005 11:58 384611

Excel | преобразовать строку в столбец
 
Как в экселе строку преобразовать в столбец?

XPEHOMETP 19-12-2005 15:33 384709

Справочку по Ёкселю надо внимательней читать! Вот что она говорит:

Транспонирование строк в столбцы или столбцов в строки
Данные из верхней строки области копирования отобразятся в левом столбце области вставки, и, соответственно, данные из левого столбца копируемой области отобразятся в верхней строке области вставки.

Выделите ячейки, которые требуется транспонировать.
Нажмите кнопку Копировать .
Выделите левую верхнюю ячейку области вставки. Область вставки не должна накладываться на область копирования.
Нажмите стрелку справа от кнопки Вставить , а затем установите флажок транспонировать

Pliomera 19-12-2005 17:49 384754

Цитата:

Нажмите стрелку справа от кнопки Вставить , а затем установите флажок транспонировать
Хе-хе. Если идет речь о ВСЕЙ строке, такой номер не пройдет.... т.к. области копирования и вставки НЕИЗБЕЖНО будут перекрываться. Кроме того строка на листе excel содержит 256 ячеек, а столбец - 32 тыс. с хвостиком.
Стало быть пишем на VBA:

Public Sub Transpos(x As Integer, y As Integer)
Dim t As Integer
Do While t < 256
t = t + 1
If t = x Then z = ActiveSheet.Cells(x, t).Value: GoTo 1
ActiveSheet.Cells(t, y).Value = ActiveSheet.Cells(x, t).Value
1
ActiveSheet.Cells(x, t).ClearContents
Loop
ActiveSheet.Cells(x, y).Value = z
End Sub

Вызываем процедуру откуда надо, например:
TransPos 4, 6
считает все данные из строки 4 и запишет их в столбец 6 (F).


Время: 16:26.

Время: 16:26.
© OSzone.net 2001-