Question

Excel vba 要是用find函数查找内容,找不到怎么办?

If Columns(i).Find("★", , , xlWhole).Row > 0 Then
goto 替换
else
i=i+1
end if

像这个★,一旦找不到就会弹出"运行时错误",而不执行i=i+1 怎么办?

Answer 1

解决办法如下：

1、首先，打开Excel，创建一个数据表格，接下来以下图为例进行演示，如下图所示，然后进入下一步。

　    

2、其次，需要调出日期中的月份和数字。将光标移动到单元格“ B2”，然后在菜单栏中单击“公式”，选择文本-find，如下图所示，然后进入下一步。

　    

3、接着，在弹出窗口中，输入内容，如下图所示，然后进入下一步。

　    

4、然后，按回车确定以查找与月份对应的数据的位置，如下图所示，然后进入下一步。

　    

5、随后，将公式向下拖动以将公式填充到其他单元格中。如下图所示，然后进入下一步。

　    

6、最后，也可以用相同的方法找出号数的位置。如下图所示。这样，问题就解决了。

　    

Answer 2

1、打开Excel制作如图所示的表格。

2、 现在要在日期中调出月份和号数。把光标移动到“B2”单元格，单击菜单栏“公式”——文本——find。

3、在弹出的对话框中输入如图所示的内容。

4、 现在单击确定就可以找到月份所对应的数据的位置了。

5、用下拉手柄下下拖动公式可以把公式填充到其他单元格。

6、用同样的方式可以把号数的位置也找出来。就完成了。

Answer 3

看了的代码，先说个无关紧要的建议，最好不要使用GOTO

 

解决你的问题，需要使用错误捕获语句，下面的例子代码：

dim r as range
on error resume next '不报错
set r=columns(i).find("★",,,xlwhole)
on error goto 0'恢复报错
if r is nothing then 'find失败
    n=r.row'找到
else
    n=0 '没找到
end if
if n>0 then
'你原来的语句......

Answer 4

If IsError(Columns(i).Find("★", , , xlWhole).Row) = False Then

Answer 5

on error resume next

放在代码首行