如何将以文本形式存储的数字转换为数字？
我尝试过设置：
ActiveSheet.Range("H154").NumberFormat = "General"
但这不起作用！
我发现唯一有效的方法是使用“文本到列”或单击单元格进行编辑，然后单击 Enter。
但我真的很想找到一种方法，使用 VBA 将存储为文本的工作表中的数字单元格转换为数字。
通用技术是复制粘贴特殊，乘以1
在代码中，是这样的：
Sub ConvertToNumber()
Dim rng As Range
Dim cl As Range
Dim rConst As Range
' pick an unused cell
Set rConst = Cells(1, 4)
rConst = 1
Set rng = Cells.SpecialCells(xlCellTypeConstants)
rng.NumberFormat = "General"
rConst.Copy
rng.PasteSpecial xlPasteValues, xlPasteSpecialOperationMultiply
rConst.Clear
End Sub
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
