» 您尚未登录:请 登录 | 注册 | 标签 | 帮助 | 小黑屋 |


发新话题
打印

[电脑] Excel问题求助~~~~~~~~~~~~~~~~~~~~~~~

Sub printexcel()

Dim i As Integer
Dim iPrint As Integer

iPrint = 100

For i = 1 To iPrint

   Range("A1").Value = "SGB" & Format(i, "0000")
   ActiveSheet.PrintOut

Next

End Sub

把iprint改成打印的数量,A1改成单元格的标号
试一试


TOP

发新话题
     
官方公众号及微博