VBA код для скрытия строк n-максимум

Есть ли какой-либо код в Excel 2010 VBA, который я могу использовать, чтобы скрытьстрока n (например, строка 200) до максимального ряда?

Кстати, название листа, в частности,главный.

 ApplePie27 окт. 2012 г., 13:05
Чувак, давай. Мы дали вам 2 разных варианта решения. Приспособьте это к своей ситуации.

Ответы на вопрос(2)

чтобы попытаться отклонить ваш вопрос, но эй, яЯ ленивый сегодня утром, поэтому яЯ просто дам вам ответ, за который у вас нетт работал на.

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

 ApplePie27 окт. 2012 г., 13:07
В противном случае нам нужно немного больше узнать о таблице, чтобы узнать, как это сделать.
 ApplePie27 окт. 2012 г., 13:19
Там. Починил это.
 ApplePie27 окт. 2012 г., 13:06
Он сказалto the maximum row нетto the last row with data
 brettdj27 окт. 2012 г., 13:07
Так что, если на листе вообще не было данных? (Я поднял ваш комментарий выше моей ошибки)
 brettdj27 окт. 2012 г., 13:05
это ленивый - например, он предполагает, что есть данные вне строки 200
Решение Вопроса

Обновленный комментарий: для ясности я интерпретировал этот вопрос как скрытие от строки 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
 brettdj27 окт. 2012 г., 13:06
@methuselah обновил мой второй пример, чтобы сделать это
 methuselah27 окт. 2012 г., 13:05
Таким образом, чтобы установить его на листеглавный Я бы поставилSet ws = main

Ваш ответ на вопрос