【原】Excel快速对表格数据进行分组，让打印更方便！

Excel情报局

OFFICE知识共享青年

用1%的Excel基础搞定99%的日常工作

做一个有文艺范的Excel公众号

Excel是门手艺 玩转需要勇气

表哥带你玩转Excel

有温度的公众号

轻松阅读

2020年8月18日

庚子年六月二十九

周二

在期待爆发的路上，你只能选择坚持！

在日常工作中，有时候我们会录入列数很长的数据，这样很不利于打印。我们会浪费很长的时间对数据进行平均分组，尤其困扰职场中的表弟表妹们！

如下图所示：如何快速将左表数据平均分成右边多个表格显示呢？

其实特别简单，5秒钟即可搞定。

右击工作表名称标签，点击“查看代码”，在弹出的VBA界面复制粘贴下面一段代码，点击“运行”。运行后请分别在提示框录入3、4、1，并在Sheet2表查看结果。

代码模板如下，复制粘贴即可：

Sub 数据分组()    '将m列数的数据分到n×m列中

Dim m%, n%, a%

m = InputBox("请确定数据列数")

n = InputBox("请确定横向分组数")

a = InputBox("请确定标题行数")

b = Application.WorksheetFunction.RoundUp((Sheet1.[a65536].End(xlUp).Row - a) / n, 0)    '向上取整,得到每份行数

For i = 1 To n

    Sheet2.Range(Sheet2.Cells(1, (i - 1) * m + 1), Sheet2.Cells(a, m * i)) = Sheet1.Range(Sheet1.Cells(1, 1), Sheet1.Cells(a, m)).Value    '复制标题行

    Sheet2.Range(Sheet2.Cells(a + 1, (i - 1) * m + 1), Sheet2.Cells(b + a, i * m)) = Sheet1.Range(Sheet1.Cells((i - 1) * b + 1 + a, 1), Sheet1.Cells(i * b + a, m)).Value        '复制数据

Next

 MsgBox "已经完成数据分组到表2"    '提示工作结束

End Sub

注释：

运行后请分别在提示框录入3、4、1，并在Sheet2表查看结果。

所录入的3是数据列数（包含空列1）。

所录入的4是分组数。

所录入的1是数据区标题行数。

下面是小编为大家搜集整理的Excel分组打印工具模板，希望对大家工作可以起到一些帮助和借鉴意义。

Excel分组打印工具模板下载

百度云网盘下载地址：

https://pan.baidu.com/s/1rTZjEtL0BRNThJHnhiM3qg