Excel - 最後のハイフンから特定の文字で終了するセルを返します。

Question

col1にはいくつかの値があります。各値にはハイフンが付きます。私は最後のハイフンの最初の文字として文字 'N'を持つ値だけを返したい。ここで

Answer 1

が

Sub findN() 
Dim i As Long, str As String, j As Long 
j = 2 
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row 
    str = Replace(Cells(i, 1), "-", "", , (Len(Cells(i, 1)) - Len(Replace(Cells(i, 1), "-", "")) - 1)) 
    str = Mid(str, InStr(str, "-") + 1, Len(str)) 
    If Left(str, 1) = "N" Then 
     Cells(j, 2) = Cells(i, 1) 
     j = j + 1 
    End If 
Next i 
End Sub