How to edit multiple cells at once?

[mobby123]

So I've got a pretty large spreadsheet and I need to add "AAA" to the end of every cell in a section of column A. So to take a completely random example, instead of "Pigs" it would be "Pigs AAA", and the one below that would be "Sheep AAA" and so on? Or do I have to manually type the AAA everywhere it's needed?

Sorry if it's explained badly but thanks in advance!

 

[JackDanIce]

Welcome to the board.

A macro would be easiest way to do this; do you require it for every value in column A or a specific range (e.g. ignore row 1 as it contains the header). I can write some code to do this, you can then search online on how to write and run a macro by copying the code, then running it.

With assumption header is in row 1 and you require it for every row, except row 1 in column A, try:

Sub AddPostFix()

Dim var()   As Variant
Dim x       As Long
Const str1  As String = " AAA"

x = Range("A" & Rows.Count).End(xlUp).Row

var = Range("A2").Resize(x - 1).Value

For x = LBound(var, 1) To UBound(var, 1)
    var(x, 1) = var(x, 1) & str1
Next x

Range("A2").Resize(x - 1).Value = var

Erase var

End Sub

 

[mobby123]

Thanks for the reply Jack!

The values I'd be looking for would be 2-189, I'm sure I could figure out how to do the rest of the column if you did a quick edit on the above macro and inserted the relevant figures.

 

[JackDanIce]

The macro runs from row 2 to the last used row in column A and is reasonably fast - faster than manually making the same number of edits. To change to 2 to 189, I've commented out the line that determines the last used row and added in blue, for 189:

Sub AddPostFix()

Dim var()   As Variant
Dim x       As Long
Const str1  As String = " AAA"

'x = Range("A" & Rows.Count).End(xlUp).Row
x = 189

var = Range("A2").Resize(x - 1).Value

For x = LBound(var, 1) To UBound(var, 1)
    var(x, 1) = var(x, 1) & str1
Next x

Range("A2").Resize(x - 1).Value = var

Erase var

End Sub

 

[mobby123]

It worked perfectly! Thanks so much, I was able to edit it with no problem, it's much appreciated!

 

[JackDanIce]

You're welcome, glad I could help and thanks for the feedback.