如何使用End(xlUp)清除从单元格A4开始的所有行

Question

下面的代码清除列A上从单元格A4开始的所有单元格。请，如何调整此代码以清除从单元格A4开始的所有行。

Range("A4", ActiveSheet.Range("A" & ActiveSheet.Rows.count).End(xlUp)).Clear

Answer 1

@GSerg在上面的注释中给出了一个方法。

这是另一种方式(较短代码(

Dim ws As Worksheet
Set ws = ActiveSheet '<~~ OR Change this to the relevant sheet
ws.Rows("4:" & ws.Rows.Count).Clear