我每周都会收到一份电子表格，由于各种超出我控制范围的原因，某些列以文本形式显示，存储为数字而不是数字。我需要将它们转换为数字，以便稍后在代码中发生与它们相关的事情。
我现在正在通过这样做将它们转换为数字：
Dim rng As Range
For Each rng In Range("A:D").Columns
rng.TextToColumns
Next rng
有没有更好（即更有效）的方法来做到这一点？
我尝试了 NumberFormat，但它似乎不起作用。
提前致谢（如果我已经错过了这里的解决方案，我深表歉意 - 我进行了搜索但没有找到它）。
Excel:
- 复制一个空单元格
- 选择需要更改格式的范围
- Select
PasteSpecial，并在Operation select Add
VBA
(change Sheet1因此，假设A100000是空的）：
Sheet1.Range("A100000").Copy
Sheet1.UsedRange.PasteSpecial , xlPasteSpecialOperationAdd
如果将以上内容放入Workbook_Open事件，每次打开工作簿时它都会自动执行转换。
通过这种方法，可以保留公式。
我希望这有帮助！
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
