返回列表 上一主題 發帖

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

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 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

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題