见样表截图
B1输入
=IF(ISEVEN(ROW(A1)),OFFSET($A$1,INT((ROW(A1)-1)/2),,),"")
公式下拉
复制B列>右键>选择性粘贴>数值
删除A列，OK.
在excel中选择并复制数据打开word粘贴，在表格上点一下，表格菜单，将表格转换为文本（分隔符选段落标记）表格菜单，将文本转换为表格，输入选项中设为1列将新的一列表格复制，到excel中粘贴
将鼠标放在插入处，等鼠标变化后按回车键，工具栏里也有插入单元格选项
=INDEX(A:B,CEILING(ROW()/2,1),IF(MOD(ROW(),2)=1,1,2)) 把标题去掉，顶格,或者修改一下！填充就可以了！
不错，2楼方法不错。。。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024