各位大大好 現在我想要用特定欄位欄的值篩選分檔案或是分頁 以下我先簡述我的方法 各位高手可以跳過 我用的方法是利用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/m.aspx?n=bbs/Office/M.1557208926.A.872.html