| 手机通讯录分组名称 | 您所在的位置：网站首页 › 手机表格数据分组 › 手机通讯录分组名称 |
手机通讯录分组名称
|
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 公众号后台聊天窗口回复关键字“Excel分组打印工具模板” 获取百度网盘下载链接提取码。
隔三差五学个Excel小知识，忘记一天工作的烦恼，只要坚持，最后可能不会得到最好的结果，但一定不会收获最坏的结果。赖床舒服，但可能迟到；熬夜很爽，但伤身体。自律或许并不容易，但你越懒惰越放纵自己，就越可能错过美好的人和事。如果生活注定充满艰辛，那就学着做拯救自己的那个英雄。趁年轻不妥协，向前奔跑！从今天开始改变，对平庸生活奋力回击。
往期知识点精彩链接点击阅读！ 【 Excel工资条一键自动生成模板 】【157个常用VBA代码模板】【 Excel提取数字字母汉字① 】【 Excel提取字母数字汉字② 】 【备考公务员公文写作大全】【Excel财务账模板超级实用】 【Excel 03~19简体中文版 】【WPS表格2019VBA宏功能 】 【 全网文字免费复制技巧 】 【提取Excel表格所有图片 】 【再不怕忘记电脑开机密码 】 【电脑微信多开的方法 】 【批量合并所有工作表 】 【材料出入库表 格模板分享】 【卡通风格PPT模板 分享】 【梦幻风格PPT模板分享 】 【微信朋友圈空白说说 】 【Excel电话号导入通讯录 】
|
【本文地址】