VBA查找范围内的单元格值

Question

I am doing an algorithm and wanted to do a try-out in Excel VBA. After some criteria is met, I want to find a cell value in a certain range (and it is definitively there) but VBA doesn't seem to find it.

I have looked for similar cases and also have tried diming variables and adding them to my code, but it doesn't seem to work. When I try to use debug.print for the Range("AA2:AA16"), it runs into a error. It works for the other range.

Sheets(9).Range("AA2:AA16").Find (Sheets(9).Range("AK2").Value)     
Debug.Print Sheets(9).Range("AA2:AA16").Find(Sheets(9).Range("AK2").Value).Adress

Sheets(9).Range("AA1:AD1").Find (Sheets(9).Range("AM3").Value)
Debug.Print Sheets(9).Range("AA1:AD1").Find(Sheets(9).Range("AM3").Value).Address

I expect it to find the AK2 value in the "AA2:AA16" range and return the address. After that I want the code to select the line of that find, to select the column of the AM3 value in range "AA1:AD1" and then intersect both and sum 1 to that intersection.

Answer 1

I hope I got your problem right. Try to understand this code, it should guide you.

Sub test()
    Dim r1 As Range, r2 As Range, r3 As Range

    Set r1 = Sheets(1).Range("A2:A8").Find(Sheets(1).Range("A13"))
    If Not r1 Is Nothing Then
        Debug.Print r1.Address
    Else
        Debug.Print "not found"
    End If

    Set r2 = Sheets(1).Range("B1:D1").Find(Sheets(1).Range("A14"))
    If Not r2 Is Nothing Then
        Debug.Print r2.Address
    Else
        Debug.Print "not found"
    End If

    If Not (r1 Is Nothing Or r2 Is Nothing) Then
        Set r3 = Cells(r1.Row, r2.Column)
        Debug.Print r3.Address
        Debug.Print r3.Value
    Else
        Debug.Print "not found"
    End If
End Sub