Find % and Replace Code in loop format, need vb code

[shrinivasmj]

Hi

Need to creat vb code to Replace % and add code for each % in loop number format

Input File

%a,Qing-Ze Jiao m.j.l.
%a.b*,Zhou-Ling Tian k. l.
%a*.b,Yun ZhaoFaa Maa
%a.b.c*,Deepak T.N.L.
%a.b*.c,kiran m. l. k.#

out put

$#AI1.a,Qing-Ze Jiao m.j.l.
$#AI2.a.b*,Zhou-Ling Tian k. l.
$#AI3.a*.b,Yun ZhaoFaa Maa
$#AI4.a.b.c*,Deepak T.N.L.
$#AI5.a.b*.c,kiran m. l. k.#


code to replace % upto 100 in below code

( $#AI ) will be same and number need to add there to 100. with dot last.

$#AI1.

$#AI2.

$#AI3.

$#AI4.

$#AI5.

$#AI6.

$#AI7.

$#AI8.

$#AI9.

$#AI10.

<tbody>
</tbody>

 

[Warship]

Two versions:

If all you're concerned with is the first char changing then...

Sub FirstCharToIncrement()
    Dim rgDATA As Range, i As Long
    Set rgDATA = Range("A2:A6") 'change to suit
    With rgDATA
        For i = 1 To .Rows.Count
            .Cells(i, 1) = "$#AI" & i & "." & Mid(.Cells(i, 1), 2)
        Next i
    End With
End Sub

If you really want to replace by "%" then...
(all "%" occurrences within each string will be replaced)

Sub PercentToIncrement()
    Dim rgDATA As Range, i As Long
    Set rgDATA = Range("A2:A6") 'change to suit
    With rgDATA
        For i = 1 To .Rows.Count
            .Cells(i, 1) = Replace(.Cells(i, 1), "%", "$#AI" & i & ".")
        Next i
    End With
End Sub

Each version will continue incrementing up to the row count.