Replace the first number in three groups only

[KingTamo]

Hi experts
There is a string "12546-10203-32198-98876-100047"

These are 5 groups, I wanted to replace the first number of the three groups in the middle only with conditions
0 = A
1=D
2=Z
3=K
4=M
5=X
6=C
7=S
8=Q
9=F

so the result of the example string should have be
12546-D0203-K2198-F8876-100047

[sintek]

Assumes strings in Column A

Sub J3v16()
Dim Data, Code, X, Str As String, i As Long, ii As Long
Code = [{0,"A",1,"D",2,"Z",3,"K",4,"M",5,"X",6,"C",7,"S",8,"Q",9,"F"}]
With Cells(1).CurrentRegion
    Data = .Value
    For i = 1 To UBound(Data)
        For ii = 1 To 3
            X = Application.Match(Val(Left(Split(Data(i, 1), "-")(ii), 1)), Code, 0)
            Str = Replace(Split(Data(i, 1), "-")(ii), Left(Split(Data(i, 1), "-")(ii), 1), Code(X + 1))
            Data(i, 1) = Replace(Data(i, 1), Split(Data(i, 1), "-")(ii), Str)
        Next ii
    Next i
    .Value = Data
End With
End Sub

[KingTamo]

Thanks a lot for this big help

[mohadin]

@sintek
HI
It is a very nice piece of code
But I Believe that splitting one thing 4 times is time consumption
so I suggest this amendment to you code
Do you agree ?
No offence though

Sub J3v16()
    Dim Data, Code, X, i As Long, ii As Long
    Code = [{0,"A",1,"D",2,"Z",3,"K",4,"M",5,"X",6,"C",7,"S",8,"Q",9,"F"}]
    With Cells(1).CurrentRegion
        Data = .Value
        For i = 1 To UBound(Data)
            X = Split(Data(i, 1), "-")
            For ii = 1 To 3
                Data(i, 1) = Replace(Data(i, 1), X(ii), Replace(X(ii), Left(X(ii), 1), _
                                                                 Code(Application.Match(Val(Left(X(ii), 1)), Code, 0) + 1)))
            Next ii
        Next i
      .Value = Data
    End With
End Sub

[sintek]

Apologies...Found an error in my code...This fixes...

@ mohadin...None taken...
My code had errors though so perhaps re-look at your simplification offered...

Sub J3v16()
Dim Data, Code, X, Str, i As Long, ii As Long
Code = [{0,"A",1,"D",2,"Z",3,"K",4,"M",5,"X",6,"C",7,"S",8,"Q",9,"F"}]
With Cells(1).CurrentRegion
    Data = .Value
    For i = 1 To UBound(Data)
        For ii = 1 To 3
            X = Application.Match(Val(Left(Split(Data(i, 1), "-")(ii), 1)), Code, 0)
            Str = Application.Replace(Split(Data(i, 1), "-")(ii), 1, 1, Code(X + 1))
            Data(i, 1) = Replace(Data(i, 1), Split(Data(i, 1), "-")(ii), Str)
        Next ii
    Next i
    .Value = Data
End With
End Sub

@ KingTamo Thanks for rep +

[jindon]

Hi experts
There is a string "12546-10203-32198-98876-100047"

so the result of the example string should have be
12546-D0203-K2198-F8876-100047

only when the first charcter is numeric.

Sub test()
    Dim a, x, i As Long, ii As Long
    With Cells(1).CurrentRegion
        a = .Value
        For i = 1 To UBound(a, 1)
            If a(i, 1) Like "*-*-*-*-*" Then
                x = Split(a(i, 1), "-")
                For ii = 1 To 3
                    If x(ii) Like "#*" Then x(ii) = Application.Replace(x(ii), 1, , Mid$("ADZKMXCSQF", Left(x(ii), 1) + 1, 1))
                Next
                a(i, 1) = Join(x, "-")
            End If
        Next
        .Value = a
    End With
End Sub

[jindon]

Missex q...

                    If x(ii) Like "#*" Then x(ii) = Application.Replace(x(ii), 1, 1, Mid$("ADZKMXCSQF", Left(x(ii), 1) + 1, 1))

[KingTamo]

Thanks a lot everybody
You are great people

[KingTamo]

@jindon
Your code adds the letter and didn't remove the number (The number should be replaced)
12546-D0203-K2198-F8876-100047

[JEC.]

Here one more variant

Sub jec()
 Dim xp, ar, y, j As Long, jj As Long
 xp = Array("A", "D", "Z", "K", "M", "X", "C", "S", "Q", "F")
 ar = Cells(1).CurrentRegion
 
 For j = 1 To UBound(ar)
    sp = Split(Mid(ar(j, 1), InStr(ar(j, 1), "-") + 1, 17), "-")
    y = Join(sp, "-")
    For jj = 0 To UBound(sp)
      sp(jj) = xp(Left(sp(jj), 1)) & Right(sp(jj), 4)
    Next
    ar(j, 1) = Replace(ar(j, 1), y, Join(sp, "-"))
 Next
  
 Cells(1).CurrentRegion = ar
End Sub

[KingTamo]

@jindon

thanks a lot for great and helpful help
cheers