別シートの表を一行飛ばしでコピー

Question

シートA…表が記載
A2:本のタイトル、B2：著者
A3:本のタイトル etc……
(A2:B〜 随時追加される予定のため最終行は不明)
シートB…空白

上記シートBへシートAの表をコピーしたいのですが、
コピーする際、A2とA3の間に行を挿入もしくは間が空くように飛ばして取得したいです。

［期待値］
シートA…
A2:本のタイトル、B2：著者
A3:本のタイトル、B3：著者
シートB…
A2:本のタイトル、B2:著者
A3、B3:空白行
A4:本のタイトル(AｰA3)、B4:著者(B-B3)
A5、B5:空白行

そっくりそのままコピーすることは出来たのですが、間に空白行を入れようとするとシートAの最終行が動的ということもあり
なかなか上手くいかないです。
何方かお力添えして頂けないでしょうか。

Answer 1

GASでの処理を希望されてるなら、タグに Google Apps Script を追加した方がよいです。

一応、数式でも処理できるので記載します。
1行おきでよく登場する ROWとMODを組み合わせた処理です。

=IF(MOD(ROW('シートA'!A2),2)=0,{INDIRECT("'シートA'!A"&ROW('シート7'!A2)/2+1),INDIRECT("'シート7'!B"&ROW('シートA'!A2)/2+1)},)

これをシートBのA2セルに貼り付けて、あとはこのセルをコピーして、シートBのA3セル以下に貼り付け。（配列式でA2セルに入れただけでB2セルもカバーしています）

無理にArrayformula使ってもいいんですが、恐らく1行開けた空白行に書き込みしたいのかなと思い、こちらのコピペをお勧めします。これだと空白行の数式はもともと空白なので消しても問題ないので、上からテキストを入れてもOK。

Answer 2

現在のプログラムが分からないですが、最終行が分かれば空白行が入れられるところまではできているということでよろしいですかね。

シートAの表に空白行が入ることがないのであれば、下記の参考サイトのやり方で
データ数が分かるかと思いますので、必要な数の空白行を入れてあげればいいかと思います。
https://qiita.com/3mc/items/826cd66890d7812e917e