Excel VBA在工作表中选择最后一行使用Ctrl End

Question

如何调整以下代码以使用VBA中的等效crtl shift end（我认为是xlLastCell或xlCellTypeLastCell）？

我的工作表有64列我只想选择第1列到第58列，其中我从第2行开始数据。除非工作表为空，然后选择第2行到第1048575行的所有行，否则下面的工作正常。因为我已经保护了200,000行以下的单元格，我的脚本错误如下所示。

Int

Answer 1

从第200行开始查找。

With Worksheet(WorkSheet)
    .Range(.Cells(200000, "A").End(XlUP), .Cells(2, "BF")).ClearContents
End With

'possible alternate to avoid clearing row 1
With Worksheet(WorkSheet)
    .Range(.Cells(200000, "A").End(XlUP).offset(1, 0), .Cells(2, "BF")).ClearContents
End With