find vba 模糊_关于查找方法(Find方法)的最通俗教程

最新推荐文章于 2024-08-17 10:05:48 发布

小Lindsay

最新推荐文章于 2024-08-17 10:05:48 发布

阅读量2.4k

点赞数

文章标签： find vba 模糊

本文链接：https://blog.csdn.net/weixin_35231842/article/details/113565410

版权

拉框中的选项。

(5)参数LookAt，可选。可以为以下常量之一：XlWhole或者xlPart，用来指定所查找的数据是与单元格内容完全匹配还是部分匹配，默认值为xlPart。对应于“查找与替换”对话框中，“单元格匹配”复选框。

(6)参数SearchOrder，可选。用来确定如何在单元格区域中进行查找，是以行的方式(xlByRows)查找，还是以列的方式(xlByColumns)查找，默认值为xlByRows。对应于“查找与替换”对话框中，“搜索”下拉框中的选项。

(7)参数SearchDirection，可选。用来确定查找的方向，即是向前查找(XlPrevious)还是向后查找(xlNext)，默认的是向后查找。

(8)参数MatchCase，可选。若该参数值为True，则在查找时区分大小写。默认值为False。对应于“查找与替换”对话框中，“区分大小写”复选框。

(9)参数MatchByter，可选。即是否区分全角或半角，在选择或安装了双字节语言时使用。若该参数为True，则双字节字符仅与双字节字符相匹配；若该参数为False，则双字节字符可匹配与其相同的单字节字符。对应于“查找与替换”对话框中，“区分全角/半角”复选框。

(10)参数SearchFormat，可选，指定一个确切类型的查找格式。对应于“查找与替换”对话框中，“格式”按钮。当设置带有相应格式的查找时，该参数值为True。

(11)在每次使用Find方法后，参数LookIn、LookAt、SearchOrder、MatchByte的设置将保存。如果下次使用本方法时，不改变或指定这些参数的值，那么该方法将使用保存的值。

在VBA中设置的这些参数将更改“查找与替换”对话框中的设置；同理，更改“查找与替换”对话框中的设置，也将同时更改已保存的值。也就是说，在编写好一段代码后，若在代码中未指定上述参数，可能在初期运行时能满足要求，但若用户在“查找与替换”对话框中更改了这些参数，它们将同时反映到程序代码中，当再次运行代码时，运行结果可能会产生差异或错误。若要避免这个问题，在每次使用时建议明确的设置这些参数。

3. Find方法使用示例

3.1 本示例在活动工作表中查找what变量所代表的值的单元格，并删除该单元格所在的列。

‘- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Sub Find_Error()

Dim rng As Range

Dim what As String

what = "Error"

Set rng = ActiveSheet.UsedRange.Find(what)

If rng Is Nothing Then

Exit Do

Else

Columns(rng.Column).Delete

End If

Loop

End Sub

‘- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

3.2 带格式的查找

本示例在当前工作表单元格中查找字体为"Arial Unicode MS"且颜色为红色的单元格。其中，Application.FindFormat对象允许指定所需要查找的格式，此时Find方法的参数SearchFormat应设置为True。

‘- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Sub FindWithFormat()

With Application.FindFormat.Font

.Name = "Arial Unicode MS"

.ColorIndex = 3

End With

Cells.Find(what:="", SearchFormat:=True).Activate

End Sub

‘- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

[小结] 在使用Find方法找到符合条件的数据后，就可以对其进行相应的操作了。您可以：

(1)对该数据所在的单元格进行操作；

(2)对该数据所在单元格的行或列进行操作；

(3)对该数据所在的单元格区域进行操作。

--------------------------------------------------------------------------------

4. 与Find方法相联系的方法

可以使用FindNext方法和FindPrevious方法进行重复查找。在使用这两个方法之前，必须用Find方法指定所需要查找的数据内容。

4.1 FindNext方法

FindNext方法对应于“查找与替换”对话框中的“查找下一个”按钮。可以使用该方法继续执行查找，查找下一个与Find方法中所指定条件的数据相匹配的单元格，返回代表该单元格的Range对象。在使用该方法时，不影响选定区域或活动单元格。

4.1.1 语法

.FindNext(After)

4.1.2 参数说明

参数After，可选。代表所指定的单元格，将从该单元格之后开始进行查找。开始时不查找该位置所在的单元格，直到FindNext方法绕回到该单元格时，才对其内容进行查找。所指定的位置必须是单元格区域中的单个单元格，如果未指定本参数，则将从单元格区域的左上角的单元格之后开始进行查找。

当查找到指定查找区域的末尾时，本方法将环绕至区域的开始继续查找。发生环绕后，为停止查找，可保存第一次找到的单元格地址，然后测试下一个查找到的单元格地址是否与其相同，作为判断查找退出的条件，以避免出现死循环。当然，如果在查找的过程中，将查找到的单元格数据进行了改变，也可不作此判断，如下例所示。

4.1.3 对VBA帮助系统上的一点疑问探讨

在VBA帮助系统中，介绍Find方法和FindNext方法所使用的示例好像有点问题：当在Excel中运行时，虽然运行结果正确，但是在运行到最后时，会报错误：运行时错误’91’:对象变量或With块变量未设置。究其原因，可能是对象变量c的问题，因为当进行查找并将相应的值全部改变后，最后变量c的值为Nothing。将其稍作改动后，运行通过。

原示例代码如下：(大家也可参见VBA帮助系统Find方法或FindNext方法帮助主题)

本示例在单元格区域A1:A500中查找值为2的单元格，并将这些单元格的值变为5。

With Worksheets(1).Range("a1:a500")

Set c = .Find(2, lookin:=xlValues)

If Not c Is Nothing Then

firstAddress = c.Address

c.Value = 5

Set c = .FindNext(c)

Loop While Not c Is Nothing And c.Address <> firstAddress

End If

End With

经修改后的示例代码如下，即在原代码中加了一句错误处理语句On Error Resume Next，忽略所发生的错误。