Sub 特定の値の個数を数える_For利用()

    特定の値 = "B社"
    
    最終行 = Cells(Rows.Count, "A").End(xlUp).Row
    
    For 行 = 2 To 最終行
        
        If Range("A" & 行) = 特定の値 Then '特定の値と同じ場合
            
            個数 = 個数 + 1 '個数に1を足す
        
        End If
    
    Next 行
    
    MsgBox 特定の値 & "は" & 個数 & "個"

End Sub