Remove * character

[lapta301]

I hope that this is is not too dopey a question.

I receive a sheet of 1000 plus records frequently where in column A each record is part of an English post code with an asterisk at the end like AB1• or KT32*. However many characters there is always a * character.
I would like to be able to remove the * and then add it back after I have finished.
As ever many thanks for any help you can provide.

 

[Fluff]

To remove them, select col A > Ctrl H > findwhat: ~* > leave replace with blank > OK
To put them back in use

Sub Addstar()
   With Range("A2", Range("A" & Rows.count).End(xlUp))
      .Value = Evaluate("if({1}," & .Address & "&""*"")")
   End With
End Sub

 

[JackDanIce]

Make a copy of column A and paste to a different worksheet
In column B of existing sheet use formula "=LEFT(A2,LEN(A2)-1)"
In column C of existing sheet use formula "=RIGHT(A2,1)"
Copy columns B and C and pastespecial as values

Now you can use columns B and C to re-create your original column A or from the backup you copied to as first step.

 

[Peter_SSs]

I would like to be able to remove the * and then add it back after I have finished.

After you have finished what?

Can you explain why you want/need to remove the * in the first place?

And why do you then want/need to add it back 'after you have finished'?

Can you give us some sample data and explain what you are actually trying to do?

 

[lapta301]

Peter I just have a need to do some work on the internal post codes and then reset them back to the format that they arrived in. The example in my post are what I receice

 

[lapta301]

Fluff
Thank you that works a treat I now recall from many years ago the tilde character,
Again my sincere thanks

 

[lapta301]

JackDanice
Likewise thank you for taking an interest and your solution also works a treat

Regards to you all from a rather gloomy wet Southern England

 

[Fluff]

Glad we could help & thanks for the feedback