将数字粘贴为值：错误消息"value stored as text"

Question

我正在尝试复制一些数字，并将其作为值粘贴到另一张表中。我希望下面的代码能起到作用，但它没有。。。

Sheets("test2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

但是，它并没有将数字粘贴为值，而是给了我一条错误消息，说数字存储为文本，以及我是否愿意更改它。（我当然想要）

我可以手动将其转换为数字，但我应该在代码中添加什么才能自动实现？

Answer 1

我通过使用"text to Columns"功能成功地消除了存储为文本的值。我在宏中添加了以下代码。

Columns("E:E").Select
Selection.TextToColumns Destination:=Range("E1"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
    :=Array(1, 1), TrailingMinusNumbers:=True

请注意，我第一次尝试将整列格式化为"数字"，但这并没有解决问题。