add multiple letters to the end of multiple cells

[jetxten]

i am wondering if it is possible to add letters from A to F, to multipl
cells in a column. what i have is six cells in a column with the tex
"sc-2346" starting in cell A1 and going down to A6, then the next si
cells (A7-A12) contain the text "sc-2349". what i want to do is add th
letters A-F to those 6 cells so that A1 ends up reading "sc-2346A", A
reads "sc-2346B".....A6 reads "sc-2346F". then i want to be able t
repeat this process with the next six cells. please let me know if yo
know how to do this, if its even possible or any knowledge you migh
have. thanks!

 

[Don Guillett]

i am wondering if it is possible to add letters from A to F, to multiple

cells in a column. what i have is six cells in a column with the text

"sc-2346" starting in cell A1 and going down to A6, then the next six

cells (A7-A12) contain the text "sc-2349". what i want to do is add the

letters A-F to those 6 cells so that A1 ends up reading "sc-2346A", A2

reads "sc-2346B".....A6 reads "sc-2346F". then i want to be able to

repeat this process with the next six cells. please let me know if you

know how to do this, if its even possible or any knowledge you might

have. thanks!!

A simple macro
Option Explicit
Sub trailingletters()
Dim i As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Step 6
Cells(i + 0, 1).Offset(0).Value = Cells(i + 0, 1) & "A"
Cells(i + 1, 1).Offset(0).Value = Cells(i + 1, 1) & "B"
Cells(i + 2, 1).Offset(0).Value = Cells(i + 2, 1) & "C"
Cells(i + 3, 1).Offset(0).Value = Cells(i + 3, 1) & "D"
Cells(i + 4, 1).Offset(0).Value = Cells(i + 4, 1) & "E"
Cells(i + 5, 1).Offset(0).Value = Cells(i + 5, 1) & "F"
Next i
End Sub