Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/удаление последних строк в таблице - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » удаление последних строк в таблице (Макросы/Sub)
удаление последних строк в таблице
miha_ Дата: Четверг, 01.08.2019, 09:46 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 75
Репутация: 0 ±
Замечаний: 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)
 
Ответить
СообщениеДобрый день,форумчане.
Подскажите, как преобразовать код. Есть таблица, количество строк в которой меняется.Нужно удалить три последние строчки (значения есть только столбцах С D)
С помощью кода
[vba]
Код
Sub Макрос1()   
Dim iLastRow As Long   
iLastRow = Cells(Rows.Count,2).End(xlUp).Row   
cells(iLastRow+1,2).Select   
End Sub
[/vba] нахожу последнюю строку, а как удалить не знаю. Спасибо за помощь.

Автор - miha_
Дата добавления - 01.08.2019 в 09:46
_Igor_61 Дата: Четверг, 01.08.2019, 16:19 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 337
Репутация: 69 ±
Замечаний: 0% ±

Excel 2007
[vba]
Код
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 2).End(xlUp).Row
Rows(iLastRow & ":" & iLastRow + 3).Delete
[/vba]
 
Ответить
Сообщение[vba]
Код
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 2).End(xlUp).Row
Rows(iLastRow & ":" & iLastRow + 3).Delete
[/vba]

Автор - _Igor_61
Дата добавления - 01.08.2019 в 16:19
nilem Дата: Четверг, 01.08.2019, 17:43 | Сообщение № 3
Группа: Авторы
Ранг: Старожил
Сообщений: 1519
Репутация: 528 ±
Замечаний: 0% ±

Excel 2013
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]


Яндекс.Деньги 4100159601573
 
Ответить
Сообщение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]

Автор - nilem
Дата добавления - 01.08.2019 в 17:43
miha_ Дата: Пятница, 02.08.2019, 14:33 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 75
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
nilem, добрый день. Спасибо, всё отлично.
 
Ответить
Сообщениеnilem, добрый день. Спасибо, всё отлично.

Автор - miha_
Дата добавления - 02.08.2019 в 14:33
miha_ Дата: Пятница, 02.08.2019, 14:34 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 75
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
_Igor_61, добрый день. Спасибо за помощь. Код немного некорректно работает. Удаляет одну лишнюю строчку.
 
Ответить
Сообщение_Igor_61, добрый день. Спасибо за помощь. Код немного некорректно работает. Удаляет одну лишнюю строчку.

Автор - miha_
Дата добавления - 02.08.2019 в 14:34
_Igor_61 Дата: Пятница, 02.08.2019, 14:47 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 337
Репутация: 69 ±
Замечаний: 0% ±

Excel 2007
iLastRow + 3 замените на iLastRow + 2
 
Ответить
СообщениеiLastRow + 3 замените на iLastRow + 2

Автор - _Igor_61
Дата добавления - 02.08.2019 в 14:47
Мир MS Excel » Вопросы и решения » Вопросы по VBA » удаление последних строк в таблице (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!