循环的VBA是粘贴的线，介于两者之间

Question

我试图循环穿过每100行拉的行，然后将其粘贴到活动的工作簿中。由于某种原因，我不知道，该副本似乎可以正常工作，但是糊状物应该粘贴到范围（e2：v2）的地方，它粘贴到e3：v3中，然后每次通过for循环跳过了另一行。因此，它没有粘贴到e2：v2中，而是进入e3：v3，然后是e5：v5。

  AwbRownum = 2        
        For Rownum = 2 To wb.Sheets("Export").Range("A" & lastRowwb) Step 100
            Debug.Print "Rownum: " & Rownum
            buffer = wb.Sheets("Export").Range("A" & Rownum, "R" & Rownum).Value
            Awb.Sheets("Sheet1").Range("E" & AwbRownum, "V" & AwbRownum).Rows(AwbRownum).Value = buffer
            Debug.Print "AwbRownum = " & AwbRownum
            AwbRownum = AwbRownum + 1
        Next Rownum

Answer 1

您试图将buffer数组放在Awb.Sheets("Sheet1")中的范围，因此您最终不需要Rows(AwbRownum)。

只需更改您的行：

Awb.Sheets("Sheet1").Range("E" & AwbRownum, "V" & AwbRownum).Rows(AwbRownum).Value = buffer

to：

Awb.Sheets("Sheet1").Range("E" & AwbRownum, "V" & AwbRownum).Value = buffer

Answer 2

写作：

Awb.Sheets("Sheet1").Range("E" & AwbRownum, "V" & AwbRownum).Rows(AwbRownum).Value = buffer

.Rows(AwbRownum)是Awb.Sheets("Sheet1").Range("E" & AwbRownum, "V" & AwbRownum)定义的范围。