Question

EXCEL vba错误类型1004,不能取得殴打Application.WorksheetFunction.Find的属性

Public Sub iFind()
Dim iNumA()
Dim iCell As Range
Dim i As Single
Dim iCount, fCount As Single
i = 2
iCount = 0

iNumA = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 110, 122, 130, 14, 15, 16, 17, 18, 19, 200, 21, 2002, 23, 24, 25, 26, 27, 28, 29, 30)

For Each iCell In Range("a2:a5")

Do While iCount < 3 And fCount < 30
For fCount = 0 To 29
If Application.WorksheetFunction.Find(iNumA(fCount), iCell) > 0 Then
iCount = iCount + 1
End If
fCount = fCount + 1
Next
Loop
MsgBox iCount
If iCount = 1 Or iCount = 2 Then
Cells(i, 2).Value = iCell.Address
i = i + 1
End If
Next

End Sub

Answer 1

Application.WorksheetFunction.Find(iNumA(fCount), iCell)公式本身没有问题，但当查找不到时，程序会提示错误，而不是像工作表中那样返回一个错误值。

建议用InStr([start, ]string1, string2[, compare])函数
start 可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果 start 包含 Null，将发生错误。如果指定了 compare 参数，则一定要有 start 参数。
string1 必要参数。接受搜索的字符串表达式。
string2 必要参数。被搜索的字符串表达式。
Compare 可选参数。指定字符串比较。如果 compare 是 Null，将发生错误。如果省略 compare，Option Compare 的设置将决定比较的类型。指定一个有效的LCID (LocaleID) 以在比较中使用与区域有关的规则。
compare 参数设置为：

常数 值 描述
vbUseCompareOption -1 使用Option Compare 语句设置执行一个比较。
vbBinaryCompare 0 执行一个二进制比较。
vbTextCompare 1 执行一个按照原文的比较。
vbDatabaseCompare 2 仅适用于Microsoft Access，执行一个基于数据库中信息的比较。

Answer 2

VBA有自己的查找函数，因此不能用工作表的Find函数。
把If Application.WorksheetFunction.Find(iNumA(fCount), iCell) > 0 Then改为：

If InStr(iCell, iNumA(fCount)) > 0 Then

以下供参考：

InStr 函数

请参阅 示例 特性

返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。

语法

InStr([start, ]string1,
string2[, compare])

InStr 函数的语法具有下面的参数：

部分

说明

start
可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果
start 包含 Null，将发生错误。如果指定了
compare 参数，则一定要有 start 参数。

string1
必要参数。接受搜索的字符串表达式。

string2
必要参数。被搜索的字符串表达式。

Compare
可选参数。指定字符串比较。如果
compare 是 Null，将发生错误。如果省略 compare，Option
Compare 的设置将决定比较的类型。指定一个有效的LCID (LocaleID)
以在比较中使用与区域有关的规则。

设置

compare 参数设置为：

常数

值

描述

vbUseCompareOption
-1
使用Option Compare 语句设置执行一个比较。

vbBinaryCompare
0
执行一个二进制比较。

vbTextCompare
1
执行一个按照原文的比较。

vbDatabaseCompare
2
仅适用于Microsoft
Access，执行一个基于数据库中信息的比较。

返回值

如果

InStr返回

string1 为零长度
0

string1 为 Null
Null

string2 为零长度
Start

string2 为 Null
Null

string2 找不到
0

在 string1 中找到string2
找到的位置

start > string2
0

说明

InStrB 函数作用于包含在字符串中的字节数据。所以 InStrB
返回的是字节位置，而不是字符位置。

Answer 3

1. 工作表函数FIND是用于字符串查找的，你要数据查找的话用MATCH函数。

2. 你如果只是想要比较iNumA数字的成员与iCell的值是否相等直接用iNumA(fcount)=iCell来判断就行了吧？

3. 你在for fcount=0 to 29的循环中有一句fcount=fcount+1，你这样循环的次数只有15次，不是30次，你确认这是你的本意吗？

4. 建议你把你这段代码想要实现什么功能说一下方便大家帮忙看怎么实现。