行を100行ごとにプルし、アクティブブックに貼り付けようとしています。私は理解できない何らかの理由で、コピーがうまくいくように見えますが、ペーストはRange(E2:V2)にペーストする必要があり、E3:V3に貼り付けられ、毎回通過しますforループは別の行をスキップします。したがって、E2:V2に貼り付ける代わりに、E3:V3、次にE5:V5になります。vba forループは、間に空白行を含む行を貼り付けます。
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
私はそれがあなたの最後の行を各ブックに見つけ、あなたの 'Rownum'と' Rownum'をどのように設定するのかと関係していると思います。残りのコードを投稿できますか? (該当する部分) –
この 'wb.Sheets(" Export ")。Range(" A "&lastRowwb)'は、行Aの値がrow = lastrowwbのところで返されます。 'lastRowwb'を使いたいと思っています:' Rownum = 2の場合はlastRowwbのステップ100へ ' –
Scott Cranerさん、ありがとうございました。 –