Question

如果名称（存在于表1和表2中）匹配，则使用索引匹配将数据从表2复制到table1。

任何方式我可以计算在运行sub后会有多少匹配？

代码：

Sub Find_the_value() 

    Dim i As Integer 
    i = 0 

    For Each Cl In ActiveSheet.Range("A1:A10") 
        If Cl.Value = 5 Then 
            i = i + 1 
            Exit For 
        End If 
    Next Cl 
    MsgBox i 

End Sub

Answer 1

你有现有的代码吗？声明一个整数并在每次找到匹配时递增它应该相对简单。

编辑：

Sub Find_the_value()

    Dim i As Integer
    Dim Cl As Range

    i = 0

    For Each Cl In ActiveSheet.Range("A1:A10")

        If Cl.Value = 5 Then

            i = i + 1

        End If

    Next Cl

    MsgBox i

End Sub

VBA以任何方式计算vlookup / index匹配的成功匹配次数

1 个答案: