本系列講講字典功能
今天講講字典鍵不能重複的特性
圖1 去重
Sub test()
Set d = CreateObject("Scripting.Dictionary")
Set sht = ThisWorkbook.Worksheets("示例")
maxRow = sht.Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To maxRow Step 1
x = sht.Cells(i, "A")
d(x) = ""
Next i
rowNum = 2
For Each x In d.keys
sht.Cells(rowNum, "C") = x
rowNum = rowNum 1
Next
End Sub
圖2 代碼截圖
圖3 執行結果
圖4 字典數據結構
以上,為本次的介紹内容,下回見。
本文首發于Excel高效辦公之VBA。排版和細節略作修改,發于頭條
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!