vba - 如何在 vba 中执行命令之前检查它是否可行？

Question

我想使用宏来更改一长列的单元格。单元格是数字或文本。但是，这些数字存储为文本，我想转换它们。我想喜欢

`Range("A1").Value = Int(Range("A1").Value)`

, 这在将存储为文本的数字转换为数字时效果很好，但显然它不适用于文本且没有数字的值。我如何设置命令来查看，如果这种转换是可能的那么做呢？

Answer 1

使用 Range.TextToColumns method 一次性完成所有操作. VBA 的开销将负责错误控制。

with worksheets("Sheet1")
    with intersect(.usedrange, .columns(1))
        .numberformat = "General"
        .TextToColumns DataType:=xlFixedWidth, FieldInfo:=Array(0, 1)
    end with
end with