将宏分配给按钮，以便将数据从Sheet1/Sheet2复制到DATAsheet而不是delete

Question

我有一个工作簿，它有一个接收跟踪器和一个生产跟踪器，每天都会更新，需要保存到包含所有信息的主数据表中。为了便于不熟悉计算机的同事使用，我希望他们能够点击一个按钮来保存他们输入的信息，然后复制并保存数据并清除表单。我也想不通怎么用getLastRow

我已经为复制和粘贴数据的两个工作表创建了一个宏和一个按钮，但我相信我的范围是错误的。如果我点击接收跟踪器上的按钮，一切都很好，除了不能正确获取最后一行。当数据工作表中已经有来自receive traker的数据时，我单击Production tracker的按钮，它会将数据粘贴到我想要的位置，也会粘贴到receive Tracker的单元格上。另外，我需要将公式保存在生产跟踪器上，当我执行delete或clearcontets时，它会被删除

接收跟踪器的宏为

'''    Sub Macro3()
'
' Macro3 Macro
'

'
    Sheets("RecieveTracker").Select
    Range("A7:J105").Select
    Selection.copy
    Sheets("DATA").Select
    Range("A7").Select
    ActiveSheet.Paste
    Sheets("RecieveTracker").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
End Sub
'''

对于生产跟踪器是“”子Macro5()“”Macro5宏“”

'
    Sheets("DailyProduction").Select
    Range("A2:I150").Select
    Selection.copy
    Sheets("DATA").Select
    Range("O7").Select
    ActiveSheet.Paste
    Sheets("DailyProduction").Select
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub
'''

当我运行它时，我没有收到错误信息，但我丢失了生产跟踪器上的公式，所有其他数据都被复制到数据表上以供参考。接收跟踪器的范围应为A7-J7及以下，而生产跟踪器的数据应为o7-w7及以下

Answer 1

我将与你分享我最好的朋友之一：

last_cell_data = Sheets("DATA").Cells(Rows.Count, "A").End(xlUp).Row

它给出了列"A“中的最后一行，还有一个值，所以给出了一个整数。如果您想要"O“列，只需将"A”替换为"O“即可。

对于您的问题，请使用以下命令：

Range("O" & last_cell_Data + 1 ).Select

现在，您将不再覆盖。

Answer 2

对于我清理数据和保留我使用的公式的问题...

Range("A2:I150").SpecialCells(xlCellTypeConstants).ClearContents