(若是和其他不同软件互动之问题 请记得一并填写)
软件:EXCEL 365
版本:365
各位好 VBA新手请教,因为年末要盘点要做个表格复制的VBA
但是卡在SUB的地方 一直出错,显示型别不符或未定义
思维是 先计算表格1的行数(总共需要印出来的小卡张数)
因为每张A4会印4张小卡所以设定pp = 4
总共需要的打印页数就会等于行数/4 = tn
每份有41行
所以实务上会变成选择1~41行的小卡表格
贴上第42列
重复执行到 行数X总表格数的次数
Sub 空白盘点小卡复制()
Dim kk As Long '宣告kk为列数的变量
Dim tn As Integer '宣告tn为 页数的变量
Dim i As Integer '宣告i为张贴列数变化的变量
Dim pp As Integer '宣告pp为变量
kk = Worksheets("表格1").Range("A65535").End(xlUp).Row
pp = 4
tn = (kk \ pp) + 1
i = i * 41
For i = 1 To i * tn Step 1
Worksheets("小卡").Rows("1:41").Select
Selection.Copy
Worksheets("小卡").Rows("i:i").Paste
Next
行数不会超过65535行
因为在SUB的地方直接显示黄底,底下不知道有没有错误,如果还有其他错误的地方
还请不吝赐教,谢谢。