使用多列数据检查一个列数据的VBA代码?

我在A列上的ID号从A3到A25开始 . 想要使用F G H I列值检查每个A列值 . 在F G H I列中,数据从第29行开始如何使用多列值一次检查A列值?

lastrow = Range(“A”&Rows.Count).End(xlUp).Row

lastrow1 =范围(“F”和Rows.Count).End(xlUp).Row

For i = 3 To lastrow

    For j = 30 To lastrow1

        If Range("F" & j).Value = Range("A" & i).Value Or Range("G" & j).Value = Range("A" & i).Value Or Range("H" & j).Value = Range("A" & i).Value Or Range("I" & j).Value = Range("A" & i).Value Then
        End if

    Next j

Next i

回答(1)

2 years ago

使用下面的代码 . 我已经测试了你的查询

如有任何问题请测试一下,随时联系 .

Function allvlookup(rng As Range, rng1 As Range)

    Dim rng_r As Range
    Dim str As String


    For Each rng_r In rng1
        If rng = rng_r Then
            result = rng_r.Value
        End If
    Next rng_r

    allvlookup = result

End Function