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

您需要將單元格/列格式化為“文本”格式，然后粘貼數字以保留前導零。 如果仍然無法使用，請嘗試將數字首先粘貼到記事本中，然后將所有數字復制到記事本中，然后將其粘貼回現在格式為“文本”的單元格/列中。 希望能幫助到你。

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

這樣可以解決您的問題嗎？