標題: 對不起 請問一下該如何怎麼使用VB? [打印本頁]

---

作者: 卡嘉塔    時間: 2014-4-18 23:24     標題: 對不起 請問一下該如何怎麼使用VB?

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

這是我使用的過程圖
按下VB 並貼上
[attach]18073[/attach]
然後對區域所選取 按下右邊的執行
[attach]18074[/attach]
就跑出這個了
[attach]18075[/attach]

---

作者: Hsieh    時間: 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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)