excel中如何让表在数据最后一行的下一行加入数据？

2025-05-10 03:35:17

推荐回答（1个）

回答1：

1. 第一个按钮：表3中，a3：i3等于表1中a3：i3

代码示例如下：


Private Sub CommandButton1_Click()
    Sheet1.Range("A3:I3").Copy
    Sheet3.Range("A3:I3").PasteSpecial
End Sub

2. 第二个按钮：在表2中最后一行的下一行加入表1或表3中的a3：i3，然后删除表1与表3中的c3：i3.

Private Sub CommandButton2_Click()
    endRow = Sheet2.Range("A65536").End(xlUp).Row
    Sheet1.Range("A3:I3").Copy
    Sheet2.Range("A" & endRow & ":I" & endRow).PasteSpecial
    Sheet1.Range("C3:I3").ClearContents '删除内容
    Sheet3.Range("C3:I3").ClearContents '删除内容
End Sub