Добавление (удаление) строк в таблице

[inside9]

Добрый день! У меня возникла вот такая проблема: я создал на листе две кнопки добавление строки к таблице (копированием)и удаление строки, записал макрос:
Sub ДобавлениеСтроки()
Rows("50:50").Select
Selection.Copy
Rows("51:51").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub
Sub УдалениеСтроки()
Rows("51:51").Select
Selection.Delete Shift:=xlUp
Range("C51").Select
End Sub
Но как сделать, чтобы макрос добавлял строки к последней строке таблицы и удалял последнюю строку таблицы (а не 50 и 51 соответственно как в приведённом коде макроса)!? С уважением, Роман!

[SAS888]

А что значит последняя строка таблицы? Это можно понимать по разному. Если, например, последней строкой считать последнюю заполненную ячейку в столбце "A", то можно так:

Sub Добавление()
    Dim i As Long: Application.ScreenUpdating = False
    i = Cells(Rows.Count, 1).End(xlUp).Row
    Rows(i).Copy Rows(i + 1)
End Sub

 Sub Удаление()
    Rows(Cells(Rows.Count, 1).End(xlUp).Row).Delete
 End Sub

А если по другому, то опишите подробнее. Под Вашей таблицей есть еще данные?

[inside9]

Под таблицей нету данных больше. А вот последняя строка может быть незаполненной

[inside9]

Как программно определить последнюю строку таблицы (даже если она не заполненная)

[The_Prist]

Dim lLastRow as long
lLastRow = ActiveSheet.Cells.SpecialCells(xlLastCell).Row

Самая последняя ячейка на листе. Правда не показывает неверный результат при использовании фильтра. А вот такой вариант работатет и при фильтре.

lLastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1

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

[SAS888]

Во-первых, способ, предложенный The_Prist, не будет работать корректно, если, например, есть заливка ячеек, или прорисованы границы ячеек ниже, чем строка, содержащая данные. Т.к. метод .UsedRange такие строки учитывает.
Во-вторых, если,все-таки, нужно определить последнюю заполненную строку таблицы, не зависимо от номера столбца, то можно поступить, например, так:

Sub Добавление()
    Dim i As Long: Application.ScreenUpdating = False
    For i = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1 To 1 Step -1
        If Rows(i).Text = "" Then Else Exit For
    Next
    Rows(i).Copy Rows(i + 1)
End Sub

Sub Удаление()
    Dim i As Long: Application.ScreenUpdating = False
    For i = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1 To 1 Step -1
        If Rows(i).Text = "" Then Else Exit For
    Next
    Rows(i).Delete
End Sub

В-третьих, ответа на вопрос

Как программно определить последнюю строку таблицы (даже если она не заполненная)

Вы не дождетесь до тех пор, пока однозначно не скажите, что в Вашем случае значит "последняя строка таблицы".

[The_Prist]

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

Во-первых, способ, предложенный The_Prist, не будет работать корректно, если, например, есть заливка ячеек, или прорисованы границы ячеек ниже, чем строка, содержащая данные. Т.к. метод .UsedRange такие строки учитывает.

При всем уважении, я этот момент описал в своем посте. Последние две строчки.

Сообщение от The_Prist;

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

А предложил эти два варианта именно поэтому

Сообщение от inside9;

Как программно определить последнюю строку таблицы (даже если она не заполненная)

[SAS888]

The_Prist.
Не в обиду. Я просто пояснил эти Ваши две строчки. Но, похоже на то, что вопрос, что такое конец таблицы (даже не заполненной), нас с Вами интересует больше, чем автора темы.

[The_Prist]

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

Не в обиду.

Да какие там обиды, было бы из-за чего. Я тоже просто пояснил причину указания именно этих двух способов.

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

нас с Вами интересует больше, чем автора темы.

Полностью согласен.

[ILF_ollie]

Подскажите пожалуйста, как реализовать следующую функцию:

Имеем в файле MS Excel 2007 таблицу, названную "Таблица1"
Нижняя строка - строка итогов.
В данной таблице заполнены все строки.
Необходимо добавить еще одну строку, перед итоговой строкой, для того чтобы продолжить заполнять таблицу.
Нажимаешь кнопочку на экране - появляется пустая строка. Какой макрос для этого необходим?