|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
在我们工作中,遇到以文本格式存储的数字,按选定的范围用VB将其快速转换成数字。提供下《(按钮版)快速将文本格式数字转换成数字》、《(加载宏版)快速将文本格式数字转换成数字》两个版本敬请使用
快速将文本格式数字转换成数字.zip
(17.19 KB, 下载次数: 37)
。
Sub 快速将文本格式数字转换成数字()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim rng As Range, cell As Range
Set rng = Selection
If rng.rows.Count = Cells.rows.Count Then
ActiveSheet.UsedRange.NumberFormatLocal = "G/通用格式"
ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value
Else
On Error Resume Next
rng.NumberFormatLocal = "G/通用格式"
rng = rng.Value
For Each cell In rng
If cell.Value = 0 Then cell.ClearContents
Next
End If
Set rng = Nothing
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
|
评分
-
1
查看全部评分
-
|