导读：Excel表格中，有时需要将行转换为列的情况下，可以使用转置功能轻松实现。在本篇文章中，将详细介绍如何将Excel表格中的行转换为列。
1.使用转置功能进行行列转换
Excel中自带了转置功能，可以把行转列，列转行，步骤如下：
1.1 选定需要转换的行或列
选定需要转换的行或列（如下图所示），右击这个位置，弹出快捷菜单，选择“复制”（或使用“Ctrl + C”快捷键）。
1.2 选择粘贴方式
选定需要转换的行或列后，鼠标在目标位置右击，选择“选择性粘贴”。
在下拉菜单右侧，选定“转置分隔符号”选项。
1.3 完成转换
点击“确定”，即可完成行列转换。
2. 使用公式实现行列转换
除了使用Excel自带的转置功能，还可以使用公式实现行列转换。步骤如下：
2.1 选定单元格
选定新建一个单元格，作为转换后数据的首个单元格。
2.2 手动输入公式
手动输入公式（以行转列为例）
=INDEX($A:$A,COLUMN()-1+(ROW()-1)*列数)
按下“Ctrl + Shift + Enter”组合键，完成公式输入，会发现连续多个单元格中已经输入了转换后的数据。
3. 使用宏实现行列转换
Excel VBA中也提供了宏的功能，可以快速实现行列转换操作。
3.1 新建宏
打开需要转换的Excel文件，依次点击“开发工具”、“宏”、“宏安全性”、“宏安全性设置”。
在“宏安全性”选项卡里选择“启用所有宏”选项，并勾选“信任访问VBA项目对象模型”选项。
然后点击“新建”按钮，打开Microsoft Visual Basic for Applications编辑器。
3.2 写入VBA代码
在“Microsoft Visual Basic for Applications”编辑器中输入如下VBA代码：
Sub TransposeColumnsToRows()
' 定义变量
Dim xRg As Range
Dim xOutRg As Range
Dim xTxt As String
On Error Resume Next
' 选择需要转换的单元格
Set xRg = Application.InputBox("Please select the range:", "Transpose Range", Selection.Address, , , , , 8)
Set xOutRg = Application.InputBox("Please select a single cell to place the transposed data:", "Transpose Range", "", , , , , 8)
' 循环转换每一个单元格
For Each xTxt In Split(xRg.Value, ",")
xOutRg.Value = xTxt
Set xOutRg = xOutRg.Offset(1, 0)
Next
End Sub
3.3 运行宏
保存VBA代码后，关闭“Microsoft Visual Basic for Applications”编辑器，回到Excel文档界面，选中需要转换的单元格。
点击Excel界面中菜单栏的“开发工具”选项卡，找到“宏”选项，展开后选择刚才新建的宏程序“TransposeColumnsToRows”。
点击“运行”即可完成行列转换的操作。
4. 总结
行列转换是Excel表格中常见的操作。本篇文章介绍了三种方法实现行列转换，分别是使用Excel自带的转置功能、使用公式实现、使用宏实现。读者可以选择适合自己的方法进行实现，提高工作效率。
