vbaについて 主に以下のような設定をしたいです。 Aブックの表の行数が20未満だったら Bブックの

vbaについて

主に以下のような設定をしたいです。

Aブックの表の行数が20未満だったら
Bブックのsheet1に記載

Aブックの表の行数が20以上だったら
Bブックのsheet1に記載かつ続きをsheet2を新たに作成し記載

具体的に、、
Aブックの表の行数が 20以上だった場合の例
▪︎パターン1
Aブックの表の行数が35だっだ場合、
Bブックには、sheet1に20行分のデータを格納
新しいシートを作成し(名前はsheet2)そこには残りの15行分のデータを格納する

▪︎パターン2
Aブックの表の行数が50だっだ場合、
Bブックには、sheet1に20行分のデータを格納
新しいシートを作成し(名前はsheet2)そこには残りの20行分のデータを格納する
新しいシートを作成し(名前はsheet3)そこには残りの10行分のデータを格納する

上記の具体例のように
決まった行数分(今回は20行分)そのシートにデータを格納し、20行分より超えれば新しいシートにその続きのデータを格納するというマクロを組みたいです。

ある程度のイメージ条件です。
Aブックには
・B2からG2がヘッダーとして項目名称を入れる(名前はなんでも良い)
・B2からG2下は可変でデータはなんでも良い。

Bブックには
・D4セルにAブックのB列(B2から下)のデータが入るようにする
・M4セルにAブックのC列(C2から下)のデータが入るようにする
・H7セルにAブックのE列(E2から下)のデータが入るようにする

質問者からの補足コメント

• 抜けてました。
  Bブックに印刷範囲の設定をします。
  範囲はセル(A1:O9)です。
  ループする際は
  下に印刷範囲を増やすイメージです。
  
  イメージ例、
  Aブックに3行分のデータがあれば
  Bブックで、3ループかつ3の印刷範囲ができます。
  
  セル(A1:O9)に印刷範囲1つ
  1行分空けて
  セル(A11:O20)に印刷範囲2つ
  1行分空けて
  セル(A22:O31)に印刷範囲3つ

    補足日時：2023/06/08 23:48

No.1 回答者： fujillin 回答日時： 2023/06/09 11:59

こんにちは

説明が曖昧なのと、どの部分について知りたいのかも全く分からないので、「20行ずつ処理する」部分に関しての要領の一例のみです。（細かな部分は省略）


maxR = Aブックの表の行数取得

Set sh = ブックBのsheet1
For i = 1 To maxR Step 20
　If i > 1 Then
　　ブックB.Worksheets.Add
　　Set sh = Activesheet
　End If

　ブックA.表の i 行目.Resize(20).Copy sh.所定のセル
Next i