Транспонировать таблицу в Word

есть ли способ транспонировать (поменять местами строки и столбцы) в пост-ленте Microsoft Word (в настоящее время используется 2013)?

например, в этой таблице, я хочу, чтобы заголовки верхнего едет по левой стороне (те én, и т. д.), а левая рубрики (минивэн, Меги, jön) к верхней (очевидно, с данными переместились)
table to be transposed

Я currenly копировать и вставить в Excel, копировать и вставить снова, но выбрать специальную опцию вставки: транспонировать, а затем скопировать обратно в word. Но есть ли надлежащее способ сделать это изначально?

transpose menu

6
задан Judith
01.02.2023 13:27 Количество просмотров материала 2917
Распечатать страницу

3 ответа

Я думаю, что использование Excel-единственный способ.

1
отвечен András 2023-02-02 21:15

попробуйте этот макрос:

Sub transpose01()
'
' transpose01 Macro
'
'
' to transpose rows and columns in a table
Dim NumCols As Long, NumRows As Long, RowCounter As Long, ColCounter As Long
Dim CellText As String
NumCols = ActiveDocument.Tables(1).Columns.Count
NumRows = ActiveDocument.Tables(1).Rows.Count
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=NumCols, NumColumns:=NumRows
RowCounter = 0
While RowCounter < NumRows
ColCounter = 0
While ColCounter < NumCols
CellText = ActiveDocument.Tables(1).Cell(RowCounter + 1, ColCounter + 1).Range.Text
CellText = Left(CellText, Len(CellText) - 2)
ActiveDocument.Tables(2).Cell(ColCounter + 1, RowCounter + 1).Range.InsertBefore CellText
ColCounter = ColCounter + 1
Wend
RowCounter = RowCounter + 1
Wend '

End Sub
1
отвечен David French 2023-02-02 23:32

любой опыт работы с этим: https://www.extendoffice.com/documents/word/1413-word-transpose-rows-and-columns-table.html там может быть плата после бесплатной пробной версии?

0
отвечен tigr 2023-02-03 01:49

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх