作者sonic74768 (牛牛牛)
看板Visual_Basic
标题[VBA ] EXCEL VBA 筛选栏位後分页或分档案
时间Tue May 7 12:34:51 2019
各位大大好
现在我想要用特定栏位栏的值筛选分档案或是分页
以下我先简述我的方法 各位高手可以跳过
我用的方法是利用EXCEL本身的"特殊筛选"
Columns(ert & ":" & ert).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
复制到一个Transit分页
Sheets.Add After:=ActiveSheet
Sheets(ActiveSheet.Name).Name = "transit"
Sheets("transit").Select
Range("A1").Select
ActiveSheet.Paste
然後从A1用设回圈变数X到最後一个
For i = 2 To Sheets("transit").Range("A1").End(xlDown).Row
x = Sheets("transit").Cells(i, "A")
再回原本的工作表筛选那栏筛选并复制出去
PM53 = Range("A2").End(xlDown).Row
ActiveSheet.Range("$A$2:$" & ert & PM53).AutoFilter Field:=Range("a1:" &
ert & "1").Columns.Count, Criteria1:=x
重点在这
虽然这样可以达到我的目的但是
在资料量很多的时候
这样筛选在复制出去很吃资源
请问各位有没有更有效率的方法
例如:不用用一个TRANSIT表做转接 直接回圈指定栏位的唯一值(删除重复)
本人都是自学依据EXCEL录制的功能 想比较没有效率的方法
以上问题若有不详尽的还请大家指出来
再请各位高手帮忙
--
▁ ◢███◣ ◥◥◥◤◤◤ ╭ 干你妈的!!"送我便当"， ╮
▉宇▏ █◤@~◥█ ◥◤◤◥◤◤ 免费送你天照牌瓦斯桶!! ╯ψindiaF4
▉智▏ ◤⊙/\⊙◥ ◤◥◤◥◥◤◤ ▄▄
▄▄ ▄▄ ▄▄ ▄▄
▉bo▏ 皿 ◥◤◤◤◤◤◥ ▌ ▌
▌ ▌ ▌ ▌ ▌ ▌ ▌ ▌
▉yo▏ ◥ ︶ ◤ ◥◤◤◥◥◥◤◤ 天 天 天 天 天
▇ ◢███◣ ◥◤◤◤◥◥◤ 照 照 照 照 照
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 14.229.58.183
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1557203699.A.C7D.html