[爆卦]vba篩選後的儲存格是什麼?優點缺點精華區懶人包

為什麼這篇vba篩選後的儲存格鄉民發文收入到精華區:因為在vba篩選後的儲存格這個討論話題中,有許多相關的文章在討論,這篇最有參考價值!作者sonic74768 (牛牛牛)看板Office標題[問題] EXCEL VBA 篩選欄位後分頁...



各位大大好

現在我想要用特定欄位欄的值篩選分檔案或是分頁


以下我先簡述我的方法 各位高手可以跳過
我用的方法是利用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://www.ptt.cc/bbs/Office/M.1557208926.A.872.html
soyoso: 先問1.分頁是什麼?2.特殊篩選? 05/07 14:05
soyoso: 以巨集來看,是要各別分至各個工作表內吧, 05/07 14:06
soyoso: range.advancedfilter也不是叫特殊篩選,微軟定義是叫進階 05/07 14:08
soyoso: 篩選 05/07 14:08
soyoso: https://i.imgur.com/R02aDz4.jpg 05/07 14:10
soyoso: 取唯一值不要表格的話,dictionary、application.match看 05/07 14:21
soyoso: 是否於變數內為錯誤、工作表函數countif是否為1或0(看是否 05/07 14:22
soyoso: 範圍包含到迴圈所指定的列號那個儲存格)、instr看是否在已 05/07 14:23
soyoso: 連結的字串內 05/07 14:23
soyoso: 不要篩選range.autofilter來複製的話,排序,range.find( 05/07 14:24
soyoso: 找到第一筆儲存格),工作表函數countif取得筆數 05/07 14:25
soyoso: 用筆數range.resize,複製貼上方面不帶格式的話range = 05/07 14:28
soyoso: range.value 05/07 14:28
sonic74768: 1.分頁是指EXCEL的工作表 2.特殊篩選就是 資料 進階篩 05/07 14:52
sonic74768: 選 不選重複的紀錄 05/07 14:52
sonic74768: 大概知道大大的方向 先謝謝 05/07 14:54
soyoso: 這個最近我版上有回過類似的問題,但找不到了 05/07 14:56
soyoso: google後有網站有備份到這篇 http://tinyurl.com/y2a8dtf4 05/07 14:57
soyoso: 如果要分至各檔案(活頁簿)的話,該篇內文所提供的檔案可看 05/07 14:58
soyoso: 看;如要分至各個工作表,連結內下方回文方式調整看看 05/07 14:59

你可能也想看看

搜尋相關網站