求助怎么一键筛选分类打印

ming89033447

按库存地点筛选打印，一个一个选择打印太废时间了，有没有比较方便的方法一键打印

wowo000

ming89033447 发表于 2022-7-22 17:09
是我想要的效果，感谢
假如我想筛选别的列（假如筛选D列），应该怎样更改VBA代码呀

楼主：给你一个灵活选择筛选打印列的吧。绝对让你惊讶（附件参考）

许夜

用数据透视表把显示报表筛选页功能，把文件按库存地点分成若干Excel表，然后打印整个工作簿

数论

第一步，先库存地点排序，同样的排在一起。第二步，数据，分类汇总，然后勾选每组数据分页即可。

ming89033447

数论 发表于 2022-7-15 20:00
第一步，先库存地点排序，同样的排在一起。第二步，数据，分类汇总，然后勾选每组数据分页即可。

试过这种方法，但是汇总之后我把空行删除，分页符好像就移动了，刚刚研究了一会好像又可以了，谢谢

ming89033447

许夜 发表于 2022-7-15 14:55
用数据透视表把显示报表筛选页功能，把文件按库存地点分成若干Excel表，然后打印整个工作簿

好的，我试试

wowo000

楼主：下载附件试试（要启用宏才可以的），你梦寐以求的效果。

Excel表哥在此

2021版已经有了筛选函数了：FILTER
(UNIQUE（库存地点）就得到筛选条件了)

ming89033447

wowo000 发表于 2022-7-16 08:30
楼主：下载附件试试（要启用宏才可以的），你梦寐以求的效果。

感谢 ，如果我要更改筛选条件，假如按D列或者A列，代码应该怎样修改呀

Sub xunhuandayin()
  Dim r&, i&, tiaojian
  With Sheet1
    r = .Cells(Rows.Count, 3).End(xlUp).Row
    For i = 2 To Sheet2.Range("C" & Rows.Count).End(xlUp).Row
        tiaojian = Sheet2.Cells(i, 3).Value
        .Range("S2") = tiaojian
        .Range("$C$1:$C$" & r).AutoFilter Field:=1, Criteria1:=Array(tiaojian), Operator:=xlFilterValues
        .PrintOut
    Next
    .Range("A:E").AutoFilter Field:=1
    MsgBox ("亲，打印完成！")
    End
  End With
End Sub

ming89033447

Excel表哥在此 发表于 2022-7-16 16:16
2021版已经有了筛选函数了：FILTER
(UNIQUE（库存地点）就得到筛选条件了)

主要想要宏，点一下就能自动筛选打印那种

ming89033447

wowo000 发表于 2022-7-16 08:30
楼主：下载附件试试（要启用宏才可以的），你梦寐以求的效果。

是我想要的效果，感谢
假如我想筛选别的列（假如筛选D列），应该怎样更改VBA代码呀