エクセルの関数を作って頂きたく思います。

該当しない場合は 何も値は 返しません。

Function getdata(a As String) As String
    getdata = ""
    b = InStr(1, a, "-")
    If b = 0 Or b = Len(a) Then Exit Function
    
    c = Mid(a, b + 1, 1)
    
    If c >= "a" And c <= "z" Then
        getdata = Mid(a, b + 1, 1)
        Exit Function
    End If
    
    If c >= "A" And c <= "Z" Then
        getdata = Mid(a, b + 1, 1)
        Exit Function
    End If
    
    If c >= "0" And c <= "9" Then
        getdata = Mid(a, b + 1, 3)
        Exit Function
    End If
    
    
End Function

対象の文字列が A1 に入っているとして、

=IF(ISERROR(MID(A1,FIND("-",A1)+1,1)*1),MID(A1,FIND("-",A1)+1,1),MID(A1,FIND("-",A1)+1,3))

このような関数でいかがでしょうか。

数字の部分は半角数字で良かったでしょうか。

どうぞお使いくださいね。

Sub Macro1()

'１行目がタイトルの場合は2を指定してください。

sro = 1: 'タイトルが無いと仮定

'

lro = Range("A1").End(xlDown).Row

For i = sro To lro

samd = Cells(i, 1)

fst = InStr(samd, "-") + 1

If IsNumeric(Mid(samd, fst, 1)) Then

Cells(i, 2).Value = Mid(samd, fst, 3)

Else

Cells(i, 2).Value = Mid(samd, fst, 1)

End If

Next

End Sub