Vba 清除excel单元格中的值

假设我知道

行数

，超过该行数，我希望工作表中的所有单元格都为空且不合并。如何在vba中执行此操作？

以下是删除给定行以外所有行的典型方法：

Sub RowKiller()
    Dim RowNumber As Long, Strn As String
    RowNumber = 17
    Strn = RowNumber + 1 & ":" & Rows.Count
    Rows(Strn).Delete
End Sub

---

我考虑查看ms excel中可能的最后一行，并使用.Clear清除从我的行号到该excel行的所有内容。但考虑到不同的excel格式可能有不同的行限制，我不确定这是否是最好的方法。使用

Sheets（“Sheet1”）.Rows.Count代替硬编码最后一行