ExcelVBA使用vlookup出现1004错误解决方法

vlookup 查找时如找到不到匹配项会返回#N/A 的错误，这点在工作表中是很友好的，但是在VBA中使用vlookup时不会返回这个错误值，而且是抛出1004错误，所以在使用是要标记它。示例代码：Function check_code(code) As Boolean If code > Empty Then code = code & "" On Error Resume Next u = W...

检查一下VBA工程“引用”，如果引用了类似的其他库，取消即可。比如别人用WPS表格设计的文件，你用EXCEL打开时会出现类似的问题，这时你就会发现“引用”里还勾选了WPS的库，取消后重新打开文件就正常了

如果为 TRUE 或省略，则返回近似匹配值，也就是说，如果找不到精确匹配值，则返回小于“查找值”的最大数值；如果“逻辑值”为FALSE，函数 VLOOKUP 将返回精确匹配值。如果找不到，则返回错误值 #N/A。如果“查找值”为文本时，“逻辑值”一般应为 FALSE 。另外：·如果“查找值”小于“区域”第...

错误多多。你这个不建议用工作表函数，这样速度有点慢，而且VLOOKUP的第一个参数用mid提取肯定是文本值，如果rng1的字符串里面有数字（比如文本型的123）和rng2（数值型的123），这两个是肯定匹配不了的，还会出错，所以必须还要有个on error resume next才行。Function Mya(rng1 As Range, rng2 As...

gm = Application.WorksheetFunction.VLookup(Range("f1"), Range("a1,b7"), 2, 0)这句改成 gm = Application.WorksheetFunction.VLookup(Range("f1"), Range("a1:b7"), 2, 0)

这个错误值使vba报错。为了避免找不到而报错，可以使用以下错误捕获 Sub test()On Error Resume NextCells(5, 1) = Application.WorksheetFunction.VLookup(Cells(5, 2), Sheets("HR").Range("A:C"), 3, 0)End Sub当然，你使用find方法也可以，方法不唯一，就看你习惯用哪个。

在B2单元格输入公式 =IFERROR(VLOOKUP($A2,$H$1:$M$6,COLUMN(B1),0),"")右拉至F2单元格，下拉至F6单元格，如图:

只查一个没意义，写代码的目的就是批量查，示例代码：Option ExplicitSub 宏1() Dim db, arr, i, rlt Set db = CreateObject("Scripting.Dictionary") arr = Sheets("表2").UsedRange For i = 1 To UBound(arr) db(Trim(arr(i, 1))) = Trim(arr(i, 2)) Next i...

Sub 查找()With Worksheets(1).columns("A:A")Set c = .Find(100, LookIn:=xlValues)If Not c Is Nothing Then Range("c1").Value = Cells(c.Row, 2)Else Range("c1").Value = "不存在"End If End With End Sub 这是一个基本的替换vlookup的方法,变量自己再设再改吧,不知道你变量...

因为vlookup生成的后面有公式存在，而提供给iserror的参数错误，导致的。我当初就是再把它转成数值格式的，然后再应用iserror，后面就ok了。我的代码如下：For i = 2 To module_number - 1 Range("C" & i).Select: ActiveCell.Value = ActiveCell.Value: If IsError(ActiveCell.Value) Then ...