excel设置宏进行循环查找数值修改为文本

Question

向大神们请,如何写一段宏,查找一个区域中的数值转换成文本,(不要告诉我用分列,我的数值都是按行的,不是按列的),如下图黄色行的,录取数以及各分段对应的人数,如何手动一个数前面加个'那样会累吐血的,请指教.

Answer 1

你需要的是把全表的'都点一下、选择转换为数值吗，那可以用下面的宏代码：

Sub x()
    Dim arr
    ActiveSheet.UsedRange.NumberFormatLocal = "G/通用格式"
    arr = ActiveSheet.UsedRange
    ActiveSheet.UsedRange = arr
End Sub

如果你不希望设置整个表的所有区域，可以把UsedRange修改为指定区域，例如Range("1:100")

追问

我想把数值转换成文本格式,数据量很多,大概要几十万行

追答

那用我的程序，全表转换，秒完成。
如果操作有可能，可以【百度云盘】（一个使用百度帐号登录的可以对话和传文件的应用软件）传文件，做好回你。

Answer 2

这50分是我滴了。
各路大神，表来争哦