Подсчет определенного значения в столбце

Question

Я добавил в мой код строку подсчета, чтобы подсчитать, сколько раз всплывает определенное значение, а затем отображать его.Размер столбца может варьироваться (огромное количество). Недавно я узнал, что хорошей альтернативой (быстрее, чем цикл «Для каждого») является использование функции «Найти», но я не вижу никаких материалов для чтения при использовании «Найти».чтобы подсчитать значение.

Это просто набросок моего кода подсчета.

 Sub test()

     Dim rng As Range
     Dim cell As Range

        Set rng = Sheet1.Range("H2:H200")

        Count = 0

        For Each cell In rng
            If cell.Value = "VALUE" Then
            Count = Count + 1
        End If 
    Next cell

    Sheet1.Range("O3").Value = Count

    Count = 0

End Sub

Может ли кто-нибудь указать мне правильное направление?

Спасибо.

Answer 1

Попробуйте это:

Sub Counting()

    Dim LastRow As Long, Count As Long, rng As Range, sheet1 As Worksheet

    Set sheet1 = ThisWorkbook.Sheets("whateverursheetiscalled")
    LastRow = sheet1.Range("H2").End(xlDown).Row
    Set Range = sheet1.Range("H2:H" & LastRow)
    Count = Application.CountIf(rng, "VALUE")
    sheet1.Range("O3") = Count

End Sub