返回列表 上一主題 發帖

单元格内不重复字符

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2010-7-10 17:41 | 顯示全部帖子
本帖最後由 GBKEE 於 2010-7-10 17:51 編輯

回復 1# wqfzqgk
請問  你所分享的  单元格内不重复字符 程序中
為何要到二 個 scripting.dictionary 物件
Set d = CreateObject("scripting.dictionary")
Set e = CreateObject("scripting.dictionary")
使用一個就足夠 如下
  1. Set d = CreateObject("scripting.dictionary")
  2. For i = 1 To Len(ActiveCell.Value)
  3. d(Mid(ActiveCell.Value, i, 1)) = ""
  4. Next
  5. MsgBox Join(d.keys, "")
複製代碼
你使用 If Err.Number = 457 Then d.Remove (Mid(ActiveCell, i, 1))
會導致 MsgBox Join(d.keys, "") 的不正確

請問如下二個迴圈的用意 可以說明一下解惑嗎?
  1. For i = 1 To Len(ActiveCell.Value)
  2. For a = 1 To Len(ActiveCell.Value)
  3. If Mid(ActiveCell.Value, i, 1) = Mid(ActiveCell.Value, a, 1) Then m = m + 1
  4. Next
  5. If m = 1 Then mm = mm Mid(ActiveCell.Value, i, 1) 這裡有錯誤
  6. m = 0
  7. Next
複製代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2010-7-10 18:19 | 顯示全部帖子
回復 3# wqfzqgk

原來是 [去除重复的值] 後顯示出 沒有重複過的字元
是我第一眼的觀念是錯誤  去除重复的值後  顯示出全部的的字元

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題