excel - VBA代码隐藏行n-maximum

Question

Excel 2010 VBA 中是否有任何代码可用于将第 n 行（例如第 200 行）隐藏到最大行？

顺便说一句，工作表的名称特别是main。

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