FIND功能的正确使用方法

le.cui

见如下代码：
Function 取得准结(r1 As Range, r2 As Range)
    'Application.Volatile
    If r1.Value <> "" And r2.Value <> "" Then
        '定义数据区域
        Dim Dr As Range
        '设置数据区域
        Set Dr = Worksheets("单件工时").Columns("A")
        '定义单件区域，第一次地址
        Dim DJ As Range, firstAddress As String
        Set ZJ = Dr.Find(r1.Value, LookIn:=xlValues, SearchOrder:=xlByColumns)
        If Not ZJ Is Nothing Then
            firstAddress = ZJ.Address
            Do
                If ZJ.Offset(0, 1).Value = r2.Value Then
                    取得准结 = ZJ.Offset(0, 2).Value
                    Exit Function
                End If
                Set ZJ = Dr.Find(r1.Value, After:=ZJ, LookIn:=xlValues, SearchOrder:=xlByColumns)
            Loop While Not (ZJ Is Nothing) And ZJ.Address <> firstAddress
        End If
    End If
End Function
注意倒数第5行，帮助里写的是使用findnext方法，但在实际使用过程中发现findnext这个方法在循环时无法正常运行诡异之极，可能是因为DO循环的问题，但没有循环函数功能就要受到最大影响，所以放弃findnext方法，再次使用find方法，其实很简单，只要再次指定一下After就可以了。
至于with语句用不用都可以。
其实查询还是推荐使用find方法，因为这个方法运行起来还是真快啊。

Zamyi

象这个例子，数组+LIKE会更快。

wanghaiqn1957

具体问题，具体分析，有准对性会更好一些。

vitamini

可以的，学习了。