excel2007 自动筛选后批量打印VBA代码
如图，按照表格第二行F列（即“客户经理”项）自动筛选，按筛选的所有结果分别打印，也就是说一个客户经理打印到一张纸上，如何用VBA代码自动实现呢？每个月处理的数据量很多，一...
如图，按照表格第二行F列（即“客户经理”项）自动筛选，按筛选的所有结果分别打印，也就是说一个客户经理打印到一张纸上，如何用VBA代码自动实现呢？每个月处理的数据量很多，一个个客户经理的打对号勾选再点打印太费事了，不小心还容易漏掉。谢谢各位大神啦。。。
展开
1个回答
展开全部
Sub 自动筛选打印()
Dim d As Object
Set d = CreateObject("scripting.Dictionary")
Dim c As Range, key
i = 2
Do
i = i + 1
Set c = Cells(i, 6)
d(c.Value) = ""
Loop Until c = ""
key = d.Keys
For x = 0 To d.Count
ActiveSheet.UsedRange.AutoFilter Field:=6, Criteria1:=key(x)
ActiveSheet.PrintOut
Next
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
