求解EXCEL大神

大神
　　　　——yge.me 屏蔽视频广告

求那个文档

引用 @◤↖㊣↗◢ (1楼)
我有几份文档每份需要打印百来份
需要更改其中的一个数字.依次递增.比如从1递增到100
求大神有啥快速的办法
———————————————————————————
每打印一份数字递增？求表格

你去打印店，那里的人应该知道

好牛掰啊，我完全看不懂
可以用宏来打印。用一个位置合适的单元格来放置页码，每打印一份后自动递增。
以下代码中以 I46 单元格存放页码，如果不合适，请自行替换为您希望的单元格位置
Sub PrintPage()
'按打印份数递增页码打印
Dim i As Integer
Dim Ps As Integer
Dim Str1 As String
Str1 = InputBox("请输入您要打印的份数：", "打印份数", "1")
Ps = Val(Str1)
If Ps < 1 Then
MsgBox "输入的打印份数错误，请重新输入！", vbInformation, "易健生活网提示"
Exit Sub
End If
'假设 I46 单元格存放页码
With ActiveSheet
For i = 1 To Ps
.Range("I46").Value = i
.PrintOut
DoEvents
Next
End With
End Sub

引用 @zhuzhi04 (9楼)
好牛掰啊，我完全看不懂
可以用宏来打印。用一个位置合适的单元格来放置页码，每打印一份后自动递增。
以下代码中以I46单元格存放页码，如果不合适，请自行替换为您希望的单元格位置
SubPrintPa……
———————————————————————————
引用 @12投13中 (8楼)
你去打印店，那里的人应该知道
———————————————————————————
引用 @aoki8000 (6楼)
求那个文档
———————————————————————————
找人搞了个VBA，用起来不错
Sub 循环()
For i = 80 To 179
If i = 84 Or i = 94 Or i = 104 Or i = 114 Or i = 124 Or i = 134 Or i = 140 Or i = 141 Or i = 142 Or i = 143 Or i = 144 Or i = 145 Or i = 146 Or i = 147 Or i = 148 Or i = 149 Or i = 154 Or i = 164 Or i = 174 Then
Else
Sheet1.[F3].Value = "这个不能看（" & i & "栋)"
Sheet2.[F3].Value = "这个不能看（" & i & "栋)"
Sheet3.[F3].Value = "这个不能看（" & i & "栋)"
Sheet4.[F3].Value = "这个不能看（" & i & "栋)"
Sheet5.[F3].Value = "这个不能看（" & i & "栋)"
Sheet6.[F3].Value = "这个不能看（" & i & "栋)"
Sheet7.[F3].Value = "这个不能看（" & i & "栋)"
Sheet8.[F3].Value = "这个不能看（" & i & "栋)"
Sheet9.[F3].Value = "这个不能看（" & i & "栋)"
Call 打印1
Call 打印2
Call 打印3
Call 打印4
Call 打印5
Call 打印6
Call 打印7
Call 打印8
Call 打印9
End If
Next i
End Sub
Sub 打印1()
Sheet1.Select
Sheet1.Range("A1:AK27").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$AK$27"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Sub 打印2()
Sheet2.Select
Sheet2.Range("A1:AK27").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$AK$27"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Sub 打印3()
Sheet3.Select
Sheet3.Range("A1:AK27").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$AK$27"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Sub 打印4()
Sheet4.Select
Sheet4.Range("A1:AK27").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$AK$27"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Sub 打印5()
Sheet5.Select
Sheet5.Range("A1:AK27").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$AK$27"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Sub 打印6()
Sheet6.Select
Sheet6.Range("A1:AK27").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$AK$27"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Sub 打印7()
Sheet7.Select
Sheet7.Range("A1:AK27").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$AK$27"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Sub 打印8()
Sheet8.Select
Sheet8.Range("A1:AK27").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$Z$27"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Sub 打印9()
Sheet9.Select
Sheet9.Range("A1:AK27").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$AK$27"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
现在唯一蛋疼的是打印机速度太慢