excel - 使用VBA将一定范围的列从文本转换为数字格式

Question

我每周都会收到一份电子表格，由于我无法控制的各种原因，有些列以文本形式存储为数字而不是数字。我需要将它们转换为数字，以便稍后在代码中使用它们。

我现在正在通过这样做将它们转换为数字：

Dim rng As Range

For Each rng In Range("A:D").Columns
   rng.TextToColumns
Next rng

有没有更好（即更有效）的方法来做到这一点？

我玩过 NumberFormat ，但它似乎没有用。

在此先感谢（如果我已经在这里错过了解决方案，我深表歉意 - 我进行了搜索但没有找到）。

score 11 · Accepted Answer

电子表格：

VBA

（相应地更改Sheet1，假设A100000为空）：

Sheet1.Range("A100000").Copy
Sheet1.UsedRange.PasteSpecial , xlPasteSpecialOperationAdd

如果将上述内容放入Workbook_Open事件中，则每次打开工作簿时都会自动执行转换。

使用这种方法，可以保留公式。

我希望这会有所帮助！

score 8 · Accepted Answer

Range("D1:D400") = Range("D1:D400").Value

而且效果很好！

score 1 · Accepted Answer

1

这更容易：

With Selection
    .NumberFormat = "0"
    .Value = .Value
End With

于 2015-04-16T09:26:00.723 回答

3 回答 3