Office 板


LINE

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







like.gif 您可能會有興趣的文章
icon.png[問題/行為] 貓晚上進房間會不會有憋尿問題
icon.pngRe: [閒聊] 選了錯誤的女孩成為魔法少女 XDDDDDDDDDD
icon.png[正妹] 瑞典 一張
icon.png[心得] EMS高領長版毛衣.墨小樓MC1002
icon.png[分享] 丹龍隔熱紙GE55+33+22
icon.png[問題] 清洗洗衣機
icon.png[尋物] 窗台下的空間
icon.png[閒聊] 双極の女神1 木魔爵
icon.png[售車] 新竹 1997 march 1297cc 白色 四門
icon.png[討論] 能從照片感受到攝影者心情嗎
icon.png[狂賀] 賀賀賀賀 賀!島村卯月!總選舉NO.1
icon.png[難過] 羨慕白皮膚的女生
icon.png閱讀文章
icon.png[黑特]
icon.png[問題] SBK S1安裝於安全帽位置
icon.png[分享] 舊woo100絕版開箱!!
icon.pngRe: [無言] 關於小包衛生紙
icon.png[開箱] E5-2683V3 RX480Strix 快睿C1 簡單測試
icon.png[心得] 蒼の海賊龍 地獄 執行者16PT
icon.png[售車] 1999年Virage iO 1.8EXi
icon.png[心得] 挑戰33 LV10 獅子座pt solo
icon.png[閒聊] 手把手教你不被桶之新手主購教學
icon.png[分享] Civic Type R 量產版官方照無預警流出
icon.png[售車] Golf 4 2.0 銀色 自排
icon.png[出售] Graco提籃汽座(有底座)2000元誠可議
icon.png[問題] 請問補牙材質掉了還能再補嗎?(台中半年內
icon.png[問題] 44th 單曲 生寫竟然都給重複的啊啊!
icon.png[心得] 華南紅卡/icash 核卡
icon.png[問題] 拔牙矯正這樣正常嗎
icon.png[贈送] 老莫高業 初業 102年版
icon.png[情報] 三大行動支付 本季掀戰火
icon.png[寶寶] 博客來Amos水蠟筆5/1特價五折
icon.pngRe: [心得] 新鮮人一些面試分享
icon.png[心得] 蒼の海賊龍 地獄 麒麟25PT
icon.pngRe: [閒聊] (君の名は。雷慎入) 君名二創漫畫翻譯
icon.pngRe: [閒聊] OGN中場影片:失蹤人口局 (英文字幕)
icon.png[問題] 台灣大哥大4G訊號差
icon.png[出售] [全國]全新千尋侘草LED燈, 水草

請輸入看板名稱,例如:Boy-Girl站內搜尋

TOP