宏來計算列中特定值/字符串的數量

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