宏以计算列中特定值/字符串的数量

Question

我正在尝试创建一个宏，该宏将计算给定列中的特定值。 例如，我要计算G列中包含“ candy”的所有单元格的数量。 我将如何去做呢？

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

编辑 ：

并将结果存储在工作表单元格中：

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