VBA excel粘贴为文本
我需要粘贴数字作为文本。 这是有问题的，因为前面有很多零（但是我需要它们）。 第一个片段，不起作用（我在互联网上find它）。
Worksheets("B").Range("k7:k7").PasteSpecial Format:=”Text”, Link:=False, DisplayAsIcon:=False 另一个我logging，但它并不总是工作。
PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
有人可以build议我一个更好的解决scheme吗？
您需要将单元格/列格式化为“文本”格式，然后粘贴数字以保留前导零。 如果它仍然不起作用，请尝试先将数字粘贴到记事本中，然后将所有数字复制到记事本中，然后粘贴到格式为“文本”的单元格/列中。 希望能帮助到你。
如果您尝试复制粘贴单个单元格，而不是复制粘贴从单元格中获取值附加单引号并将值存储在目标
我无法重现您的问题。
我创build了一个新的表格，内容如下： 
下面的代码似乎做你想做的事情：
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
这能解决你的问题吗？