Excel VBA: Como encontrar a última linha de uma planilha que contém dados reais

Question

Eu sei como encontrar a última linha da minha planilha que possui qualquer tipo de dados ou valores

Dim lastRow As Integer
   With ActiveSheet
       lastRow = .Range("B" & .Rows.Count).End(xlUp).Row
   End With

Pergunta: Como faço para identificar a última linha com dados reais, em outras palavras, a última linha que não possui o valor "# N / A".

    

Answer 1

Experimente:

Sub hjksdf()
    Dim lastRow As Long
    With ActiveSheet
       lastRow = .Range("B" & .Rows.Count).End(xlUp).Row
    End With
    For i = lastRow To 1 Step -1
        If Cells(i, "B").Text <> "#N/A" Then
            Exit For
        End If
    Next i

    lastRow = i
    MsgBox i
End Sub

EDIT # 1:

Aqui estão algumas formas de encontrar o último Z e o primeiro Z :

Sub FindLastZ()
    Dim lastRow As Long
    With ActiveSheet
       lastRow = .Range("B" & .Rows.Count).End(xlUp).Row
    End With
    For i = lastRow To 1 Step -1
        If Cells(i, "B").Text = "Z" Then
            Exit For
        End If
    Next i

    lastRow = i
    MsgBox i

End Sub

Sub FindFirstZ()
    Dim lastRow As Long
    With ActiveSheet
       lastRow = .Range("B" & .Rows.Count).End(xlUp).Row
    End With
    For i = 1 To lastRow
        If Cells(i, "B").Text = "Z" Then
            Exit For
        End If
    Next i

    lastRow = i
    MsgBox i

End Sub