>>218
2021なのでSEQUENCE使えると思うのでこんなのは。
A1から1000個データがあるとして
B1 =INDEX(A1:A1000, SEQUENCE(1001/3, ,1, 3) )
C1 =INDEX(A1:A1000, SEQUENCE(1001/3, ,2, 3) )
D1 =INDEX(A1:A1000, SEQUENCE(1001/3, ,3, 3) )
最後の方でデータがなくなるとエラーがでるけど、そのへんは値コピーしてデータだけにしてエラー値を消すなど手作業で。

Excel365なら =WRAPROWS(A1:A1000, 3) で終わる