如何在隐藏WorkSheet时删除Excel中的行n +（行数）

Question

我想从隐藏的工作表中删除记录，并且不想将其取消隐藏。

如果可见，我会：

Sheets("vwReportA").Select
Rows("15:15").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Clear

如果隐藏工作表，我怎样才能实现这一目标

Answer 1

不需要像这样使用Select。见this answer for ideas on avoiding Select

试试这个

Dim sh as WorkSheet
Dim rng as Range
Set sh = Sheets("vwReportA")
Set rng = sh.[A15]
sh.Range(rng, rng.End(xlDown)).EntireRow.Clear

Answer 2

试试这个：

Dim r As Range
Set r = Sheets("vwReportA").Rows("15:15")
Range(r, r.End(xlDown)).Clear