→ soyoso: 1.減少巢狀迴圈次數range.end().row來取得最後一筆有值的 10/08 07:27
→ soyoso: 儲存格列號 10/08 07:27
→ soyoso: 2.只針對出現暗號的儲存格,range.find或range.autofilter 10/08 07:27
→ soyoso: 3.減少range.value的寫入,而是先寫入變數內,最後再一次 10/08 07:27
→ soyoso: 性的寫入範圍內 10/08 07:27
→ soyoso: 暗號有2個9527,只有1個唐伯虎方面(len(儲存格)-len( 10/08 07:27
→ soyoso: replace(取代9527[變數])))/len(9527[變數]),或是ubound( 10/08 07:27
→ soyoso: split()),這樣可得知字串內有出現多少次 10/08 07:27
→ soyoso: 再判斷是否次數有相符 10/08 07:27
啊 忘了修文 迴圈上限的部分我後來有修正了
這樣就不用多檢查沒有值的欄位
range.find或range.autofilter我會再研究看看
另外 寫入變數內再拿出來的做法有範例嗎? 網站也可
然後雖然可能不會用到了,但還是想問一下
range.value=值 跟 range="值" 在運算速度上是有差的嗎?
※ 編輯: Kamikiri (60.248.94.55 臺灣), 10/08/2019 10:16:46
→ soyoso: 寫入再拿出來,不確定所謂的拿出來是指?一次性寫入範圍內 10/08 09:56
→ soyoso: 嗎?如果是的話寫入變數的話,變數(索引值,索引值[二維])= 10/08 09:58
→ soyoso: 判斷內原本要寫入儲存格的值;最後迴圈都執行完畢,在 10/08 09:59
→ soyoso: range(和變數維度、個數相同的範圍)=變數 的方式寫入 10/08 10:00
→ soyoso: range.value 或 range=值方面測試寫入10次10萬資料上 10/08 10:06
感謝,剛剛在看到你的推文前上網查了一下
目前只想出以下寫法(還沒寫好寫正確 但應該類似)?
Dim Array(1,52) as Variant
if 解碼有誤
Array(Row2,Col) = "解碼遺漏:" & Decry
不知道創個Dictionary寫進去之後再整批拿出來是否也相同
總之目前大致上已經有方向,應該沒問題了,感謝解答
※ 編輯: Kamikiri (60.248.94.55 臺灣), 10/08/2019 10:22:03
→ soyoso: 如非一維的話,這要看dictionary是否可產生二維以上 10/08 10:22
→ soyoso: 一維的話,一樣range= dictionary.keys的方式 10/08 10:23
→ soyoso: dictionary.key寫入列的話,應需用工作表函數transpose轉 10/08 10:24
→ soyoso: 置 10/08 10:24
了解,我晚點再GOOGLE研究看看
最後一問,如果你還有看到的話再麻煩解答
假如我想在解碼中使用萬用字元*
例如 95*7 讓9507~9597全部都視為應該被解碼為唐伯虎的話
是否只能使用Range.Find才有辦法?
發現其他寫法似乎都只會把*視為一般字元而非萬用字元
萬分感謝
※ 編輯: Kamikiri (60.248.94.55 臺灣), 10/08/2019 11:33:39
→ soyoso: like或range.autofilter 方面可用萬用字元 10/08 11:59
推 foolkids: 一樣推薦Dictionary,30萬筆的比較時,效率還可以;超過 10/10 17:57
→ foolkids: 的時候一樣有效能問題,要再多做些手段 10/10 17:57