标签：style   blog   http   color   使用   os   

1. VBA 中的哈希表

• 使用要从中进行查找的 table_array 内容构建词典。用 table_array 第一列作为 key，table_array 第 col_index_num 列作为 value，插入 Dictionary 中：Dictionary.Add key, value;
• 查找时只需直接取 Dictionary 内的值 Dictionary.Item(lookup_value)，即可完成查找;

2. VLOOKUP 慢，主要问题不在算法上

• VBA 往 Excel 表格中填内容时，会引发表格中已有公式的自动计算，非常耗时；
• Excel 表格内容更新时，会触发屏幕显示内容的自动刷新，代价也很高；

3. 示例 VBA 代码

下面是我写的一段示例代码。我不熟悉 VBA 语言，只是照葫芦画瓢。代码规范程度相差甚远，但题意应是体现其中了。有心的朋友可以用作参考。

Sub 在机器表上生成一级分中心()
‘
‘ 在机器表上生成一级分中心 Macro
‘
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

t0 = Timer
‘ 词典
Set map_dict = CreateObject("Scripting.Dictionary")

‘ 打开分中心映射表
Set map_sheet = Worksheets("分中心映射表")
map_nrows = map_sheet.Range("A300").End(xlUp).Row
Set my_rows = map_sheet.Range("A2:B" & map_nrows).Rows

‘ 遍历分中心映射表，获得 分中心 对应的一级分中心，插入词典
For Each my_row In my_rows
   center = my_row.Cells(1, 1).Value
   city = my_row.Cells(1, 2).Value
   If Not map_dict.Exists(center) Then
       map_dict.Add center, city
   End If
Next my_row

‘ 打开机器表
Set dispatch_sheet = Worksheets("机器表")
dispatch_nrows = dispatch_sheet.Range("a99999").End(xlUp).Row
Set my_rows = dispatch_sheet.Range("a1:b" & dispatch_nrows).Rows

‘ 遍历开通表，通过词典获得 machine_id 对应的一级分中心，插入开通表
For Each o_row In my_rows
   center = o_row.Cells(1, 2).Value
   o_row.Cells(1, 2).Value = map_dict.Item(center)
Next o_row

MsgBox "在机器表上生成一级分中心。共处理 " & dispatch_nrows & " 条记录，总耗时" & Timer - t0 & "秒。"

‘ 销毁建立的词典
Set map_dict = Nothing

‘ 打开自动计算和屏幕刷新
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
‘
End Sub

4. 测试用例

上面的代码如何测试呢？

id  name：分中心映射表，字典表    nickName id：机器表，待匹配表           匹配后结果：
1    a1                              b1    1                              b1    a1
2    a2                              b2    2                              b2    a2
3    a3                              b3    3                              b3    a3
4    a4                              b4    4                              b4    a4
5    a5                              b5    5                              b5    a5
6    a6                              b6    6                              b6    a6
7    a7                              b7    7                              b7    a7
8    a8                              b8    8                              b8    a8
9    a9                              b9    9                              b9    a9
10   a10                             b10   10                             b10   a10

— EOF —

Excel 中用 VBA 字典查找代替 VLOOKUP,布布扣,bubuko.com

Excel 中用 VBA 字典查找代替 VLOOKUP

标签：style   blog   http   color   使用   os   

原文地址：http://my.oschina.net/leejun2005/blog/294348