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

I'm working on Excel with VBA. I need to copy and paste some information from one row to and specific destination. I'm using this code:

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

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

The result of this code is:

这段代码的结果是:

But I need something like this:

但是我需要这样的东西:

As you can see, I need to change to the next row, before going out of the table. Any idea?

如您所见,我需要在离开桌子之前更改到下一行。任何想法?

2 个解决方案

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

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