Excel中的特殊粘贴与VBA

我正在使用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)