Using ' in cells

[u07jrb]

Hi.

I currently have a number of spreadsheets with number data in it. I need to import it into a third party program. Unfortunately when this program imports it it counts numbers such as 1 as 1.0. This third party program says the only way around this is to put a ' before the numbers and this seems to fix the problem.

My problem is that I have so much data I cannot go through ever cell and add a ' to the start. IS there a quick way to add ' to the start of certain cells?

[NBVC]

You can select the column of numbers and go to Data|Text to Columns... click Next twice to get to the 3rd window. In the column data format area, select Text and then click Finished.

The column should now be converted to text values.

[u07jrb]

That is excellent. Thank you.

[MickG]

Hi, This might do !:-

Dim cl As Range
For Each cl In ActiveSheet.UsedRange
    If IsNumeric(cl) Then
        cl = "'" & cl
    End If
Next cl

Regards Mick

[NBVC]

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save