使用 VBA 在 Excel 中进行特殊粘贴答案

【问题标题】：Special paste in Excel with VBA使用 VBA 在 Excel 中进行特殊粘贴
【发布时间】：2017-08-17 02:08:08
【问题描述】：

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

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

这段代码的结果是：

但我需要这样的东西：

如您所见，我需要换到下一行，然后才能离开桌子。有什么想法吗？

【问题讨论】：

【解决方案1】：

你能把文本换行在那个单元格中吗？像这样？

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

【讨论】：

【解决方案2】：

Range() 的格式不正确。

试试：

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

【讨论】：