Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1703|回复: 3

[已解决]VBA代码求修改,关于填充位置修改

[复制链接]
发表于 2012-11-3 14:55 | 显示全部楼层 |阅读模式
详见文件包
是一个关于打印标签的,原先是支持8个的标签位,正常使用
现在扩充到一张A4纸打印32个标签
扩充后代码出错
        Cells(W, L + k * 1).PasteSpecial Paste:=xlPasteAll

代码这一句出错了
请修改 复件 打印模板.rar (23.44 KB, 下载次数: 12)
发表于 2012-11-3 20:29 | 显示全部楼层    本楼为最佳答案   
打印模板.rar (18.99 KB, 下载次数: 5)

评分

参与人数 1 +1 收起 理由
星光男孩 + 1 很给力!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2012-11-3 23:27 | 显示全部楼层
zjdh 发表于 2012-11-3 20:29

能否注解一下代码了呢
    For I = S To T
        W = Int((I - 1) / 4) * 4 + 2
        L = ((I - 1) Mod 4) + 1
        Cells(W, L * 3 - 1).PasteSpecial Paste:=xlPasteAll

谢谢
回复

使用道具 举报

发表于 2012-11-4 07:52 | 显示全部楼层
For I = S To T              从开始位到结束位
        W = Int((I - 1) / 4) * 4 + 2      计算行号
        L = ((I - 1) Mod 4) + 1          计算列号
        Cells(W, L * 3 - 1).PasteSpecial Paste:=xlPasteAll          指定位置粘帖(全部内容)

评分

参与人数 1 +1 收起 理由
星光男孩 + 1 太强,省了不少的手工劳动,谢了

查看全部评分

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 18:23 , Processed in 0.284817 second(s), 18 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表