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

您需要将单元格/列格式化为＆＃39; Text＆＃39;格式然后粘贴数字以保留前导零。如果仍然无法正常工作，请先尝试将数字粘贴到记事本中，然后将所有数字复制到记事本中，然后将其粘贴回格式为＆＃39; Text＆＃39;的单元格/列。 希望它有所帮助。

Answer 2

如果您要复制粘贴单个单元格，而不是复制粘贴，请从单元格中获取值附加单引号并将值存储在目标

中

Answer 3

我无法重新创建您的问题。

我使用以下内容创建了一个新工作表：

以下代码似乎符合您的要求：

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

这能解决您的问题吗？