1、可以使用公式：=OFFSET(Sheet2!$A$1,0,2*row()-2,1,1)下拉填充。
2、可以使用vba，代码如下：
Public Sub aa()
Dim a, i
a = InputBox("请输入要插入多少行")
For i = 1 To a
Sheet1.Cells(i, 1) = Sheet2.Cells(1, 2 * i - 1)
Next i
End Sub
建议使用下面的公式试试看：
在A1单元格内输入：=OFFSET(Sheet2!A1,1-ROW(),ROW()-1,1,1)
然后向下复制。
sheet1的A1输入
=OFFSET(Sheet1!$A$1,,ROW(A1)*2-2)
公式下拉
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024