Excel如何实现行列的转换-Excel教程

最近feifei遇到一个问题，就是Excel中存在多条个人信息，且全部都是以行的形式在Excel中存储。后来根据实际需求，需要将多条个人信息并排放在同一行中，制作成二维表格的形式。后来经过仔细的研究，终于成功解决问题，现拿来与大家分享一下。

详细的操作方法或具体步骤

首先一起来看一下最原始的数据格式。最终要生成的结果数据格式如图所示。由于涉及的数据记录很多，因此必须要使用自动化方法来解决问题。

点击“开发工具”选项卡，接着点击“Visual Basic”按钮进行VBA编程环境（也可以通过按键盘组合键“Alt+F11”进入）。

在VBA环境下，右击“Microsoft Excel 对象”，选择“插入”→“模块”，创建一个新的模块窗口。

接着点击“插入”→“过程”，在打开的“添加过程”窗口中，将名称设置为“GetCotent”，同时勾选“函数”，最后点击“确定”按钮。

在打开的“模块1”中输入如图所示的代码：
'row 表示记录所在的行号
'col 表示记录所在的列号
'k 表示当前编辑单元格所在的列号
Public Function GetContent(row As Integer, col As Integer, k As Integer)
GetContent=Sheets(1).Cells(row + (k - 2) * 6, col).Value
Function

返回Excel界面，在整个文档的最前面插入指定的行数，在此小编插入5行，并制作如图所示的界面以备使用。

接着在B1单元格中输入公式“=GetContent(ROW(B6),2,COLUMN())”，并按回车键。

然后将该公式复制B2到B4行，在列方面根据记录的个数进行复制，也可以采用鼠标拖动的形式进行复制。最终结果如图所示。

经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本文系本人依照真实经历原创，未经许可，谢绝转载。