如何将excel中表格横行变竖列

将Excel中的表格横行变竖列可以通过以下几种方法实现：

方法一：使用Excel功能

1. 打开Excel文件，选中需要转换的横行数据。

2. 点击“开始”选项卡，找到“复制”按钮，点击复制。

3. 选择一个空白区域，点击“粘贴”按钮。

4. 在粘贴的表格上右键点击，选择“选择性粘贴”。

5. 在“选择性粘贴”对话框中，勾选“转置”选项，然后点击“确定”。

方法二：使用“数据透视表”

1. 选中需要转换的横行数据。

2. 点击“插入”选项卡，选择“数据透视表”。

3. 在弹出的对话框中，选择放置数据透视表的位置，然后点击“确定”。

4. 在数据透视表字段列表中，将“行”字段拖动到“列”区域。

5. 将“值”字段拖动到“值”区域，并选择相应的值显示方式。

方法三：使用VBA宏

1. 打开Excel，按下 `Alt + F11` 打开VBA编辑器。

2. 在“插入”菜单中选择“模块”，在打开的模块窗口中粘贴以下代码：

```vba

Sub TransposeRowsToColumns()

Dim ws As Worksheet

Dim r As Range, c As Range

Dim rCount As Long, cCount As Long

Dim i As Long, j As Long

Dim rng As Range

Set ws = ActiveSheet

rCount = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

cCount = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

Set rng = ws.Range(ws.Cells(1, 1), ws.Cells(rCount, cCount))

For i = 1 To rCount

For j = 1 To cCount

ws.Cells(j, i).Value = rng.Cells(i, j).Value

Next j

Next i

End Sub

```

3. 关闭VBA编辑器，回到Excel界面。

4. 按下 `Alt + F8`，选择“TransposeRowsToColumns”，然后点击“运行”。

这些方法都可以实现将Excel中的表格横行变竖列。根据你的需求，你可以选择最合适的方法进行操作。