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

[SAS888]

Пусть, например, в последней строке (строке итогов) в столбце "A" всегда присутствует значение. Тогда добавить строку перед строкой итогов, можно так:

Rows(Cells(Rows.Count, 1).End(xlUp).Row).Insert

Но, по всей видимости, Вам этого будет не достаточно. Возможно, что понадобится изменить какие-либо формулы.
Приведите конкретный пример и укажите, что еще, кроме добавления строки в нужное место, должен сделать макрос. Только в этом случае Вы можете расчитывать на полный ответ. Гадать, что Вам нужно, здесь никто не будет.

[ILF_ollie]

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

Пусть, например, в последней строке (строке итогов) в столбце "A" всегда присутствует значение. Тогда добавить строку перед строкой итогов, можно так:

Rows(Cells(Rows.Count, 1).End(xlUp).Row).Insert

Но, по всей видимости, Вам этого будет не достаточно. Возможно, что понадобится изменить какие-либо формулы.
Приведите конкретный пример и укажите, что еще, кроме добавления строки в нужное место, должен сделать макрос. Только в этом случае Вы можете расчитывать на полный ответ. Гадать, что Вам нужно, здесь никто не будет.

Все оказалось намного проще:

Sub Добавление_строки()
'
' Добавление_строки Макрос
'

'
Range("Таблица1[#Totals]").Select
Selection.ListObject.ListRows.Add

End Sub


В любом случае, спасибо.

[СтаниславАВ]

А почему тогда не работает код по удалению данных из таблицы:

Range("Расходы_товары").Select
Selection.ListObject.ListRows.Delet e

[СтаниславАВ]

При удалении строк таблицы excel при помощи vba:

При записи макроса пишет код:
Range("Расходы_товары").Select
Selection.ListObject.ListRows(1).De lete
Selection.ListObject.ListRows(1).De lete
Selection.ListObject.ListRows(1).De lete
Selection.ListObject.ListRows(1).De lete
Selection.ListObject.ListRows(1).De lete
Selection.ListObject.ListRows(1).De lete
Selection.ListObject.ListRows(1).De lete
Selection.ListObject.ListRows(1).De lete
Selection.ListObject.ListRows(1).De lete
Selection.ListObject.ListRows(1).De lete
Selection.ListObject.ListRows(1).De lete
Selection.ListObject.ListRows(1).De lete
Selection.ListObject.ListRows(1).De lete
Selection.ListObject.ListRows(1).De lete

А код написанный мной для таблицы содержащей разное количество строк не работает.

[СтаниславАВ]

Использовал макрос умных людей:

Option Explicit

Sub УдалениеСтрокПоУсловию()
Dim ra As Range, delra As Range, ТекстДляПоиска As String
Application.ScreenUpdating = False ' отключаем обновление экрана
'ТекстДляПоиска = InputBox("Введите криерий для удаления строк") ' удаляем строки с таким текстом
ТекстДляПоиска = "" ' удаляем пучтые строки
' перебираем все строки в используемом диапазоне листа
For Each ra In ActiveSheet.UsedRange.Rows
' если в строке найден искомый текст
If Not ra.Find(ТекстДляПоиска, , xlValues, xlPart) Is Nothing Then
' добавляем строку в диапазон для удаления
If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
End If
Next
' если подходящие строки найдены - удаляем их
If Not delra Is Nothing Then delra.EntireRow.Delete
End Sub


Он мне стёр все таблицы, и даже те которые удалять не надо было.

[СтаниславАВ]

Как заставить работать макрос с таблицей?
Спасибо.

[СтаниславАВ]

Попробовал прописать так:

Dim i As Integer
i = ActiveCell.Row - Range("Таблица2").Row + 1
Range("Таблица2").ListObject.ListRo ws(i).Delete

По прежнему не работает.

[СтаниславАВ]

Сообщение от СтаниславАВ

Попробовал прописать так:

Dim i As Integer
i = ActiveCell.Row - Range("Таблица2").Row + 1
Range("Таблица2").ListObject.ListRo ws(i).Delete

По прежнему не работает.

Dim i As Integer
i = Range("Расходы_товары").Row
Range("Расходы_товары").ListObject. ListRows(i).Delete

Так тоже не работат

[СтаниславАВ]

Сообщение от СтаниславАВ

Dim i As Integer
i = Range("Расходы_товары").Row
Range("Расходы_товары").ListObject. ListRows(i).Delete

Так тоже не работат

Нашёл файл. Попробую с ним поэкспериментировать.

[nilem]

Для примера из предпоследнего вложения попробуйте так ("Таблица2" на активном листе):

Sub AddRow()
    ListObjects("Таблица2").ListRows.Add
End Sub

Sub DelRow()
    With ListObjects("Таблица2")
        .ListRows(.ListRows.Count).Delete
    End With
End Sub