批量插入空白行的方式不唯一，可以通过排序的方式，定位法插入，也可以通过函数公式的方式，还能通过VBA自动化实现，本例先主要讲述函数公式的方式。

提供的数据如下

在D1输入公式：=IF(MOD(ROW(),2)=1,INDEX($A$1:$B$5,ROW(A1)-QUOTIENT(ROW(A1),2),COLUMN(A1)),"")

直接向右拖动向下拖动

=IF(MOD(ROW(),2)=1,INDEX($A$1:$B$5,ROW(A1)-QUOTIENT(ROW(A1),2),COLUMN(A1)),"")

此公式解析

if(判定当前行是奇数还是偶数，奇数行获取表格区域的值，偶数行返回空)

MOD(ROW(),2)=1，mod函数是求余数的函数，row()返回当前行的行号

MOD(5,2)返回余数值为1，即5/2=2..1

INDEX($A$1:$B$5,ROW(A1)-QUOTIENT(ROW(A1),2), COLUMN(A1))

ROW(A1)-QUOTIENT(ROW(A1),2)可以让行的值拖动的时候为1,2,3...正好与表格的索引一一对应

INDEX(表格区域,行,列)返回表格区域行列对应的值

QUOTIENT(ROW(A1),2)

QUOTIENT(被除数,除数)返回整数位如QUOTIENT(5,2)返回整数值为2，即5/2=2..1