Question

如下图，想在右边这片单元格输入数据，左边保存，VBA代码应该怎么写？保存以后，在填写往下一行保存，

如下图，想在右边这片单元格输入数据，左边行里保存，VBA代码应该怎么写
每写一次保存一行，，在写一次在往下保存一行，比如我在右边输入数据1，2，3，4，5……到14，左边保存区就保存1，2，3，4，5……到14

Answer 1

你的图片看不到行号，如果代码中代号不对，你自己改吧。

建议你在工作表中插入一个按钮，指定到这个宏，在右侧把一个人的数据填完后，检查没有填写错误后，再点按钮提交数据到左侧。

Sub 提交数据()

    If Range("Q4") = "" Then MsgBox "考号不能为空！", 16: Exit Sub '退出

    If Range("R4") = "" Then MsgBox "姓名不能为空！", 16: Exit Sub '退出

    Dim i%, irow&

    irow = Range("B" & Rows.Count).End(3).Row + 1 '从考号这列获取最大行号+1

    Range("A" & irow) = Val(Range("A" & irow - 1)) + 1 '序号

    Range("B" & irow) = Range("R4") '考号

    Range("C" & irow) = Range("S4") '姓名

    Range("D" & irow) = Range("T4") '组合

    Range("E" & irow) = Range("U4") '加分

    Range("F" & irow) = Range("V4") '语文

    Range("G" & irow) = Range("W4") '语附

    Range("H" & irow) = Range("X4") '数学

    Range("I" & irow) = Range("T6") '英语

    Range("J" & irow) = Range("U6") '历史

    Range("K" & irow) = Range("V6") '等级

    Range("L" & irow) = Range("W6") '政治

    Range("M" & irow) = Range("X6") '等级

    Range("N" & irow) = Range("T8") '日语

    Range("O" & irow) = Range("U8") '总分

    Range("P" & irow) = Range("V8") '文级次

    Range("Q" & irow) = Range("W8") '班次

    MsgBox "提交成功！", 64

End Sub