其他工作表上的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行，您没有将您的范围与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