首先把所有的数字录入(或者导出为)井号+数字的格式,比如“#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