Предпоследняя строка

[Hard55]

Доброго времени суток! суть моей проблемы вот в чем: Необходимо с одного листа Excel на другой скопировать данные последних 4 строчек таблицы. Причем таблица может быть любых размеров (предположительно каждый день вносятся данные), а на новом листе они должны быть не в строчку а распределены по ячейкам. пример с последней строкой:

Sheets(3).Cells(4, 4) = Sheets(1).Cells(Rows.Count, 1).End(xlUp)
Sheets(3).Cells(5, 2) = Sheets(1).Cells(Rows.Count, 2).End(xlUp)

но так я могу скопировать данные только с последней строки, а надо еще 3 предыдущих. Заранее от души благодарен

[Hugo121]

Так Вы можете скопировать с любых двух строк (разных) - всё зависит от того, как расположатся данные. А это нам неизвестно...
А вообще почитайте про offset. И resize. Можно в help'е.

[Hard55]

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

[Hugo121]

Так примера и нет нигде...

[Hard55]

вот документ excel, я думаю так будет более понятно. данные нужны всегда с последних четырех строк таблицы на первом листе. данные в таблицу постоянно добавляются

[Hugo121]

Где-то примерно так - не стал выискивать что куда копировать, думаю разберётесь сами.
Содержимое массива смотрите в окне Locals - но в общем там всё точно как на листе.

Private Sub CommandButton1_Click()
    Dim a()
    a = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(-3, 0).Resize(4, 14).Value
    With Sheets(3)
        .Cells(4, 4) = a(1, 1)
        .Cells(5, 2) = a(1, 2)
        .Cells(6, 1) = a(1, 3)
        .Cells(6, 3) = a(1, 4)
        .Cells(7, 2) = a(2, 1)
        .Cells(8, 1) = a(2, 2)
        .Cells(9, 2) = a(2, 3)
        .Cells(9, 4) = a(2, 4)
        .Cells(10, 2) = a(3, 1)
        .Cells(11, 2) = a(3, 2)
        .Cells(14, 2) = a(3, 3)
        .Cells(16, 2) = a(3, 4)
    End With
End Sub

[Hard55]

Огромное,Человеческое СПАСИБО!

[Hugo121]

Только конечно же если последняя строка будет меньше чем 4 - то код выпадет в ошибку (т.к. выше будет край листа).
На практике возможно нужно эту строку контролировать и корректировать что берём в массив и сколько выгружаем. Но если там всегда будет 4 и больше строк с данными - то отработает без подстраховки.

[Hard55]

Да, я понял! Это как раз то, что мне было нужно! еще раз благодарю! думаю можно закрывать тему