vba将数值转化文本格式_如何用VBA代替VLOOKUP函数？

哈罗，大家好，我是星光，今天和大家分享的主题是使用VBA处理数据查询的问题……

数据查询有很多种，比如单条件查询、多条件查询、多结果查询、模糊条件查询、跨表、跨文件数据查询……等等……我们不可能用一篇文章一股脑的全部说完，所以先从最简单的分享起……

我举个简单的小栗子。

如下图所示，需要根据A1:C7的数据明细，计算出A10:C11相关考号的人员姓名。

这就是所谓的单条件单结果数据查询了。

这事儿如果用函数解决，那自然是VLOOKUP的菜呗：

=IFERROR(VLOOKUP(A11,A$1:C$7,3,0),"")

如果用VBA代码实现VLOOKUP函数的效果，代码如下：

Sub DctFind() 'Excelhome vba编程学习与实践~看见星光    Dim d As Object, arr, brr, i&    Set d = CreateObject("scripting.dictionary")    'd.CompareMode = vbTextCompare '不区分字母大小写    arr = [a1:c7]    '数据源装入数组arr    brr = [a10:c13]    '查询区域数据装入数组brr    For i = 1 To UBound(arr)    '遍历数组arr        d(arr(i, 1)) = arr(i, 3)        '将考号作为key，姓名作为item装入字典    Next    For i = 2 To UBound(brr)    '标题行不用查询，所以从第二行开始遍历查询数值brr        If d.exists(brr(i, 1)) Then        '如果字典中存在考号            brr(i, 2) = d(brr(i, 1))            '根据考号从字典中取值        Else            brr(i, 2) = ""            '如果字典中不存在相关考号，则值返回为假空        End If    Next    With [a10:c13]        .NumberFormat = "@"        '设置文本格式，避免某些文本数值变形        .Value = brr        '结果数组写入单元格区域    End With    MsgBox "查询完成。"    Set d = Nothing    '释放字典End Sub

小贴士

1>该段代码区分字母大小写，即A和a作为查询值时，并不相等。如果需要不区分字母大小写，解除代码中下面语句的注释块。

d.CompareMode vbTextCompare

2>留个练手题吧，如下图所示，需要根据A1:C13数据明细，计算A15:C18相关人员指定课目的成绩。

更多资源和教程

• 零基础学SQL in Excel 25篇合集

• VBA爱好者请进，VBA代码宝概述

---

©EH看见星光

《VBA经典代码应用大全》 当当、天猫、京东均有销售~