返回列表 上一主題 發帖

對不起 請問一下該如何怎麼使用VB?

卡嘉塔

帖子
11 
主題
4 
精華
0 
積分
15 
點名
0  
作業系統
win7 
軟體版本
office 2007 
閱讀權限
10 
性別
女 
註冊時間
2014-2-22 
最後登錄
2014-5-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-4-18 23:24 | 只看該作者

對不起 請問一下該如何怎麼使用VB?


原本問題是想說
該怎麼移除掉儲存格內的重複資料?
如標題所示,想讓左圖變右圖
------------------------------------------
然後找到與我相同問題的文章
http://forum.twbts.com/thread-10640-1-1.html
可是我會變成奇怪畫面 有人能教一下怎麼使用嗎

這是我使用的過程圖
按下VB 並貼上

然後對區域所選取 按下右邊的執行

就跑出這個了
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
247  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-14 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2014-4-20 11:11 | 只看該作者
回復 1# 卡嘉塔


    了解一下程式碼內容
  1. Sub ex()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. ar = Range("A1").CurrentRegion '與A1相連的資料寫入陣列
  4. For i = 1 To UBound(ar)
  5. If InStr(ar(i, 2), ",") > 0 Then '要移除重複資料在第2欄若有逗點存在則執行
  6.    For Each ky In Split(ar(i, 2), ",") '以逗點分割字串
  7.      d(ky) = ""
  8.    Next
  9.    ar(i, 2) = Join(d.keys, ",") '以逗點連結字典關鍵字
  10.    d.RemoveAll '移除字典內容
  11. End If
  12. Next
  13. [G1].Resize(UBound(ar, 1), UBound(ar, 2)) = ar '放在G欄
  14. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 對父母要知恩，感恩、報恩。
返回列表 上一主題