其他工作表上Excel范围的VBA代码

Question

I try to use below VBA code to delete a range of data on other sheet, but it deleted data on sheet1 instead. Can someone help for this?

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

Thanks

Answer 1

Put a period.

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

Answer 2

Minor typo when referring to your worksheet object.

On line 3, you didn't associate your Range with Sheets("Found") because you are missing the . in front of Range(Cells(2, 1), cELLS(LR, 5)).Clear .

Should look like this:

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