需要在循环中排除列

时间:2019-05-17 14:55:24

标签: excel vba

此代码非常适合我需要执行的操作,但它停在BC列。我需要它继续通过该行,但要排除该行中属于BD列的单元格。它正在搜索该行中的任何信息,但BD列始终具有通用信息,因此由于该列而总是得到误报。

我尝试了各种循环,并且尝试了if语句来排除BD列,但它总是让我失望。

    For Each Cell In Range("E2:E" & Cells(Rows.Count, "A").End(xlUp).Row)
       Dim rng4 As Range

       Set rng4 = Range("E" & Cell.Row & ":" & "BC" & Cell.Row)   'AE

        If Application.WorksheetFunction.CountA(rng4) = 0 Then
           Range("D" & Cell.Row).Value = "IDINO"

        Else
            Range("D" & Cell.Row).Value = "IDI"
        End If


    Next Cell

我尝试过的所有操作都不会更改当前结果,也不会为我提供该列中的所有IDINO或该列中的所有IDI。如果有人能引导我朝正确的方向感到沮丧,我将不胜感激。

0 个答案:

没有答案