1) [Alt+F8]调出宏输入宏名,例如:"MoveToHistory"
2) [Alt+F11]进入编程界面
Sub MoveToHistory()
ActiveCell.Cells.EntireRow.Copy
Sheet2.Range("B3").Rows.EntireRow.Insert
ActiveCell.Cells.EntireRow.Delete
End Sub
1) [Alt+F8]调出宏输入宏名,例如:"MoveToHistory"
2) [Alt+F11]进入编程界面
Sub MoveToHistory()
ActiveCell.Cells.EntireRow.Copy
Sheet2.Range("B3").Rows.EntireRow.Insert
ActiveCell.Cells.EntireRow.Delete
End Sub