удаление последних строк в таблице

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

удаление последних строк в таблице (Макросы/Sub)

miha_

Дата: Четверг, 01.08.2019, 09:46 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 87

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Добрый день,форумчане.
Подскажите, как преобразовать код. Есть таблица, количество строк в которой меняется.Нужно удалить три последние строчки (значения есть только столбцах С D)
С помощью кода
[vba]

Код

Sub Макрос1()
Dim iLastRow As Long
iLastRow = Cells(Rows.Count,2).End(xlUp).Row
cells(iLastRow+1,2).Select
End Sub

[/vba] нахожу последнюю строку, а как удалить не знаю. Спасибо за помощь.

К сообщению приложен файл: 2783860.xlsx (8.5 Kb)

Ответить

_Igor_61

Дата: Четверг, 01.08.2019, 16:19 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 504

Репутация: 90 ±

Замечаний: 0% ±

Excel 2007

[vba]

Код

Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 2).End(xlUp).Row
Rows(iLastRow & ":" & iLastRow + 3).Delete

[/vba]

Ответить

nilem

Дата: Четверг, 01.08.2019, 17:43 | Сообщение № 3

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

miha_, привет
попробуйте так:
[vba]

Код

Sub Макрос1()
Dim iLastRow As Long, lrD&
iLastRow = Cells(Rows.Count, 2).End(xlUp).Row
lrD = Cells(Rows.Count, 4).End(xlUp).Row ' посл. строка по ст. D
If iLastRow = lrD Then Exit Sub

'Range(Cells(iLastRow + 1, 1), Cells(lrD, 1)).Select
Range(Cells(iLastRow + 1, 1), Cells(lrD, 1)).EntireRow.Delete
End Sub

[/vba]