利用字典來循環(huán)對比兩個(gè)表，提高效率

ID:59284 · 發(fā)表于 2014-3-1 01:15

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

帳號		自動(dòng)登錄	找回密碼
密碼			立即注冊

久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

利用字典來循環(huán)對比兩個(gè)表，提高效率