excel表格行列转换的方法

合集下载
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

excel表格行列转换的方法
Excel中的的行和列具体该如何进行转换呢?下面是店铺带来的关于excel表格行列转换的方法,希望阅读过后对你有所启发!
excel表格行列转换的方法:
步骤行列转换步骤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
步骤行列转换步骤6:返回Excel界面,在整个文档的最前面插入指定的行数,在此小编插入5行,并制作如图所示的界面以备使用。

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

步骤行列转换步骤8:然后将该公式复制B2到B4行,在列方面根据记录的个数进行复制,也可以采用鼠标拖动的形式进行复制。


终结果如图所示。

相关文档
最新文档