add multiple letters to the end of multiple cells
 

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!!

add multiple letters to the end of multiple cells
 

On Tuesday, October 9, 2012 11:35:13 AM UTC-5, jetxten wrote:
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!!









--

jetxten

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