VBA InStr, Split, LBound, UBound

いつも忘れてしまうので

Sub test()

Set w = ThisWorkbook.Sheets("マスタ")

r = 3
Do While w.Cells(r, 1).Value <> ""

  If InStr(w.Cells(r, 1).Value, "、") >= 1 Then ' 含まれていたら
  
    tmp = Split(w.Cells(r, 1).Value, "、") ' 文字列を記号で分割
    
    For i = LBound(tmp) To UBound(tmp) ' 配列のループ
      rr = rr + 1
    Next i
      
  Else
    rr = rr + 1
  End If
r = r + 1
Loop

MsgBox rr

End Sub

Sub test()

Set w = ThisWorkbook.Sheets("マスタ")

r = 3

Do While w.Cells(r, 1).Value <> ""

If InStr(w.Cells(r, 1).Value, "、") >= 1 Then ' 含まれていたら

tmp = Split(w.Cells(r, 1).Value, "、") ' 文字列を記号で分割

For i = LBound(tmp) To UBound(tmp) ' 配列のループ

rr = rr + 1

Next i

Else

rr = rr + 1

End If

r = r + 1

Loop

MsgBox rr

End Sub