Цитата:
|
Нажмите стрелку справа от кнопки Вставить , а затем установите флажок транспонировать
|
Хе-хе. Если идет речь о ВСЕЙ строке, такой номер не пройдет.... т.к. области копирования и вставки НЕИЗБЕЖНО будут перекрываться. Кроме того строка на листе 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).
