Excel: How to put a single quote ( ' ) in front of each cell for a column of cells?

Question

I have a couple thousand of cells, too time consuming by editing each cell.

The purpose is to make them labels - so it won't lose the leading zero.

Is there a way to do this, rather than editing each cells?

My Excel is an old version, year 2000.

Thank you very much for your help.

Answer 1

Assuming the value you're wanting to change is in column A, with first value in A1

In a new column, B1, type =concatenate("'",A1) 

Drag length of column.

Answer 2

Select the cells, then run the following macro:

Sub ChangeToText()

    Dim c As Range

    Application.ScreenUpdating = False

    For Each c In Selection

        c.Value = "'" & c.Text

    Next c

    Application.ScreenUpdating = True

End Sub

Answer 3

Assuming the value you're wanting to change is in column A, with first value in A1

In a new column, B1, type =concatenate("'",A1) 

Drag length of column.

Man, it works like a champ. You just saved me tons of time. Appreciate very much.

I haven't tried other replies, sure appreciate very much also.