определить последнюю ЯЧЕЙКУ в определенном столбце

[DMITRIY_78]

Ребята здравствуйте! пример приложил, кликните кнопку на листе р3а, формируется лист "отчет", как поместить итог в 5 или 6 строку, в макросе листинга выделил строку

iLastRow = Cells(1, 6).End(xlDown).Row

которая должна определять последнюю ячейку заполненную в столбце "F"

[unbanned]

ничего не понятно, но очень интересно.
У меня вот такой код определяет последнюю ячейку в столбце

iLastRow = raw_data_list.Cells(Rows.Count, 1).End(xlUp).Row

где 1 это номер столбца в котором нужно определять

[Hugo121]

Там в ячейках не Empty, а пустая строка - думаю это влияет.
Как побороть так сразу не придумал, но точно можно вычислить например циклом по массиву.

[DMITRIY_78]

unbanned, да вы правы если вы заметили то в коде присутствует два варианта которые можно использовать

iLastRow = Cells(1, 6).End(xlDown).Row
iLastRow = Cells(Rows.Count, 6).End(xlUp).Row

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

Columns("F:F").Select
        Application.CutCopyMode = False
            Selection.Copy
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
                    
         Range("F1").Select

копирует и вставляет как "значение и после уже идет определение последней строки в ячейке столбца 6

[Hugo121]

Вы меня не поняли - я говорю про те "пустые"

[DMITRIY_78]

Hugo121, вас то я понял), это я писал для unbanned

[Aleksandr H.]

Сообщение от DMITRIY_78

это зависит от того что предыдущий код , вот этот макрос записан автоматически

имхо из-за того что в ячейках строк 5-6 есть формулы, а значит они не пустые. Может, как было предположено, в цикле считать от последней строки до первой непустой?

Option Explicit

Dim myRow As Long
Dim iLastRow As Long
Sub отчет()
    
    Application.ScreenUpdating = False
    Worksheets.Add(After:=Sheets(Sheets.Count)).Name = "Отчет" 'создаем новый лист-переименовваем-переносим в конец всех листов
    Sheets("Отчет").Activate
    Range("A1").Select
    Range("A1").FormulaLocal = "=""ФИО "" & СЧЁТЗ($A$2:$A$2000) &"" поз."""
    Range("B1").FormulaLocal = "Место Лист"
    Range("C1").FormulaLocal = "Выдано Кол-во"
    Range("D1").FormulaLocal = "Дата выдачи"
    Range("E1").FormulaR1C1 = "=""Сроки на: ""&CHAR(10)&TEXT(TODAY(),""ДД.ММ.ГГ"")"
    Range("F1").FormulaLocal = "Отчетный Период"
    Range("G1").FormulaLocal = "ИТОГО"
    
    
    '================ сборка
    Dim ws As Worksheet, i As Long, x As Range, y As Range
    Dim a
    Application.ScreenUpdating = False
    Rows("2:" & Rows.Count).ClearContents
    For Each ws In Sheets
        If ws.Name <> "отчет" And ws.Visible < 0 Then
            Set x = ws.Range("D5:D" & ws.Cells(Rows.Count, 1).End(xlUp).Row)
            On Error Resume Next
            Set x = x.SpecialCells(xlCellTypeBlanks)
            If Err = 0 Then
                For Each y In x
                    i = Cells(Rows.Count, 1).End(xlUp).Row + 1
                    Cells(i, 1) = y.Offset(, -3)
                    Cells(i, 2) = ws.Name
                    Cells(i, 3) = y.Offset(, -1)
                    Cells(i, 4) = y.Offset(, -2)
                Next
                Else: On Error GoTo 0
            End If
        End If
    Next
    '==============
    Columns("A:A").ColumnWidth = 25
    Columns("B:F").ColumnWidth = 10
    Columns("D:D").NumberFormat = "dd/mm/yy;@" 'УСТАНАВЛИВАЕМ ФОРМАТ ДЛЯ ОТОБРАЖЕНИЕ ДАТЫ
    Rows("1:1").RowHeight = 34
    Rows("1:1").Font.Bold = True
    With Range("1:1,B:G")
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .VerticalAlignment = xlCenter 'атрибут перенос текста на новую строку
        .WrapText = True
    End With
    Application.ScreenUpdating = False
    iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
    '===========
    'расчет формулой по дате
    Range("E2").FormulaArray = _
    "=IFERROR(DATEDIF(TEXT(RC[-1],""ДД.ММ.ГГГГ""),TODAY(),""d""),"""")"
    Range("E2").AutoFill Destination:=Range("$E$2:$E$" & iLastRow), Type:=xlFillDefault 'протаскивание формулы до конца диапазона
    '==============
    'расчет формулой по периодам по листам
    Range("F2").FormulaArray = _
    "=IFERROR(INDEX(R2C2:R100C2,MATCH(0,COUNTIF(R[-1]C:R1C6,R2C2:R100C2)+IF(COUNTIF(R2C2:R100C2,R2C2:R100C2)>1,0,1),0)),"""")"
    Range("F2").AutoFill Destination:=Range("$F$2:$F$" & iLastRow), Type:=xlFillDefault 'протаскивание формулы до конца диапазона
    '================
    'итог формулой общую сумму
    Range("G2").FormulaArray = "=IF(SUMIFS(R2C3:R100C3,R2C2:R100C2,RC[-1])=0,"""",SUMIFS(R2C3:R100C3,R2C2:R100C2,RC[-1]))"
    Range("G2").AutoFill Destination:=Range("$G$2:$G$" & iLastRow), Type:=xlFillDefault 'протаскивание формулы до конца диапазона
    '=============
    iLastRow = Cells(Rows.Count, 1).End(xlUp).Row 'поиск последней заполненую ячейку в первом столбце
    Range(Cells(iLastRow + 1, 1), ActiveCell.SpecialCells(xlLastCell)).Offset(1, 0).Delete 'выделение диапазона строки
    '=============
    iLastRow = Cells(Rows.Count, "G").End(xlUp).Row
    Do While CStr(Cells(iLastRow, "G").Value) = "" And iLastRow >= 1
        iLastRow = iLastRow - 1
    Loop
    With Range("G1:F" & iLastRow)
        .Copy
        .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
    End With
    Cells(iLastRow + 2, "F").Formula = "Итого:" 'заполнение ячейки с учетом отступа двух последних пустых ячеек
    Cells(iLastRow + 2, "G").Formula = "=Sum(G2:G" & iLastRow & ") &"" шт.""" 'формула расчета суммы с учетом отступа двух последних пустых ячеек

    With Columns("F:G")
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .VerticalAlignment = xlCenter
    End With
    Range("G1").Select
End Sub

[DMITRIY_78]

Aleksandr H., спасибо, работает