使用VBA将文本转换为数字

很多时候,表格数据由外部软件提取,因此是以文本形式导入储存的,使用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( , , )里依次添加即可。

Please GoUrl:rijifang.com
打赏
转载请注明出处;
本文地址:https://rijifang.com/index.php/post/16062.html
相关热文

发表评论: