Creating a Marco to Replace a Specific Number with a Specific Letter in a Column

[goldbeje]

Is it possible to create a macro that will take a column with each row only having numbers 1-4 and replacing each number in a row with a specific letter??

i.e.

1=A
2=C
3=G
4=T

Attached is a sample sheet that this would be done to...

[watersev]

hi, goldbeje, can you post the expected result for your data provided?

[tigeravatar]

goldbeje,

Give this a try. Change the columns() letter as necessary

Sub tgr()
    
    Dim i As Integer
    For i = 1 To 4
        Columns("C").Replace i, Choose(i, "A", "C", "G", "T")
    Next i
    
End Sub

[goldbeje]

@Waterserv the attached below is the expected results.

@Tigeravatar ... can I change the Columns ("C") to ("C","D") to reflect the change to both columns at once??

Thank you both for your help with this... I know this question is probably very novice.

[tigeravatar]

goldbeje,

Yes, you can change the Columns() line. It would look like:

Columns("C:D").Replace i, Choose(i, "A", "C", "G", "T")

[snb]

It could be wise to use:

Sub tgr_snb()
 For i = 1 To 4
   Columns(3).resize(,2).Replace i, mid("ACGT",i,1),xlwhole
 Next
End Sub