Как получить значение номера строки, в которой это значение найдено в этом коде?

Question

Как получить диапазон или номер строки, в которой находится значение в следующем коде?В разделе If я хочу получить номер строки вместо перехода к значению, как здесь, в этом фрагменте кода

With wsSource.Range("A:A") 'searches all of column A
      Set Rng1 = .Find(What:=FindString, _
      After:=.Cells(.Cells.Count), _
      LookIn:=xlValues, _
      LookAt:=xlWhole, _
      SearchOrder:=xlByRows, _
      SearchDirection:=xlNext, _
      MatchCase:=False)
      If Not Rng1 Is Nothing Then
           Application.Goto Rng1, True 'value found
      Else
           MsgBox "Nothing found" 'value not found
      End If
End With

Answer 1

Активируйте Rng1, а затем получите активную строку ячейки, как показано ниже.

With wsSource.Range("A:A") 'searches all of column A
      Set Rng1 = .Find(What:=FindString, _
      After:=.Cells(.Cells.Count), _
      LookIn:=xlValues, _
      LookAt:=xlWhole, _
      SearchOrder:=xlByRows, _
      SearchDirection:=xlNext, _
      MatchCase:=False)
      If Not Rng1 Is Nothing Then
           'Your code
           Rng1.Activate
           'Get Row number
           MsgBox ActiveCell.Row
           'Get Row value
           MsgBox ActiveCell.Value
      Else
           MsgBox "Nothing found" 'value not found
      End If
End With