Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Excel

Автор: Paradox 16.4.2004, 14:04

Можно ли как нибудь в Excel повернуть таблицу на 90 градусов, чтобы столбцы стали строками а строки столбцами
то есть
например
было так

1 2 3 4
a b c d
е п р с

а стало так
1 а е
2 b п
3 c p
4 d с

Автор: Guest 16.4.2004, 16:00

Код


Dim a(1 To 4, 1 To 4) As Variant
Dim x, y As Integer

For x = 1 To 4
  For y = 1 To 4
    a(x, y) = Cells(x, y).Value
    b(x, y) = a(y, x)
  Next y
Next x

For x = 1 To 4
  For y = 1 To 4
     Cells(x, y).Value = a(y, x)
  Next y
Next x

Автор: Staruha 16.4.2004, 20:03

Есть такая формула =ТРАНСП
fx - ссылки и массивы-ТРАНСП и т.д.