其他工作表上Excel范圍的VBA代碼

Question

我嘗試使用下面的VBA代碼刪除其他工作表上的一系列數據，但它刪除了sheet1上的數據。 有人可以幫忙嗎？

With Sheets("Found")
  lr = .Range("A" & Rows.Count).End(xlUp).Row
  Range(Cells(2, 1), Cells(lr, 5)).Clear
End With

謝謝

Answer 1

放一段。

With Sheets("Found")
  lr = .Range("A" & Rows.Count).End(xlUp).Row
  .Range(.Cells(2, 1), .Cells(lr, 5)).Clear
End With

Answer 2

引用工作表對象時的小錯字。

在第3行，您沒有將Range與Sheets("Found")關聯，因為您缺少. 在Range(Cells(2, 1), cELLS(LR, 5)).Clear 。

應該看起來像這樣：

With Sheets("Found")
  lr = .Range("A" & .Rows.Count).End(xlUp).Row
  .Range(.Cells(2, 1), .Cells(lr, 5)).Clear
End With