Excel VBA系列之VLOOKUP函数查询数据2024-04-12 01:28:46
关于Excel中如何使用VLOOKUP函数,可以参考以下文章。
1. 如图所示,有一张学生成绩表,要通过学号来查找其对应的学生的其他信息。2. 打开Visual Basic,添加模块和过程,称之为“查询数据”。Sub 查询数据()End Sub
3. 在VBA中,VLOOKUP函数可以通过工作表函数(WorksheetFunction)找到。Sub 查询数据() Range("I2") = Application.WorksheetFunction.VLookupEnd Sub
4. 在代码中输入VLOOKUP函数的参数。Sub 查询数据()Range("I2")=Application.WorksheetFunction.VLookup(Range("H2"),Range("A:F"),2, False)End Sub
5. 执行以上代码,即可获取学号202001对应的班级信息。6. 添加查询其他项信息的代码。Sub 查询数据()Range("I2") = Application.WorksheetFunction.VLookup(Range("H2"), Range("A:F"), 2, False)Range("J2") = Application.WorksheetFunction.VLookup(Range("H2"), Range("A:F"), 3, False)Range("K2") = Application.WorksheetFunction.VLookup(Range("H2"), Range("A:F"), 4, False)Range("L2") = Application.WorksheetFunction.VLookup(Range("H2"), Range("A:F"), 5, False)Range("M2") = Application.WorksheetFunction.VLookup(Range("H2"), Range("A:F"), 6, False)End Sub
7. 以上代码也可以用for循环来替换,如图所示。Sub 查询数据()Dim i As IntegerFor i = 1 to 5Range("I2").Offset(0,i-1)= Application.WorksheetFunction.VLookup(Range("H2"), Range("A:F"), i + 1, False)NextEnd Sub
以上案例仅用于演示,更多实际应用请根据自己的需求进行调整。
喜欢的朋友请多多关注,感谢支持!
标签: vba在excel水文数据中的应用