Заполните ячейки на основе содержимого диапазона переменных ячеек

Question

В моей таблице у меня есть список данных в столбце с номерами позиций. Учитывая значение (либо «1 Quad», либо любое значение A-D) в смежной ячейке, не должно быть строк с повторяющимися номерами элементов или 8 строк с номерами повторяющихся элементов соответственно в том же столбце. Если есть больше или меньше требуемого количества номеров позиций (слишком много повторяющихся чисел или пропущенных номеров), тогда мне бы хотелось, чтобы весь переменный диапазон идентичных номеров элементов выделялся (что я просто делаю с Fill).

For i = 3 To (mainRow - 1) 
    k = i 
    j = i 
    If Range("G3") = "'1 Quad" Then 
     If Range("E" & i).Value > (Range("E" & (i + 1)).Value - 1) Then 
      Range("E" & i, "E" & (i + 1)).Interior.Color = RGB(255, 0, 0) 
      i = i + 1 
     End If 
     If Range("E" & i).Value < (Range("E" & (i + 1)).Value - 1) Then 
      Range("E" & i, "E" & (i + 1)).Interior.Color = RGB(0, 255, 0) 
      i = i + 1 
     End If 
    ElseIf Range("G3").Value = "A" Or "B" Or "C" Or "D" Then 
     Do 
      If Range("E" & j).Value = Range("E" & (j + 1)).Value Then 
       j = j + 1 
      End If 
      If Range("E" & j).Value <> Range("E" & (j + 1)).Value Then 
       If j < 8 Then 
        For k = i To j 
         Range("E" & i).Interior.Color = RGB(255, 0, 0) 
        Next k 
       End If 

       If j > 8 Then 
        For k = i To j 
         Range("E" & i).Interior.Color = RGB(0, 255, 0) 
        Next k 
       End If 
       Exit Do 
      End If 
     While j < (mainRow - 1) 
     i = k 
    End If 

Next i 

С помощью этого кода я получаю ошибку «End If без блока Если», который не кажется, дело вообще. Если я удалю последний «End IF», я получаю сообщение «Next without For». Спасибо заранее за вашу помощь.

** Я отредактировал код для включения end ifs и по-прежнему получал ту же ошибку.

Answer 1

Вам не хватает 3 End Ifs, а синтаксис Do-While выключен. Попробуйте это вместо этого:

Do While j < (mainRow - 1) 
     If Range("E" & j).Value <> Range("E" & (j + 1)).Value Then 
      If j < 8 Then 
       For k = i To j 
        Range("E" & i).Interior.Color = RGB(255, 0, 0) 
       Next k 
       Exit Do 
      End If 
      If j > 8 Then 
       For k = i To j 
        Range("E" & i).Interior.Color = RGB(0, 255, 0) 
       Next k 
       Exit Do 
      End If 
     End If 
    Loop