說起VLOOKUP大家都不陌生，但你有沒有試過用VLOOKUP一次處理超過幾十萬條記錄呢？年底了負(fù)責(zé)做成本分析的同事求助，用VLOOKUP處理大量數(shù)據(jù)的時(shí)候需要等待很長時(shí)間甚至Excel會直接卡死，有沒有更高效的方法呢？

下面向大家介紹使用字典對象應(yīng)對VLOOKUP處理大量數(shù)據(jù)時(shí)力不從心的問題。

1、假設(shè)有兩個(gè)表格：表2存放訂單號及部門、類型、金額、日期、負(fù)責(zé)人、完成狀態(tài)等相關(guān)信息，共100萬條記錄；表1存放待查找的訂單號及金額、完成狀態(tài)信息，共50萬條記錄。

2、按Alt F11快捷鍵，進(jìn)入VBA編輯窗口，插入一個(gè)模塊，寫入以下代碼：

Sub DLOOKUP()   

   Dim dic As Object

   Dim arr, brr

   Dim acol As Long, bcol As Long

   Dim itm

   Dim crr() As Long

   Set dic = CreateObject('Scripting.Dictionary')

   arr = Sheet1.Range('A1').CurrentRegion

   brr = Sheet2.Range('A1').CurrentRegion

   acol = Sheet1.Range('A1').CurrentRegion.Columns.Count

   bcol = Sheet2.Range('A1').CurrentRegion.Columns.Count

   ReDim crr(2 To acol) '重定義為與表1的列一致

       For i = 2 To acol

       For j = 2 To bcol

           If arr(1, i) = brr(1, j) Then crr(i) = j

       Next

   Next           

   For i = 2 To UBound(brr)

       dic(brr(i, 1)) = i

   Next   

   For i = 2 To UBound(arr)

       itm = dic(arr(i, 1))

       If itm <> '' Then

           For j = 2 To acol

               arr(i, j) = brr(itm, crr(j))

           Next

       End If

   Next

    Sheet1.Range('A1').Resize(UBound(arr), acol) = arr

Set dic = Nothing

End Sub

3、運(yùn)行宏DLOOKUP()，1-2分鐘后，結(jié)果就在表1中顯示出來了。

以后只需要在表2中存放數(shù)據(jù)源（關(guān)鍵字放第1列），在表1中存放待查找的關(guān)鍵字（關(guān)鍵字放第1列）和需要引用的字段名，然后運(yùn)行下DLOOKUP()就可以了。

字典概念和基本用法：

字典（Dictionary）是腳本語言（Scripting）中提供的一個(gè)對象，通過建立字典可以實(shí)現(xiàn)高效的數(shù)據(jù)查詢。

用法1：Dictionary（Key）=Item

在字典（Dictionary）中為關(guān)鍵字（Key）和條目（Item）建立對應(yīng)關(guān)系。

用法2：Item=Dictionary（Key）

在字典（Dictionary）中查找關(guān)鍵字（Key）對應(yīng)的條目（Item）。

上文的DLOOKUP()首先建立了一個(gè)字典對象dic，用arr和brr分別保存表1和表2的數(shù)據(jù)，找出表1所要引用的字段名在表2中對應(yīng)的列號；然后在字典中為表2的訂單號和行號建立對應(yīng)關(guān)系，在字典中查找表1的訂單號得到對應(yīng)的行號；最后根據(jù)行號和列號將表2中對應(yīng)的數(shù)據(jù)寫到表1中。

字典對象還有Key、Item等屬性和Add、Remove、Exists等方法，除了實(shí)現(xiàn)查找和引用，還可以實(shí)現(xiàn)去重、替換、排序等各種功能，而且效率很高。