批量插入空白行的方式不唯一,可以通过排序的方式,定位法插入,也可以通过函数公式的方式,还能通过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