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

请注意，我首先尝试将整个列格式化为“数字”，但这并没有解决问题。

将数字粘贴为值：错误消息＆＃34;值存储为文本＆＃34;

1 个答案: