excel隔行提取数据，并存入新的列中

在I1输入公式：
=IF(INDEX(A:A,ROW()*2)="","",INDEX(A:A,ROW()*2))
将公式向下填充复制，即可得到需要的内容，因为要删除原内容，所以要将这些新内容固定为真实数据而非通过公式显示的结果，方法：选中I列后选“复制”，在选区内点击右键选“选择性粘贴”－“数值”，保存后就行了。

要删除原内容，只要全选A列至H列后打开菜单栏的“数据”－“排序”，以B列或其他A列外的列为关键字，就可以将要删除的行排在一起，这就能一次删除了。

I1输入=A2
I2输入a
选中I1，I2往下填充到底
完成后复制I列，在原地选择性粘帖-数值
筛选I列，把a筛选出来删除行就行了

在I1格中输入=A2，然后选中I1、I2两个单元格下拉到数据底部位置，
在J1中输入=I1=""，然后得出结果FALSE和TRUE。
选中I列和J列，复制，选择粘粘贴，数值。（这个步骤一定要，不然下面删除列的时候相应的数值会没有了。）
然后筛选，在J列选TRUE，将所有的TRUE值的列删除，再取消筛选。
这样就是你要的结果了。

在I1输入=A2,在I3输入=A4,鼠标选中I1,I2,I3,I4四格，鼠标选中选框右下角的"+"向下拖动到你需要的位置即可。

用VBA，按ALT+F11,菜单-插入-模块-右边空白处粘贴以下代码，按F5键完成
Sub Cpy()
Dim rng As Range
r = Range("a56565").End(3).Row
For i = 1 To r
If Cells(i, 2) = 0 Then
Cells(i - 1, 9) = Cells(i, 1)
Rows(i).Delete
End If
Next

End Sub