Страницы: 1
RSS
Транспонирование таблицы со связями, Нужно, чтобы в уже транспонированной таблице были формулы из исходной
 
Собственно, все написано в теме. Есть таблица, нужно транспонировать. Можно через двссыл, можно через индекс (даже быстрее), но тогда в конечной таблице будут не формулы исходной таблицы, а формулы индекс или двссыл. Есть ли способ транспонировать таблицу именно с теми формулами, что в исходной?
 
см. п.2.3 правил форума.
 
Код
Sub ddd()
Set a = Application.InputBox("Выделите таблицу, которую нужно транспонировать", , , , , , , 8)
b = a.Formula
Set d = Application.InputBox("Выделите ячейку, куда нужно вставить таблийу", , , , , , , 8)
e = WorksheetFunction.Transpose(b)
d.Resize(UBound(b, 2), UBound(b)) = e
End Sub
 
Огромное спасибо. Искал, искал, не мог найти
Страницы: 1
Наверх