超级查找函数，使用VBA在多个工作表中查找值

文章预览

学习Excel技术，关注微信公众号： excelperfect 标签： VBA ， 自定义函数 有时候，要在工作簿多个工作表中查找值，使用 VBA 也很方便。 VBA 自定义函数如下： Function SuperVLookup(var As Variant, str As String, n As Long) As Variant Dim wks As Worksheet Dim var1 As Variant For Each wks In Worksheets     If  wks.Name  < > ActiveSheet.Name Then On Error Resume Next      var1 = Application.WorksheetFunction.VLookup(var, Range( "'"   &  wks.Name &   "'!"   &  str), n, False) On Error GoTo 0 If Not IsError(var1) Then If Len(var1) > 0 Then SuperVLookup = var1 Exit Function End If End If End If Next wks SuperVLookup = CVErr(xlErrNA) End Function 其中，参数 var 是要查找的值；参数 str 是要查找的值在工作表中的单元格区域；参数 n 是要返回的值所在的列号。 欢迎在下面留言，完善 ………………………………