Цикл вниз столбец до пустой ячейки

Question

Цикл вниз столбец до пустой ячейки

следующая формула хорошо работает if Я определяю каждую ячейку (снова и снова), но мне нужен цикл, который будет запускать столбец A & B для сотен строк.
Я попытался и просто не могу написать цикл, который запускается и останавливается, когда он попадает в пустую ячейку внизу.
Это должно быть в состоянии работать на нескольких электронных таблицах с разными именами вкладок.

пример того, что работает сейчас: [ я хочу иметь одну формулу, что петли ]
В настоящее время у меня это написано на 100 строк, так как я не могу заставить петлю работать. : - (

Sub Hidelines()

If Range("A1").Value = "No" Then
    Rows("1:1").EntireRow.Hidden = True
ElseIf Range("B1").Value = "NEVER" Then
    Rows("1:1").EntireRow.Hidden = True
    End If

If Range("A2").Value = "No" Then
    Rows("2:2").EntireRow.Hidden = True
ElseIf Range("B2").Value = "NEVER" Then
    Rows("2:2").EntireRow.Hidden = True
    End If

If Range("A3").Value = "No" Then
Range("E3").Select
    Rows("3:3").EntireRow.Hidden = True
ElseIf Range("B3").Value = "NEVER" Then
    Rows("3:3").EntireRow.Hidden = True
    End If

End Sub

9

задан Gary's Student

02.03.2023 13:53 Количество просмотров материала

2916

1 ответ

94	56	28	66	5	8	9	6	4	19

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя

Email

Похожие вопросы про тегам:

score 1 · Answer 1

Sub HideRows()
Dim RowCount: RowCount = 1   ' Row you wish to start from
Dim ColIndex: ColIndex = 1   ' Column to look within (A = 1) - Never will be in ColIndex + 1

Do
    If (LCase(Cells(RowCount, ColIndex).Value) = "no") Then
        Cells(RowCount, ColIndex).EntireRow.Hidden = True
    ElseIf (LCase(Cells(RowCount, ColIndex + 1).Value) = "never") Then
        Cells(RowCount, ColIndex).EntireRow.Hidden = True
    End If
    RowCount = RowCount + 1
Loop Until IsEmpty(Cells(RowCount, ColIndex).Value)

End Sub

это будет продолжать идти вниз каждую строку, пока он не попадает в пустую ячейку в столбце ColIndex. Это будет регистр нечувствительно смотреть на тот же столбец для No или столбец справа от него для Never, и скрыть строку, если это так.

Apple	$173,24	+0,81%
Amazon	$114,49	-1,94%
Microsoft	$325,19	+3,61%
Google	$123,44	+2,11%
Netflix	$364,74	-0,03%
Intel	$27,45	-5,34%
Facebook	$254,49	+2,11%
Tesla	$185,54	+1,44%
Tencent	$322,40	-3,01%