首先把所有的数字录入(或者导出为)井号+数字的格式,比如“#3333333323424234234234”,然后运行下面的宏:
Sub Num2Text()
If Not TypeOf Application.Selection Is Range Then
MsgBox "You must select cells!"
Return
End If
For Each cell In Application.Selection.Cells
If cell.Text <> "" Then
cell.FormulaR1C1 = "'" + Replace(cell.Text, "#", "")
End If
Next
End Sub