excel两行第二行等于第一行 如：a2=a1,a4=a3

Question

每两行为一组！数据量比较大，不想一个一个输入！
小弟悬赏分不多，求帮忙！

Answer 1

输入A1的数据，向下填充至A2，再输入A3的数据，向下填充至A4。填充方法：光标移到格的右下角，变为“+”，按住左键，向下拖，所到之处，都是一样的数据。（填充可以向上下左右4个方向进行）。
或者：选中两个格，输入数据，按CTRL+回车，两个格就是一样的数据。
如果有一行数据，第二行要一样的，可以选中第一行，光标移到行右端的格，向下填充，一整行一次填充完成。

Answer 2

插入一个辅助列如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列的双数行单元格就写入了你要的公式本回答被提问者采纳

Answer 3

是想快速输入公式吗？
先选择要输入公式的行，比如选中第2行，如果是多行，可按住Ctrl键再选择其它行，然后输入等号，鼠标再单击刚才输入等号的上方单元格，再按Ctrl+Enter
或者直接选第2行，输入 =A1 ,再按Ctrl+Enter ，再将第2行整行粘贴到需要输入公式的其它行
补充：
你连整行都不想选，哪你还是使用VBA来处理吧，按Alt+F11，左侧插入“窗体”，在右侧粘贴如下代码，然后，菜单栏工具--宏--宏--建立公式--执行：
Sub 建立公式() '下方的10000是你需要列公式的最后行号
Dim n: Range("A2").Select: ActiveCell.FormulaR1C1 = "=R[-1]C": Range("A2").Select
Selection.AutoFill Destination:=Rows("2:2"), Type:=xlFillDefault: Rows("2:2").Select: Selection.Copy
For n = 4 To 10000 Step 2: Rows(n & ":" & n).Select: ActiveSheet.Paste: Next n: Range("A2").Select
End Sub追问

蓝色单元格序号填入与白色单元格序号相同的数！

追答

只是一列就没必要用VBA了，选定需要输入序号的区域--菜单栏编辑--定位--定位条件--点击空值--确定，然后输入等号，鼠标点击输入等号的上面一个单元格，再按Ctrl+Enter即可

Answer 4

我明白你的意思了，这样你的公式不能在A列中拉，因为你的A1、A3、A5...的数据是不能改变的，你可以在A列后插入一列B列，在B2中输入=IF(MOD(ROW(A2),2)=0,A1,A2)就可以完成你想要的结果。

Answer 5

在A2中输入A2＝A1，在A4中输入A4＝A3，然后选中2:2和4:4，在底边出现小十字时一直向下拖，要多少拖多少