我有一个这样的表格里面有sheet1和sheet2,
在sheet1中例如是这样的
1 2 3
1 张 18 男
2 李 20 女
3 赵 21 男
我想在sheet2中引用sheet1中的数据,例如:
1 2 3
1 张 18 男
然后我打印这些数据,再然后我想让sheet2中能顺序引用sheet2中的第二行,再打印,第三行,再打印,以此类推,不知道EXCEL能否实现?
Sub 按钮1_单击()
Sheet2.PageSetup.PrintArea = "$A$1:$C$2" '设置sheet2打印区域
Dim i As Integer
For i = 2 To Sheet1.Range("a1").End(xlDown).Row 'i等于sheet1的第2行到最后一行有记录的行号
Sheet2.Range("a2:c2").Value = Sheet1.Range("a" & i & ":c" & i).Value 'sheet2的区域A2:C2 等于sheet1的区域a2:c2 a3:c3这样循环
Sheet2.PrintOut 'sheet2打印
Next i
End Sub
我做了个简单的你看看 右键菜单栏 控件工具箱 选 按钮 代码复制上面的
我测了一下没问题就是打印我没测试 浪费纸 你自己试的时候也可以打印2张就好了
我邮箱[email protected]你看看还有问题就邮件我
附件是GIF录制的检测结果