代码之家 › 专栏 › 技术社区 › barciewicz

为什么这个查找函数很慢?

excel-vba vba excel

barciewicz · 技术社区 · 7 年前

如果在指定范围内找到单元格值,我编写了以下UDF函数以返回true,否则返回false:

Function find_in_range(value_to_find As Variant, lookup_range As Range) As Boolean

For Each cell In lookup_range.Cells.SpecialCells(xlConstants)
    If cell.Value = value_to_find Then
        find_in_range = True
        Exit For
    Else
        find_in_range = False
    End If
Next cell

End Function

但是,它比vlookup慢得多。

为什么会这样?有没有办法让它更快?使用什么魔法使vlookup搜索更快?

3 回复 | 直到 7 年前

Vityata 7 年前

这是提高速度的一种方法:

Public Function findInRange(valueToFind As Variant, lookupRange As Range) As Boolean
    findInRange = Not IsError(Application.Match(valueToFind, lookupRange, 0))
End Function

使用什么魔法使vlookup搜索更快?

用C语言编程

Samuel Hulla 7 年前

除非你绝对坚持用聚乙烯填充 (非字面意义上) ,Excel已具有内置函数 Find 返回 Range 如果找到,或 Nothing 如果没有

您可以进一步将其修改为一个函数,该函数的计算结果为 Boolean

Option Explicit
Function isFound(ByVal value_to_find As String, ByVal in_range as Range) As Boolean

 If in_range.Find(value_to_find, lookin:= xlValues) Is Nothing Then
    isFound = False
 Else
    isFound = True
 End If

End Function

退换商品 true 如果在范围内可以找到值,则返回 false

一般来说,如果你能做点什么 如果没有循环,通常意味着它更快

Pá´Ê 7 年前

在大多数情况下(我甚至会说全部),内置函数都比VBA快。它们已经被编译并且是本机代码。

它们也可以在VBA不能使用的情况下使用多线程。所有这些效果都使它们的动作更快。你也不想重新发明轮子。所以我建议尽可能使用内置函数。

推荐文章

Kram Kramer · 通过vba自动调整文本大小以适应形状

8 月前

Swapnil Supekar · 将二维阵列转换为一维阵列,并将一维阵列粘贴到另一张图纸上

8 月前

Eric · 我有邮政编码替换问题Excel VBA

8 月前

Chasester · VBA使用嵌套的DIV抓取URL

8 月前

jkp · 特殊字符复选标记

8 月前

Iron Man · 代码插入和复制到错误的工作表

9 月前

NoFafo · 将文本框放入数组进行格式化

9 月前

Smokestack · 过滤器范围C3:G3并粘贴到其他单元格

9 月前

Julie S. · Excel VBA for循环的代码帮助,用于检查多个ListBoxes是否有值?

9 月前

Kram Kramer · 如何通过vba代码将Chart xAxes字体颜色从黑色更改为红色?

9 月前