VBA 如何自动依次筛选打印遇到空值就停止

link之家

链接快照平台

输入网页链接，自动生成快照
标签化管理网页链接

相关文章推荐

正直的芹菜 · wps vba6.3 ...· 2 月前 ·

帅气的酱牛肉 · android pad 分辨率查看 ...· 5 月前 ·

细心的鼠标垫 · 雪中悍刀行：徐凤年偷地瓜被抓,为吃肉深入敌军 ...· 1 年前 ·

不拘小节的酸菜鱼 · 章莹颖父亲的心碎直播间-虎嗅网· 1 年前 ·

年轻有为的针织衫 · Kindle ...· 1 年前 ·

行走的太阳 · 【东风风行大全，东风风行标志大全，东风风行品 ...· 1 年前 ·

SubMacro2()''Macro2Macro''ActiveSheet.Range("$A$5:$BQ$28").AutoFilterField:=10,Criter... Sub Macro2()
'
' Macro2 Macro
'

'
ActiveSheet.Range("$A$5:$BQ$28").AutoFilter Field:=10, Criteria1:= _
"28279269"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.Range("$A$5:$BQ$28").AutoFilter Field:=10, Criteria1:= _
"28279270"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.Range("$A$5:$BQ$28").AutoFilter Field:=10, Criteria1:= _
"28298664"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.Range("$A$5:$BQ$28").AutoFilter Field:=10, Criteria1:= _
"28310647"
End Sub