excel两行第二行等于第一行 如：a2=a1,a4=a3每两行为一组!数据量比较大,不想一个一个输入!小弟悬赏分不多,求帮忙!

excel两行第二行等于第一行 如：a2=a1,a4=a3每两行为一组!数据量比较大,不想一个一个输入!小弟悬赏分不多,求帮忙!
excel两行第二行等于第一行 如：a2=a1,a4=a3
每两行为一组!数据量比较大,不想一个一个输入!
小弟悬赏分不多,求帮忙!

excel两行第二行等于第一行 如：a2=a1,a4=a3每两行为一组!数据量比较大,不想一个一个输入!小弟悬赏分不多,求帮忙!
插入一个辅助列如B列,在B1输入公式=IF(MOD(ROW(),2),A1,INDIRECT("A"&ROW()-1))
公式下拉完成,然后,选择B列,复制,右键选择性粘贴,值,确定,再把A列删除了.
更好的办法是用VBA来完成,快!
宏如下
Sub 输入公式()
Dim R&,x&
R = Range("A65536").End(xlUp).Row + 1
For x = 2 To R Step 2
Cells(x,1) = "=A" & x - 1
Next x
End Sub
只需要运行下这个宏,你A列的双数行单元格就写入了你要的公式