我如何計算單元格中字符串的出現次數？

Question

我想發生次數的數量這句話「SMM：」列AJ每一行中第二列起，然後再將每一行與列BL從行開始分配值2

Sub calculateamlp() 


Dim charactercount As Integer 
Dim rangeAG As Range 
Dim cellCheck As Range 
Dim f As Integer 
f = 2 
Worksheets("pptsr").Activate 

Set rangeAG2 = Range("BL2", Range("BL2").End(xlDown)) 
Set rangeAG = Range("Aj2", Range("Aj2").End(xlDown)) 
For Each cellCheck In rangeAG 

     charactercount = Len(cellCheck) - Len(WorksheetFunction.Substitute(cellCheck, ":", "")) 


     Worksheets("pptsr").Range("BL2" & f).Value = charactercount 

    f = f + 1 
Next cellCheck 

End Sub 

Answer 1

對於完全匹配，您應該使用「vbBinaryCompare」。如果你想匹配「smm：」和「SMM：」，那麼你應該使用「vbTextCompare」。試試這個：

Sub calculateamlp() 
Dim count As Long, i As Long, j As Long, rw As Long 
Dim ws As Worksheet 
Set ws = Worksheets("pptsr") 
With ws 
    rw = .Range("AJ" & .Rows.count).End(xlUp).Row 
    For i = 2 To rw 
     For j = 1 To Len(.Cells(i, "AJ")) 
      If InStr(j, .Cells(i, "AJ"), "SMM:", vbTextCompare) Then 
       count = count + 1 
       j = InStr(j, .Cells(i, "AJ"), "SMM:", vbTextCompare) 
      End If 
     Next j 
     .Cells(i, "BL") = count 
     count = 0 
    Next 
End With 
End Sub 

Answer 2

該函數通過計算使用子字符串拆分字符串中元素的數量來獲得計數。

Function getStrOccurenceCount(Text As String, SubString As String) 
    getStrOccurenceCount = UBound(Split(Text, SubString)) 
End Function 

你可以修改代碼這樣

工作表（ 「pptsr」）範圍（ 「BL 2」 & F）.value的= getStrOccurenceCount（cellCheck.Text， 「SMM」）。

以下是如何在陣列中使用getStrOccurenceCount以提高效率。

Sub calculateamlp2() 
    Const SUBSTRING As String = "SMM:" 
    Dim rangeAG As Range 
    Dim data As Variant 
    Dim x As Long 

    Set rangeAG = Range("AJ2", Range("AJ2").End(xlDown)) 

    data = rangeAG.Value 

    For x = 1 To UBound(data) 
     data(x, 1) = getStrOccurenceCount(CStr(data(x, 1)), SUBSTRING) 
    Next 

    rangeAG.EntireRow.Columns("BL").Value = data 
End Sub 

演示：樣本數據999,999行，執行時間0.9375秒：