在Excel中使用VBA，将单元格的行移到主

使用VBA，如何在保存之前自动将用户的数据从其工作表中移动（而不是复制）到最后一行主数据？

5个单独的用户/用户input相同types的数据（跟踪他们的编程数据）。 当用户保存时，他们的工作表上的数据行需要被移动到主表以供进一步分析。 曾经移动过的这些行不应该存在于单个表单中。

预先感谢您的任何帮助。

Answer 1

我的意见可能不是很清楚，我的意思是剪切粘贴作为你的function的一部分，像这样…

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim Master As Worksheet Dim LastRow_Master As Integer Dim LastRow_Current As Integer Set Master = ThisWorkbook.Worksheets("Master") For Each ws In ThisWorkbook.Worksheets If Not ws Is Master Then LastRow_Master = Master.Cells(Master.Rows.Count, 1).End(xlUp).Row + 1 LastRow_Current = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row If LastRow_Current > 1 Then ws.Rows("2:" & LastRow_Current).Cut Master.Rows(LastRow_Master) End If End If Next Application.CutCopyMode = 0 End Sub 

注意：我假设每个工作表在第1行都有一个标题，包括主。