查找-VLookup

版权声明：本文为博主原创文章，未经博主允许不得转载。 https://blog.csdn.net/fourSeasonBeans/article/details/88583290

微信公众号原文

系统：Windows 7
软件：Excel 2010

学习路径图：

• 针对之前的学习路径图，会针对的写一些文章
• 今天讲讲常见的表内查找：VLookup。这个很多人应该比较熟悉了，在Excel公式中也经常用到

效果动图

Part 1：示例

1. 这个示例和上一次说的match，效果上看起来一样

Part 2：代码

Sub 查询成绩()
    studentName = InputBox("请输入拟查询人员姓名")
    Debug.Print (studentName)
    
    Set sht = ThisWorkbook.Worksheets("示例")
    Set rngName = sht.Range("A:C")

    yuwen = Application.VLookup(studentName, rngName, 2, False)
    shuxue = Application.VLookup(studentName, rngName, 3, False)
    
    If IsError(yuwen) Then
        MsgBox "未查询到该人员信息"
    Else
        MsgBox studentName & Chr(13) & Chr(10) & "语文成绩：" & yuwen & "，数学成绩：" & shuxue
    End If
    
End Sub

代码截图

输出结果

Part 3：部分代码解读

1. yuwen = Application.VLookup(studentName, rngName, 2, False)，三个参数分别为：拟查询信息，拟查询区域，返回哪一列，查询方式。
   • 拟查询值与拟查询区域的第一列进行比对，找到对应行
   • 返回指定列对应行的数据
   • 查询方式：False表示精确匹配

数据源

---

• 如需文中高清并可以无限放大路径图，可以文后留言留下邮箱，小编会发过去
• 本文为原创作品，如需转载，可加小编微信号learningBin

---

更多精彩，请关注微信公众号
扫描二维码，关注本公众号