使用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)