Excel 和 VBA 中的特殊粘贴

Question

我正在 Excel 和 VBA 合作。我需要将一些信息从一行复制并粘贴到特定目的地。我正在使用此代码：

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

这段代码的结果是：

但我需要这样的东西：

如您所见，在离开 table 之前，我需要换到下一行。有什么想法吗？

Answer 1

Range() 的格式不正确。

尝试：

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

Answer 2

你能把那个单元格中的文字换行吗？是这样的吗？

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

Special paste in Excel with VBA