项目实现：excel中在一个表中输入信息，在另一个表中保存信息。

如图：sheet1为财务收款，sheet2中按对应信息记录。

在sheet1中添加button，载入宏；宏的具体内容为：

Sub 按钮1_Click()
On Error Resume Next
mm = Sheets(2).Cells(Rows.Count, 5).End(xlUp).Row + 1
Sheets(2).Range("e" & mm) = Sheets(1).Range("c3")
Sheets(2).Range("b" & mm) = Sheets(1).Range("f3")
Sheets(2).Range("c" & mm) = Sheets(1).Range("h3")
Sheets(2).Range("d" & mm) = Sheets(1).Range("j3")

Sheets(2).Range("f" & mm) = Sheets(1).Range("c4")
Sheets(2).Range("g" & mm) = Sheets(1).Range("j2")
Sheets(2).Range("h" & mm) = Sheets(1).Range("g4")
Sheets(2).Range("i" & mm) = Sheets(1).Range("g2")
Sheets(1).Range("f3") = ""
Sheets(1).Range("h3") = ""
Sheets(1).Range("j3") = ""
Sheets(1).Range("c4") = ""
Sheets(1).Range("j2") = ""
Sheets(1).Range("g4") = ""
Sheets(1).Range("c3") = ""
Sheets(1).Range("g2") = ""
Sheets(1).Range("i5") = ""
End Sub