何のためにそんなことがしたいのか不明です。追記願います。
ただ単純にデータ2を1の隣に同じ時系列で置きたいのであれば
データ2に対し1行ずつ空白行を追加すればいいと思うので
VBAを使えば簡単にできると思います。
VBA
1Sub 空白行を1行おきに挿入()
2 Dim i As Integer, 最終行 As Integer
3 最終行 = Range("A1").End(xlDown).Row
4 For i = 最終行 To 2 Step -1
5 Cells(i, "A").EntireRow.Insert
6 Cells(i, "A").EntireRow.ClearFormats
7 Next
8End Sub
何にせよ何がしたいのか明確でないので正しい回答はできません。
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。