VBA运用2_静岡BUSSOLA用

Public Sub 静岡BUSSOLA用()
'   author:  zsh
'   version: V1.0
'   time:    2016/01/07

    Dim count_row As Integer
    Dim result_ok As String
    Dim num_if As Integer
    Dim num_for As Integer
    Dim num_case As Integer
    Dim num As Integer

    count_row = Range("A65536").End(xlUp).Row
    result_ok = "○"
    num = 0

    Dim i As Integer
    For i = 1 To count_row
        
        If Range("C" & i).Value Like "*if*" Or Range("C" & i).Value Like "*else*" _
            Or Range("C" & i).Value Like "*for*" _
                Or Range("C" & i).Value Like "*case*" Or Range("C" & i).Value Like "*default*" Then
        
            Range("A" & i).Value = result_ok
            num = num + 1

        End If
    
    Next i

    Debug.Print num & "个"

'   end:     zsh
End Sub

 

转载于:https://www.cnblogs.com/SilverBullet/p/5111935.html