excel中行列转换的教程

办公教程导读

收集整理了【excel中行列转换的教程】办公软件教程，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含631字，纯文字阅读大概需要1分钟。

办公教程内容图文

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

　　行列转换步骤2：点击“开发工具”选项卡，接着点击“Visual Basic”按钮进行VBA编程环境(也可以通过按键盘组合键“Alt+F11”进入)。

　　行列转换步骤3：在VBA环境下，右击“Microsoft Excel 对象”，选择“插入”→“模块”，创建一个新的模块窗口。

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

　　行列转换步骤5：在打开的“模块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

　　End Function

　　行列转换步骤7：接着在B1单元格中输入公式“=GetContent(ROW(B6),2,COLUMN())”，并按回车键。

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