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

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 

编辑：

，并把结果存储在工作表单元格：

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