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.

[TABLE="width: 69"]
<tbody>[TR]
[TD="align: left"]$#AI1.
[/TD]
[/TR]
[TR]
[TD="align: left"]$#AI2.
[/TD]
[/TR]
[TR]
[TD="align: left"]$#AI3.
[/TD]
[/TR]
[TR]
[TD="align: left"]$#AI4.
[/TD]
[/TR]
[TR]
[TD="align: left"]$#AI5.
[/TD]
[/TR]
[TR]
[TD="align: left"]$#AI6.
[/TD]
[/TR]
[TR]
[TD="align: left"]$#AI7.
[/TD]
[/TR]
[TR]
[TD="align: left"]$#AI8.
[/TD]
[/TR]
[TR]
[TD="align: left"]$#AI9.
[/TD]
[/TR]
[TR]
[TD="align: left"]$#AI10.
[/TD]
[/TR]
</tbody>[/TABLE]

 

[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.