From: Denise C. on
Hello, I need to add an apostrophe to each cell in a long column of numbers.
I do not want to format them as text or format them as custom - our system
requires the apostrophe at the beginning of the cell. My question is - is
there a way to format one cell with the apostrophe and then copy that
apostrophe down to the other cells?? or can someone write me something that
will allow me to do it quickly? I want to avoid having to go into each cell
and put the apostrophe in! Thank you in advance....
From: Don Guillett on
One way. Change 9 to your column
Sub addapostophe()
mc = 9 'column I
For i = 1 To Cells(Rows.Count, mc).End(xlUp).Row
Cells(i, mc).Value = "'" & Cells(i, mc)
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguillett(a)gmail.com
"Denise C." <DeniseC(a)discussions.microsoft.com> wrote in message
news:72FCA0EF-66A4-4458-B795-4BCDD12545EE(a)microsoft.com...
> Hello, I need to add an apostrophe to each cell in a long column of
> numbers.
> I do not want to format them as text or format them as custom - our system
> requires the apostrophe at the beginning of the cell. My question is - is
> there a way to format one cell with the apostrophe and then copy that
> apostrophe down to the other cells?? or can someone write me something
> that
> will allow me to do it quickly? I want to avoid having to go into each
> cell
> and put the apostrophe in! Thank you in advance....

From: Hakyab on
I undertand that you want to change the cell contents. Use
= "'" & A1

(first one is double quote, single quote and double quote)
Then copy the result and Paste Value to A1

Hope this helps.


"Denise C." wrote:

> Hello, I need to add an apostrophe to each cell in a long column of numbers.
> I do not want to format them as text or format them as custom - our system
> requires the apostrophe at the beginning of the cell. My question is - is
> there a way to format one cell with the apostrophe and then copy that
> apostrophe down to the other cells?? or can someone write me something that
> will allow me to do it quickly? I want to avoid having to go into each cell
> and put the apostrophe in! Thank you in advance....
From: Fred Smith on
I would create an additional column. That way you don't lose the
functionality of the numbers. Use a formula like:
="'"&Text(a1,"0.00")

The first part is double-quote, apostrophe, double-quote.

Regards,
Fred

"Denise C." <DeniseC(a)discussions.microsoft.com> wrote in message
news:72FCA0EF-66A4-4458-B795-4BCDD12545EE(a)microsoft.com...
> Hello, I need to add an apostrophe to each cell in a long column of
> numbers.
> I do not want to format them as text or format them as custom - our system
> requires the apostrophe at the beginning of the cell. My question is - is
> there a way to format one cell with the apostrophe and then copy that
> apostrophe down to the other cells?? or can someone write me something
> that
> will allow me to do it quickly? I want to avoid having to go into each
> cell
> and put the apostrophe in! Thank you in advance....

From: Denise C. on
Thanks everyone! I used Hakyab's & Fred's method and it worked like a
charm!! Don, appreciate the code, may try that out when I have more time....
really appreciate the quick replies!! Have a blessed day!!
Denise

"Denise C." wrote:

> Hello, I need to add an apostrophe to each cell in a long column of numbers.
> I do not want to format them as text or format them as custom - our system
> requires the apostrophe at the beginning of the cell. My question is - is
> there a way to format one cell with the apostrophe and then copy that
> apostrophe down to the other cells?? or can someone write me something that
> will allow me to do it quickly? I want to avoid having to go into each cell
> and put the apostrophe in! Thank you in advance....