004-数值和文本的相互转换

王杨龙

在平时接收到的Excel文件里，常常有人把数字设置成了文本格式，造成无法进行计算。虽然用1或0选择性粘贴的方法可以将其转回数值，但这也常适用于sheet表格比较少的情况。如果收到多个工作簿，每个工作簿里都有几张这样的sheet表，频繁使用选择性粘贴也会使人心烦意乱。（没错，我前几天就遇到了一个这样的问题【叹气脸】）遇到这种情况，不禁就想起了使用VBA，代码一次写好，每次用的时候直接调用，虽然每次运行代码也需要点击，但至少比选择性粘贴省力得多。

Sub 文本转数值()
Dim rng As Range
For Each rng In Intersect(Selection, ActiveSheet.UsedRange)
    With rng
        .NumberFormat = "General"
        .Value = .Value
    End With
End Sub

既然文本转数值的代码写了出来，那就顺便把数值改文本的代码也一起留下了。

Sub 数值转文本()