0

非表示のワークシートからレコードを削除したいのですが、そのために非表示を解除したくありません。

それが見える場合、私は:

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

ワークシートが非表示になっているときにこれを達成するにはどうすればよいですか

4

2 に答える 2

4

この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
于 2012-09-18T10:40:16.313 に答える
2

これを試してみてください:

Dim r As Range
Set r = Sheets("vwReportA").Rows("15:15")
Range(r, r.End(xlDown)).Clear
于 2012-09-18T10:45:30.203 に答える