首先把所有的數(shù)字錄入（或者導(dǎo)出為）井號+數(shù)字的格式，比如“#3333333323424234234234”，然后運(yùn)行下面的宏：

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

?

轉(zhuǎn)載于:https://www.cnblogs.com/mopno1/p/4337852.html

總結(jié)

以上是生活随笔為你收集整理的Excel 用于批量把单元格设置为文本格式保存的数字的宏的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。