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

时间：2017-08-16 17:03:22

标签： excel excel-vba paste vba

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

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

此代码的结果是：

Actual

但我需要这样的事情：

Needed

正如您所看到的，我需要在离开桌子之前更改到下一行。 有什么想法吗？

2 个答案:

答案 0 :(得分：2)

你可以在那个单元格中包装文本吗？像这样的东西？

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

答案 1 :(得分：1)

Range()的格式不正确。

尝试：

Sheets("Extract").Range("AI" & sourceRow).Copy Sheets("Print").Range("H" & destRow + 7)
相关问题
最新问题