各位大大好 现在我想要用特定栏位栏的值筛选分档案或是分页 以下我先简述我的方法 各位高手可以跳过 我用的方法是利用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), 来自: 123.18.22.195 ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1557208926.A.872.html