Как перебрать строки, начинающиеся со строки 2, и выяснить, пуста ли строка из столбца E в столбец AE

Question

В основном мне нужно выяснить, как циклически проходить между строками, начиная со строки 2, столбца E, до столбца AE и до конца строк, находить, какие из них являются пустыми от столбца E до столбца AE, а затем помещать буквенный код в эти строки.в столбец ячейки d и поместите другой буквенный код, если информация найдена в любой ячейке в этом выделении (от E до AE), затем, конечно, переместитесь на одну строку вниз и сделайте то же самое, пока не узнаете информацию, оставленную в строках со столбцом A в качестве ссылки на то, когдапрекратить зацикливание

Если кто-то может помочь, я буду признателен.

Все, что я пробовал, продолжает взрываться, не могу найти способ присвоить значение нескольким выборкам ячеек, по крайней мере, этоВот как я пытался атаковать это.

Надеюсь, кто-то может помочь

Answer 1

Это будет циклически проходить по столбцу E, и если все ячейки в активной строке столбца AE будут пустыми, в столбце D активной строки будет помещено «E», или «F» в любой ячейке имеет значение.

For Each cell In Range("E2:E" & Cells(Rows.Count, "E").End(xlUp).Row)
    Dim rng As Range
    Set rng = Range("E" & cell.Row & ":" & "AE" & cell.Row)

    If Application.WorksheetFunction.CountA(rng) = 0 Then
        Range("D" & cell.Row).Value = "E"
    Else 
        Range("D" & cell.Row).Value = "F"
    End If
Next cell