VBA代碼隱藏行n - 最大

Question

是否有Excel 2010 VBA中的任何代碼，我可以用來隱藏第n行（例如第200行）到最大行？

順便說一下，該表的名稱特別是主。

Answer 1

更新註釋：要清楚我解釋這個問題與行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 

Answer 2

通常情況下，我會告訴你儘量減少你的問題，但嘿我今天早上很懶，所以我只會給你你沒有工作的答案。

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