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