I need to add a prefix to a text inside a cell

[xROGERx]

Hello Mr.Excel family!

First of all...HAPPY NEW YEAR!

Secondly, as per the title, I need to add a prefix to a text inside a cell.

For example and, for the sake of argument, I have a list of male names in column A and I would like to add the prefix "Mr." (without quotations) to each and every single one of the names.

How can I achieve this?

Cheers and be well!

 

[mehidy1437]

In cell B1, ="Mr."&A1

 

[Peter_SSs]

If you want to do it in the original cells, then try

Sub Add_Prefix()
  Const Pref As String = "Mr. "
  
  With Range("a2", Range("A" & Rows.Count).End(xlUp))
    .Value = Evaluate(Replace(Replace("if(#="""","""",""^""&#)", "#", .Address), "^", Pref))
  End With
End Sub

 

[smozgur]

If you want to do it in the original cells, then try

Sub Add_Prefix()
  Const Pref As String = "Mr. "
 
  With Range("a2", Range("A" & Rows.Count).End(xlUp))
    .Value = Evaluate(Replace(Replace("if(#="""","""",""^""&#)", "#", .Address), "^", Pref))
  End With
End Sub

I never thought of using the Evaluate function like this! Much faster than looping through cells. Smart!

 

[xROGERx]

****, I think I need to spend some time learning VBA.