VBA excel 粘贴为文本

Question

我需要将数字粘贴为文本。这是有问题的，因为前面有很多零（但我需要它们）。第一个片段，不起作用（我在互联网上找到它）。

Worksheets("B").Range("k7:k7").PasteSpecial Format:=”Text”, 
Link:=False, DisplayAsIcon:=False

另一个我记录了，但它并不总是有效。

PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, 
SkipBlanks:=False, Transpose:=False

有人可以建议我更好的解决方案吗？

Answer 1

您需要将 cells/column 格式化为 'Text' 格式，然后粘贴数字以保留前导零。如果还是不行，尝试先把数字粘贴到记事本，然后把所有数字复制到记事本，再粘贴回cells/column，现在格式为'Text'。希望对你有帮助。

Answer 2

如果您尝试复制粘贴单个单元格，而不是复制粘贴，则从单元格获取值附加单引号并将值存储在目标位置

Answer 3

我无法重现您的问题。

我用以下内容创建了一个新的 sheet：

下面的代码似乎可以满足您的要求：

Sub pasteAsText()

ActiveSheet.Range("A2").Copy
ActiveSheet.Range("C2").PasteSpecial

ActiveSheet.Range("A3").Copy
ActiveSheet.Range("C3").PasteSpecial

ActiveSheet.Range("A4").Copy
ActiveSheet.Range("C4").PasteSpecial


End Sub

这是否解决了您的问题？

VBA excel 粘贴为文本

VBA excel paste as text

excel

formatting

vba

text

copy-paste