循环找到具体的价值

Question

我正在尝试编写一个代码，它在L列中找到项目并突出显示它。我当前的代码有，如果count1包含＆＃34; A＆＃34;，＆＃34; B＆＃34;，＆＃34; C＆＃34;或＆＃34; D＆＃34;，请突出显示它。如果count2包含＆＃34; E＆＃34;或者＆＃34; G＆＃34;，突出显示它。我发现count1在找到2个值时停止，而当找到3个值时count2停止。我的问题是当count1（A，B，C，D）只包含1个值时，它会移动到count2，并且它会为count2（E，G）找到3个值。我需要做的是，如果count1只返回1个值，那么count2返回4个值（我总是需要总共5个值，因为那里有足够的数据）。反之亦然，例如，如果count2返回2个值，我需要count1来返回3个值（给出足够的数据）。任何帮助是极大的赞赏。谢谢。

     Sheets("Sheet1").Select
     Dim cell As Range
     Dim count1 As Integer
     Dim count2 As Integer
     For Each cell In Worksheets("Sheet1").Range("L2:L500000")
         Select Case Left(cell.Value, 1)
    Case "A", "B", "C", "D"
        If count1 < 2 Then
            cell.EntireRow.Interior.ColorIndex = 4
            count1 = count1 + 1
        End If
    Case "E", "G"
        If count2 < 3 Then
            cell.EntireRow.Interior.ColorIndex = 4
            count2 = count2 + 1
        End If
 End Select
 If count1 = 2 And count2 = 3 Then
     Exit For
 End If
Next