使用VBA在Excel中進行特殊粘貼

Question

我正在使用VBA使用Excel。我需要將一行中的一些信息複製並粘貼到指定的目的地。我使用此代碼：

''CUSTOM MESSAGE 
Sheets("Extract").Range("AI" & sourceRow & "").Copy Destination := 
Sheets("Print").Range("H" & destRow + 7 & "") 

這段代碼的結果是：

但我需要的東西是這樣的：

正如你所看到的，我需要在離開表之前切換到下一行。 有什麼想法？

Answer 1

你可以用單元格中的文本？像這樣？

Sheets("Extract").Range("AI" & sourceRow).Copy Sheets("Print").Range("H" & destRow + 7).WrapText = True 

Answer 2

Range()的格式不正確。

嘗試：

Sheets("Extract").Range("AI" & sourceRow).Copy Sheets("Print").Range("H" & destRow + 7)