excel - 行を非表示にするVBAコードn-最大

Question

行n（行200など）を最大行まで非表示にするために使用できるExcel 2010 VBAのコードはありますか？

ところで、特にシートの名前はメインです。

Answer 1

通常、私はあなたの質問に反対票を投じるようにあなたに言いますが、今朝は怠け者なので、あなたが働いていない答えをあなたに与えます.

Rows(200, ActiveSheet.Rows.Count).Hidden = true

Answer 2

更新されたコメント: 明確にするために、私はこの質問を行 200 からデータのある使用済み行に隠れていると解釈しました (最後に使用した行が 200 を超えた場合)

このようなもの

コード

Sub HideEm()
    Dim rng1 As Range
    Set rng1 = ActiveSheet.Cells.Find("*", [a1], xlValues, , , xlPrevious)
    If Not rng1 Is Nothing Then
        If rng1.Row > 200 Then Rows("200:" & rng1.Row).Hidden = True
    End If
End Sub

特定のシートで作業する

Sub HideEm()
Dim ws As Worksheet
Dim rng1 As Range
Set ws = Sheets("main")
Set rng1 = ws.Cells.Find("*", ws.[a1], xlValues, , , xlPrevious)
If Not rng1 Is Nothing Then
    If rng1.Row > 200 Then ws.Rows("200:" & rng1.Row).Hidden = True
End If
End Sub