很多时候，表格数据由外部软件提取，因此是以文本形式导入储存的，使用vba可以快速将表格内大量的文本格式数值转换成数字；

代码如下：

Sub 文本转数字()
With ActiveWorkbook.Worksheets(1).UsedRange
.Value = .Value
End With
End Sub

上述代码是将工作表1的所有单元格都转成数字格式，如果你有些带公式等的内容并不想转换，仅仅对某些列（行）进行转换的话，

Sub 文本转数字()
Dim rng
rng = Range("A:A")
Range("A:A") = rng
End Sub

上述代码是将A列转换成数字格式，程序一次只能处理一个区域，如果是多区域，则可以使用for...each...next的循环方式进行处理

Sub 文本转数字()
Dim rng, qy
For Each rng In Array("A:A", "G1:Q10")
qy = Range(rng)
Range(rng) = qy
Next rng
End Sub

上述代码是对A列、G1:Q10这两个区域进行处理，而且还可以进行多区域进行处理，在Array( , , )里依次添加即可。

打赏

微信扫一扫，打赏作者吧～

• 1