Question

Excel 在a1单元格里输入10，如何直接打印1-10的十张标签！

Excel制作标签
在A1单元格里输入任何数字都会直接从1开始打印直到输入的数字为止！如何制作求大神指点！

Answer 1

sub text ()
dim i as byte
for i=1 to 10
range("a1")=i
range ("a1").printout
next
end sub

追问

输入任意数字都可以吗？

追答

可以改
Sub text()
Dim i, j As Byte
j = Range("a1").Value
For i = 1 To j
Range("a1") = i
Range("a1").PrintOut
Next
End Sub

追问

可以改
Sub text()
Dim i, j As Byte
j = Range("E6").Value
For i = 1 To j
Range("E6") = i
Range("A1:B10").PrintOut
Next
End Sub

大神
E6要＝D9要怎么改