Public Sub withDic()
Dim dc As Object, rng As Range '把字典DC定義為Object
Set dc = CreateObject("Scripting.Dictionary") '設置字典
Debug.Print Now '輸出程序開始的時間，用于計算程序總共用多少時間
For Each rng In ThisWorkbook.Worksheets("123").Range("C2:C1121") '把一個表的值全部插入字典中
If Not dc.exists(rng.Value) Then dc.Add rng.Value, "zhangsan" '插入的過程中要判斷是否有重復值，否則會報錯;引號中是給每個值給一個鍵，此處所有鍵都一樣，如果想要不一樣可以價格計數器給每個鍵遞增標注
Next
For Each rng In ThisWorkbook.Worksheets("renxing").Range("A1:A153") '開始遍歷需要操作的表
If dc.exists(rng.Value) Then '如果有相同的就標注有或者沒有
rng.Offset(0, 1).Value = "有"
Else
rng.Offset(0, 1).Value = "沒有"
End If
Next
Debug.Print Now '輸出程序結束的時間，用于計算程序總共用多少時間
End Sub |
