열의 특정 값/문자열 수를 계산하는 매크로

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