这个用VBA很好解决!
假设你有20组数据,代码如下:
Sub test()
dim arr,brr,i%
with sheets(1)
for i=1 to 20 '有多少输入多少,
arr=.range(.cells(i,1),.cells(i,2))
brr=.range(.cells(i,3),.cells(i,4))
cells(2*(i+1),7).resize(1,2)=arr
cells(2*(i+1)+1,7).resize(1,2)=brr
next
end with
end sub
笨办法,先对表一进行处理,按住ctrl然后按左键一个一个选择有数据行(不能一次性全部选中),插入空白行,然后在CD列妻子姓名和身份证上插入空白列,EF分别编辑公式==IF(A2="",C2,A2)、=IF(B2="",D2,B2) ,把两列数据合并后再复制过去;
在表2的G4单元格输入公式:
=INDEX(表1!$A:$D,INT(ROW()/2),IF(MOD(ROW(),2),3,1))
在表2的H4单元格输入公式:
=INDEX(表1!$A:$D,INT(ROW()/2),IF(MOD(ROW(),2),4,2))
将两个公式向下复制。
ctrl+c粘贴 ctrl+v复制