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

Question

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

如果它是可见的，我会：

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

在隐藏工作表的情况下如何实现这一点

Answer 1

像这样使用Select是不必要的。有关避免 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