VBA. Циклы

[mozart2012]

Процедура, подсчитывающая правильные ответы. Она сравнивает правильный ответ, помеченный единицей в 3 столбце с выбранными пользователем ответами (4 столбец). Когда единички совпадают, процедура засчитывает правильный ответ и ставит в 5 столбце единичку. Плохо знаю VBA, помогите найти ошибку, макрос выполняется только для первого вопроса, хотя должен пройтись аж до 147 строки

Sub Coincidence()
Dim QwNum As Integer
Dim num As Integer
Dim RwCnt As Integer
RwCnt = 2

 Do Until Sheets("Chapter02").Cells(RwCnt, 3) = ""
 If Sheets("Chapter02").Cells(RwCnt, 3) = 1 And Sheets("Chapter02").Cells(RwCnt, 4) = 1 Then
   Sheets("Chapter02").Cells(RwCnt, 5).Value = 1
   num = num + 1
 Else
   Sheets("Chapter02").Cells(RwCnt, 5).Value = 0
  End If
  RwCnt = RwCnt + 1
Loop
Sheets("Chapter02").Cells(148, 3).Value = Str(num)
End Sub

[DiemonStar]

 Do Until Sheets("Chapter02").Cells(RwCnt, 3) = ""

У вас цикл выполняется до первого пробела в столбце 3. естественно, что цикл работает не до конца.

попробуйте так:

  For I = 1 To Range("C" & Rows.Count).End(xlUp).Row
    If Not IsEmpty(Cells(I, 3)) Then
      Cells(I, 5) = -(Cells(I, 4) = Cells(I, 3))
    End If
  Next I

или можно в одну строку:

Range("C1:C" & Range("C" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeConstants).Offset(, 2).FormulaR1C1 = "=--(RC[-1] = RC[-2])"