Add a character to beginning and end of string

[electrofunk]

I need to add add a particular character (in this case, an asterix) to the beginning and end of a string of digits?

Currently looks like: 12345
Need it to look like: *12345*

Any suggestions?

 

[VoG]

With a formula?

="*"&A1&"*"

 

[Lewiy]

If it's in A1 then:

="*"&A1&"*"

 

[Engineer Joe]

I have to do the same thing to a bunch of cells at once sometimes, so I have these macros set to buttons. If you know how to use vba, then maybe this will help. If not, then ignore.

Sub Add_Text()
Dim r As Range
Dim addtext As String
On Error GoTo Canceled:

addtext = Application.InputBox _
                       (prompt:="Input the Text you'd like to add.", Type:=2)
30    If (addtext = "" Or addtext = "False") Then GoTo Canceled


For Each r In Selection
r.Value = r.Value & addtext

Next r

Canceled:

End Sub

Sub PredendText()
Dim r As Range
Dim addtext As String
On Error GoTo Canceled:

addtext = Application.InputBox _
                       (prompt:="Input the Text you'd like to add.", Type:=2)
30    If (addtext = "" Or addtext = "False") Then GoTo Canceled


For Each r In Selection
r.Value = addtext & r.Value

Next r

Canceled:

End Sub

One of em is for adding text to the beginning of the selected cells. The other is for adding text to the end of selected cells. Like I said, this is only useful if you find yourself adding the same text to a group of cells that already have information in them. And it's only useful if you know your way around macros.