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

发布网友发布时间：2022-04-20 02:09

我来回答

共5个回答

热心网友时间：2023-09-27 00:36

解决办法如下：

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

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

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

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

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

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

热心网友时间：2023-09-27 00:36

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

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

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

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

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

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

热心网友时间：2023-09-27 00:37

看了的代码，先说个无关紧要的建议，最好不要使用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
'你原来的语句......

热心网友时间：2023-09-27 00:37

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

热心网友时间：2023-09-27 00:38

on error resume next

放在代码首行

首页

文章

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