Макрос для подсчета количества конкретных значений/строк в столбце

Question

Я пытаюсь создать макрос, который будет подсчитывать конкретные значения в данном столбце. Например, я хочу подсчитать количество всех ячеек в столбце G, содержащих «конфеты». Как мне это сделать?

Answer 1

Как насчет:

Sub dural() 
    Dim s As String 
    Dim r As Range 
    Dim wf As WorksheetFunction 
    Set wf = Application.WorksheetFunction 
    s = "candy" 
    Set r = Range("G:G") 
    MsgBox wf.CountIf(r, s) 
    ' 
    ' and if you want to count phrases including candy then: 
    ' 
    s = "*" & s & "*" 
    MsgBox wf.CountIf(r, s) 
End Sub 

Edit:

и сохранить результат в ячейку рабочего листа:

Sub dural() 
    Dim s As String 
    Dim r As Range 
    Dim wf As WorksheetFunction 
    Set wf = Application.WorksheetFunction 
    s = "candy" 
    Set r = Range("G:G") 
    s = "*" & s & "*" 
    [H3] = wf.CountIf(r, s) 
End Sub