關於Scripting.Dictionary除了過濾重複值，是否可以同時忽略空值？
- 帖子
- 976
- 主題
- 7
- 精華
- 0
- 積分
- 1018
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-4-19
- 最後登錄
- 2023-9-21
|
|
|
|
|
|
|
|
- 帖子
- 976
- 主題
- 7
- 精華
- 0
- 積分
- 1018
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-4-19
- 最後登錄
- 2023-9-21
|
回復 4# av8d
因為空值隨時會被填入資料，所以是否能暫時忽略，
但是當填入時，就會算入。
>>更改如下，謝謝
For Each A In .Range("B4", .[B65536].End(xlUp))
If A.Value = "" Then GoTo 99
d(A.Value) = "" '只取B欄不重複值
'd(A.Value) = IIf(d(A.Value) = "", A.Offset(, 1).Value, d(A.Value) & "," & A.Offset(, 1))
99: Next |
|
|
|
|
|
|
|
發表於 2021-10-5 17:03
| 