V
主页
vba实现分栏打印
发布人
源码如下: Sub myprint(x As Integer) Dim maxRows As Integer Dim maxColumns As Integer Set dataSt = ThisWorkbook.Sheets("Sheet1") Set printst = addsheet("打印") maxRows = dataSt.Range("a1").CurrentRegion.Rows.Count maxColumns = dataSt.Range("a1").CurrentRegion.Columns.Count '复制三个表头 For i = 0 To x - 1 dataSt.Range(mychange(1, 1, 1, maxColumns)).Copy printst.Range(mychange(1, maxColumns * i + 1)).PasteSpecial Paste:=xlPasteValues Next i Dim heads As Integer ReDim arr(1 To x) As Integer '计算每段长度 lens = Int((maxRows - 1) / x) rema = (maxRows - 1) Mod lens ‘余数’ For i = 1 To x: arr(i) = lens : Next i For i = 1 To rema : arr(i) = arr(i) + 1: Next i heads = 2 l = 0 For Each i In arr dataSt.Range(mychange(heads, 1, heads + i - 1, maxColumns)).Copy printst.Range(mychange(2, l * maxColumns + 1)).PasteSpecial Paste:=xlPasteValues heads = heads + i l = l + 1 Next i End Sub Sub test() myprint (5) End Sub
打开封面
下载高清视频
观看高清视频
视频下载器
【vba技巧】只需20行代码就能实现多表汇总
【vba知识 技巧分享】vba中两种方法获取其他文件数据
复制、粘贴功能怎么用vba来自动实现
【vba 技巧分享】VBA如何获取文件夹下所有excel文件数据
【vba知识 技巧分享】用vba排序
【vba知识 技巧分享 5】UsedRange 和 CurrentRegion 的区别
【VBA知识 技巧分享】只需10行代码自动生成工资条
vba查找方法如何使用
【excel vba系列 -001】vba中常用的“对象”
还有必要学习vba吗?
一键删除空行
【vba知识 技巧分享】汇总 表头不同,顺序不同的多个工作表
excel技巧:根据员工花名册批量生成人事档案
20.dir函数遍历文件
【VBA技巧分享】VBA实现多表汇总并自动修改格式
textsplit函数,数据整理的天花板
自定义添加工作表函数,如果工作表存在,就清空数据,如果不存在就新建一个
Excel中vlookup函数一次返回多列数据
把图片转换成excel像素画
excel技巧:告别繁琐操作,一键合并工作簿,工作效率瞬间起飞
用VBA任意调整列的顺序
入门 →精通🚀 | Obsidian 11个高级用法
【vba知识 技巧分享】分享自定义函数参数缺省值,把行、列转换成单元格地址
一个公式轻松判断 身份证号码 是否正确
excel技巧: 智能提取,一键搞定所有工作表数据
rank排名函数实现美式+中式排名 郑广学wpsjsa
excel小白学函数之sumif(1)
【vba知识 技巧分享 - 6】vba中6种循环语句横向比较
按部门不同把数据分成不同的工作表
批量生成 任意格式 文件夹,只需10行代码
excel中去除重复项的用法
一分钟学会,身份证号码这样操作
excel中非常重要又容易被忽视的知识点
沉浸式玩俄罗斯方块(自制excel版)
Excel工作表做数据库,查询快如闪电!
《冰冰的翅膀》初始安装配置
Excel中如何制作两年数据对比图
if 公式 终结者
powerquery|TableSelectRows 匹配数据关键是理解传参的写法
身份证号码变成科学计数法怎么办?