excel - 如何从单独的 Excel 工作表 VBA 中删除最后一行

Question

我在 sheet2 上有一个按钮，我正在尝试使用 VBA 删除 sheet1 中的最后一行。

当我删除该行时，我不希望我的屏幕转到 sheet1。

当我尝试使用 .activate 时发生这种情况。

Private Sub CommandButton3_Click()

ActiveSheet.Cells(Rows.Count, "A").End(xlUp).EntireRow.Delete


End Sub

Answer 1

如果第一个工作表的名称是 Sheet1，则使用:

Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).EntireRow.Delete