在EXCEL中，如何编制一个宏,使sheet1中的内容自动保存到sheet2中,并自动清空sheet

Question

在EXCEL中，如何编制一个宏,使sheet1中的内容自动保存到sheet2中,并自动清空sheet1中的内容，保留原来的格式？

Answer 1

Sub 保存()
lastrow = Sheets("sheet2").UsedRange.SpecialCells(xlCellTypeLastCell).Row
Sheets("sheet2").Cells(lastrow + 1, 1) = Sheets("sheet1").Cells(1, 1)
.
.
.
Sheets("sheet2").Select
Sheets("sheet2").Cells(lastrow + 1, 1).Select
Sheets("sheet1").range("单元格地址")=""
End Sub
只写了示例代码,你可修改单元格地址来实现你的功能

Answer 2

记录一个宏，少修改即可。