VBA代码隐藏行n - 最大

-4

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

顺便说一下，该表的名称特别是主。

来源

2012-10-27 methuselah

伙计加油。我们为您提供了两种不同版本的解决方案。适应你的情况。 – ApplePie

更新注释：要清楚我解释这个问题与行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

来源

2012-10-27 11:02:50 brettdj

所以把它设置为表*主要*我会设置'Set ws = main' – methuselah

@methuselah更新我的第二个例子来做到这一点 – brettdj

通常情况下，我会告诉你尽量减少你的问题，但嘿我今天早上很懒，所以我只会给你你没有工作的答案。

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

来源

2012-10-27 11:03:51 ApplePie

它是懒惰的 - 例如它假设有超过第200行的数据 – brettdj

他说：“最大行'不'到数据最后一行。 – ApplePie

否则，我们需要知道如何做到这一点的电子表格好一点。 – ApplePie

VBA代码隐藏行n - 最大

回答

相关问题