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

[sasha555]

Добрый день!!! Помогите пожалуйста с макросом чтобы он делал такую работу: копировал последнюю запись в столбце В в ячейку В1, а последнюю запись в столбце С в ячейку С1 и так до столбца АО.

[Watcher_1]

Sub m()
    For j = 2 To 41 'from B to AO
        DoEvents
        lastR = Cells(Rows.Count, j).End(xlUp).Row
        Cells(1, j) = Cells(lastR, j)
    Next
End Sub

[sasha555]

Огромное спасибо Watcher_1. все копирует, только я не учел что будут копироваться и последние записи с нолевым значением, как сделать так чтобы копировались последние записи которые больше НОЛЬ

[Watcher_1]

Sub m()
    For j = 2 To 41 'from B to AO
        DoEvents
        myVal = Cells(Rows.Count, j).End(xlUp).Value
        if myVal>0 Then Cells(1, j) = myVal
    Next
End Sub

[sasha555]

Снова я неправильно изложил свою мысль. Пример привел на рисунке, потому что не могу правильно описать.Нужно чтоб копировалась последняя запись которая больше ноль или можно сделать только чтоб копировалось цифровые значение.

[Step_UA]

Можно обойтись и без макроса, формула массива (ввод Shift+Ctrl+Enter) для ячейки B1

=ИНДЕКС(B:B; МАКС(ЕСЛИ(B5:B125>0;СТРОКА(B5:B125);0)))

B5:B125 - замените на свой диапазон

[Watcher_1]

как вариант НО нулей не должно быть между значениями, они должны быть с низу

Sub m()
    Dim myF As Range
    For j = 2 To 41 'from B to AO
        DoEvents
        myR = Cells(Rows.Count, j).End(xlUp).Row
        Set myF = Columns(j).Find("0", , xlValues, xlWhole)
        If Not myF Is Nothing Then
            If myF.Row < myR Then myR = myF.Row - 1
        End If
        Cells(1, j) = Cells(myR, j)
    Next
End Sub

[Step_UA]

Watcher_1, зачем Вам Find ... и можно с нулями в середине

Sub m()
    Dim myR&
    For j = 2 To 41 'from B to AO
        myR = Cells(Rows.Count, j).End(xlUp).Row
        While myR > 4 And Cells(myR, j) = 0
            myR = myR - 1
        Wend
        If myR > 4 Then Cells(1, j) = Cells(myR, j) Else Cells(1, j) = ""
    Next
End Sub

[Watcher_1]

Не хотелось циклы гонять

[sasha555]

Спасибо!Все работает!!!Супер!!! помогите с тем же макросом только чтобы он копировал последние заполненные 5 ячеек в столбце F и вставлял данные в 2-ю строку как на рисунке. И так далее с периодичностью кожный 5 столбец (K,P,U,Z,AE,AJ и AO).