excel文本转数字

分享一个vb宏，能将excel的文本形式的数字单元格转换成数值。当然只能是将单元格的文本形式数字转换成数值型数值

1. 方法其一

该方法针对整个文档，方便快捷

• vb代码

Sub 文本转数字()
With ActiveSheet.UsedRange
  .NumberFormatLocal = "G/通用格式"
  .Value = .Value
End With
End Sub

• 效果展示

1. 方法其二

该方法可以指定区域

• vb代码

Sub num()
    Dim rng As Range
    For Each rng In Range("C3:D8")
        rng = rng * 1
    Next
End Sub

• 效果展示