excel vba 更改日期格式 - 数字

Question

Excel changes the following values automatically to a number, I guess because he considers them as a date:

2/2/1 becomes 36527 4/2/1 becomes 36926

I have a column with a combination of different formats now:

2/1/
3/1/
8/7/
36527
1/0/0
36926

Which VBA code can I use to convert the numbers back to their original format? The other values should stay the same.

I know the cDate function, but I guess it's not useful here?

I have already this in my VBA code for pasting values

ActiveWorkbook.Sheets("Import").Columns("A:AH").NumberFormat = "@"
ActiveWorkbook.Sheets("Import").Range("A1").Select
ActiveSheet.Paste

Answer 1

You can't change them back. Once Excel converts them, the original value is gone. Before you input the value, you can prepend an apostrophe to force it to text.

ActiveCell.Value = "'" & sMyValue

or as @Scott Craner commented, you can format the cell as text

ActiveCell.NumberFormat = "@"
ActiveCell.Value = sMyValue