Блог

Как я могу найти последнюю строку в диапазоне ячеек, содержащих формулу, где результатом формулы является фактическое значение, а не пустое?

Скажем упрощенно, что диапазон ячеек ("E1:E10") содержит формулу, относящуюся к ячейкам от A1 до A10, как показано ниже =IF("A1"="","","A1") . Но только ячейки с A1 по A6 имеют заполненное значение, поэтому результат формулы для ячеек с E7 по E10 будет пустым.

Пытаюсь сделать это с помощью:

 lastRow = ActiveSheet.Range("E" amp; Rows.Count).End(xlUp).Row
 

приводит к тому, что последнее значение имеет значение 10 . Я хочу, чтобы значение lastRow было 6 в этом примере.

Фактический код намного сложнее, чем этот, поэтому я не могу просто проверить последнюю заполненную строку столбца A, так как формулы относятся к отдельным ячейкам на разных листах и добавляются динамически.

Я думаю, что более элегантный способ, чем был предложен @D_Bester , — это использовать find() опцию без зацикливания на диапазоне ячеек:

 Sub test()
    Dim cl As Range, iamp;
    Set cl = Range("E1:E" amp; Cells(Rows.Count, "E").End(xlUp).Row)
    i = cl.Find("*", , xlValues, , xlByRows, xlPrevious).Row
    Debug.Print "Last row with data: " amp; i
End Sub
 

тест

Кроме того, более короткая версия кода, которая была предоставлена выше, является:

 Sub test2()
    Debug.Print [E:E].Find("*", , xlValues, , xlByRows, xlPrevious).Row
End Sub
 

Вы хотите найти последнюю ячейку в столбце, которая не является пустой и не является пустой строкой(«»).

Просто следуйте последнему шагу с проверкой цикла на наличие непустой ячейки.

 lastrow = ActiveSheet.Range("E" amp; ActiveSheet.Rows.Count).End(xlUp).Row
Do
    If ActiveSheet.Cells(lastrow, 5).Value <> "" Then
        Exit Do
    End If
    lastrow = lastrow - 1
Loop While lastrow > 0

If lastrow > 0 Then
    Debug.Print "Last row with data: " amp; lastrow
Else
    Debug.Print "No data in the column"
End If
 

Обратите внимание, что вы Rows.count не указываете, на каком листе. Это означает, что он будет использовать активный лист. Конечно ActiveSheet.Range() , также находится на активном листе. Но это плохая практика-смешивать Range или Rows с .Range или .Rows . Это указывает на бездумное использование, которое может укусить вас, если вы изменили ActiveSheet , но не изменили неуказанную ссылку.

Это должно помочь вам определить последнюю строку, содержащую формулу (в столбце A на листе Sheet1 1).:

 lastRow  = Split(Split(Sheet1.Range("A:A").SpecialCells(xlCellTypeFormulas).Address, ",")(UBound(Split(Sheet1.Range("A:A").SpecialCells(xlCellTypeFormulas).Address, ","))), "$")(2)
 

SpecialCells используется для определения диапазона всех ячеек, содержащих формулу. Затем этот диапазон анализируется с использованием Split . При Ubound этом последняя из этих ячеек извлекается. Результат снова разделяется, чтобы извлечь номер строки.

 Function returnLastRow()
    With ActiveSheet.UsedRange
    returnLastRow = .Find("*", , xlValues, , xlByRows, xlPrevious).Row
    End With
End Function