问移至下一行重复进程vba

EN

Sub CountWithWithoutControls()
    Const RiskColumn As String = "C"
    Const ControlColumn As String = "F"
    Const StartAtRow As Long = 7

    Dim r As Long
    Dim ControlFound As Boolean
    Dim control As Long
    Dim WoControl As Long

    Dim lastRow As Long

    With ActiveSheet
        lastRow = .Range(RiskColumn & .Rows.Count).End(xlUp).Row
        r = .Range(ControlColumn & .Rows.Count).End(xlUp).Row
        If lastRow < r Then
            lastRow = r
        End If

        ControlFound = False
        For r = StartAtRow To lastRow
            If UCase(Trim(CStr(.Cells(r, ControlColumn).Value))) = "CONTROL" Then
                ControlFound = True
            End If
            If Not IsEmpty(.Cells(r + 1, RiskColumn)) Then
                'Store info for previous block each time we encounter a new "risk"
                If ControlFound Then
                    control = control + 1
                Else
                    WoControl = WoControl + 1
                End If
                ControlFound = False
            End If
        Next
        'Store info for final "block"
        If ControlFound Then
            control = control + 1
        Else
            WoControl = WoControl + 1
        End If
    End With

    MsgBox control & "  = number of risks with controls, " & WoControl & "  = number of risks without controls"
End Sub

 For Each cell In range("F7:F27")
     if cell.offset(,-3)<>"" then ' check if cell in column C is not empty 
        if cell = "Control" then control=control+1 else WoControl=WoControl+1   
     end if
 Next cell

Sub CountWithWithoutControls()

' counts number of risks with controls and without controls,
' currently running through each cell and comparing back to original control,
' need to write to get it to walk down the series

Dim cell As Range
'Dim myrange As Range
Dim control As Long
Dim WoControl As Long
Dim lRow As Long
Dim LastRow As Long

'Set myrange = Range("A7:F27")

' find last row in Column A - risks
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For lRow = 7 To LastRow
    If Cells(lRow, "A") <> "" And Cells(lRow, "F") = "Control" Then control = control + 1
    If Cells(lRow, "A") <> "" And Cells(lRow, "F") <> "Control" Then WoControl = WoControl + 1
Next lRow

MsgBox control & "  = number of risks with controls; " & WoControl & " = number of risks without controls"

End Sub