当前位置：网站首页 > IT知识 > 正文

Excel二维表转换一维表，三种方法一网打尽!

liuian 2025-06-13 14:49 25 浏览

今天高顿网校小编向大家分享二维表格转一维表的三种方法，分别用到函数、数据透视表和VBA代码。三种方法各有利弊，表亲可以自行选择。

如下图，A1:E5是数据源，A7:C22是最终要实现的结果样式：

一起动手试试啦！

函数公式法

A7单元格输入

=OFFSET($A$1,INT((ROW()-7)/4)+1,0)

B7单元格输入

=OFFSET($A$1,0,MOD(ROW()-7,4)+1)

C7单元格输入

=OFFSET($A$1,INT((ROW()-7)/4)+1,MOD(ROW()-7,4)+1)

公式向下复制，完成。

高顿财务培训《EXCEL在财务管理中的高级应用》

OFFSET函数通过调整行、列偏移量，改变起始单元格地址，返回现有结果。

以上均以A1为起始单元格。A列的列偏移量始终为0，行偏移量为1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4的数列，以取整函数INT和ROW函数嵌套生成。

B列的行偏移量始终为0，列偏移量为1,2,3,4,1,2,3,4,1,2,3,4,1,2,3,4的数列，以求余函数MOD和ROW函数嵌套生成。

C列行列偏移量为A、B两列综合。

透视表法

Step1

依次按下Alt、D、P，进入多表透视向导。

选择【多重合并计算数据区域】、创建【数据透视表】

Step2

创建单页字段。

Step3

选择数据源所在区域并添加

Step4

将生成的数据透视表字段设置如下：

5Step5

报表布局调整为【以表格形式显示】、【重复所有项目标签】

6Step6

取消分类汇总行和总计

7Step7

在数据透视表选项中，去掉勾选显示展开/折叠按钮

最终结果如下，可自行调整美化。

VBA代码法

Step1

按Alt+F11键，进入VBE编辑窗口，输入如下代码：

Sub test()

Dim arr, i%, j%, n%

'声明整形变量i,j,n和arr

arr = Range("a1:e5")

'将二维表区域装入数组arr中

n = 1 '给i赋初始值1

For i = 2 To UBound(arr)

'双重循环嵌套，先行后列，循环终值各为二维表行列数

For j = 2 To UBound(arr, 2)

Cells(n, 7) = arr(i, 1)

'将数组arr中i行1列数值（即车间信息）写入G列

Cells(n, 8) = arr(1, j)

'将数组arr中1行j列数值（即部门信息）写入H列

Cells(n, 9) = arr(i, j)

'将数组arr中i行j列数值写入I列

n = n + 1

'每一次循环即对n加1，用以改变待写入单元格行数

Next '结束列循环

Next '结束行循环

End Sub

Step2

按F5运行该段代码，查看结果：

好啦，今天的内容就到这里，希望小伙伴们能有所收获。

▎感谢本文作者扯淡子excel之家。来源“财会学堂”。转载或引用请尊重原创注明来源。

每天学点财会知识，让你的职场up起来！欢迎关注微信号财会学堂(caikuaixuetang)

vba int

上一篇：PMC用到的所有函数，大咖总结，实用干货，PMC必备神器!
下一篇：用Excel编写俄罗斯方块（vb做俄罗斯方块）

Excel二维表转换一维表，三种方法一网打尽!

相关推荐

飞牛OS入门安装遇到问题，如何解决?

系统C盘清理:微信PC端文件清理，扩大C盘可用空间步骤

如何在 iPhone 和 Android 上恢复已删除的抖音消息

Boost高性能并发无锁队列指南:boost::lockfree::queue

大模型手册: 保姆级用CherryStudio知识库

西门子博途中如何输入读取和编辑date and time变量

用什么工具在Win中查看8G大的log文件?

我的Excel打开后是一堆乱码，如何解决?

如何在 Windows 10 或 11 上通过命令行安装 Node.js 和 NPM

威联通NAS安装阿里云盘WebDAV服务并添加到Infuse