帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2017-3-29 13:35 | 只看該作者

[發問] 用Excel的[進階篩選]之[不重覆篩選], 竟然會錯誤

請教諸位大大,
用Excel 的[進階篩選]之[不重覆篩選], 竟然會錯誤, 真奇怪!
(53.3會有兩筆: [D8]及[D12]),
VBA 如下:
Sub 不重覆篩選1()
Dim Ar As Range, eR&
eR = [A65536].End(xlUp).Row
Set Ar = Range("A8:A" & eR)
Ar.AdvancedFilter xlFilterCopy, CopyToRange:=[D8], Unique:=True
End Sub
手動也一樣, 如下圖:

若改用Dictionary則沒問題
Sub 不重覆篩選()
Dim d As Object, Ar As Range, eR&, E
Set d = CreateObject("Scripting.Dictionary")
eR = [A65536].End(xlUp).Row
Set Ar = Range("A8:A" & eR)
For Each E In Ar
d(E.Value) = ""
Next
[D8].Resize(d.Count) = Application.Transpose(d.keys)
End Sub
結果如下圖:

附檔

060315-日分筆量 - 不重覆篩選.zip (383.94 KB)

樓主熱帖

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2017-3-29 17:16 | 只看該作者

回復 1# yen956
因為 function 假設你的範圍是含標題的，所以把你的A8當成標題列

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

3^#

發表於 2017-3-29 17:56 | 只看該作者

回復 2# stillfish00
謝謝大大快速的回覆, 謝謝!
但是這次我連標題[A7]也選進去, 結果還是一樣.
我試過把[A8] copy 到 [A12], 結果也一樣.
也試過把[A8][A12]完全清除, 再輸入53.5, 結果也一樣.
(好像也不是文字與數字的格式問題)

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

發表於 2017-3-29 19:05 | 只看該作者

本帖最後由 stillfish00 於 2017-3-29 19:10 編輯

回復 3# yen956
我用你的檔案手動試了幾次，有時候跟你一樣，有時候正常
又把分別把兩種情況都錄製巨集下來
不正常的情況，巨集裡都是從A8開始(選的時候還是有選A7...) :
Range("A8:A21").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"D7"), Unique:=True

正常的情況，錄製的巨集裡就是從A7開始。

感覺是Excel手動操作上的bug , VBA 的話就是要含標題列

你可以看你的圖，你有選A7:A21，進階篩選視窗卻是"R8C1:R18C1"???，這邊就會造成錯

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

jackyq

中學生 Rank: 2

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

5^#

發表於 2017-3-29 19:40 | 只看該作者

本帖最後由 jackyq 於 2017-3-29 19:47 編輯

實驗結果:

要先叫出進階篩選 , 才能用滑鼠選範圍
不能先用滑鼠選範圍 , 才叫出進階篩選
因為先用滑鼠選範圍, 再叫出進階篩選視窗

此時篩選視窗的範圍是上一次的設定值 ( 舊的設定值而不是你剛剛用滑鼠選的最新範圍 )
但是你卻以為EXCEL已經幫你自動帶入剛剛滑鼠選的範圍

TOP

jackyq

中學生 Rank: 2

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

6^#

發表於 2017-3-29 19:45 | 只看該作者

回復 1# yen956

這是股票的東西嗎?

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

7^#

發表於 2017-3-29 20:43 | 只看該作者

本帖最後由 yen956 於 2017-3-29 20:47 編輯

to stillfish00 大大:
抱歉, 太猴急了, 沒試VBA就回文, 實在抱歉.
看到 5# jackyq 大大的指點就知道錯在那裡,
還是要用 VBA 比較保險.而且
VBA 的話就是要含標題列, 謝謝!!
to jackyq 大大:
要先叫出進階篩選 , 才能用滑鼠選範圍
不能先用滑鼠選範圍 , 才叫出進階篩選
謝謝再次指導,是在練習VBA時發現的.是不是股票就不清楚了.
(其實VBA改用Dictionary後已沒問題了,完整VBA放在Sheet3)
(原檔出自 http://forum.twbts.com/thread-19422-1-1.html)
再次謝謝諸位大大!!

TOP