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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » удаление последних строк в таблице (Макросы/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)
 
Ответить
СообщениеДобрый день,форумчане.
Подскажите, как преобразовать код. Есть таблица, количество строк в которой меняется.Нужно удалить три последние строчки (значения есть только столбцах С 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
Группа: Проверенные
Ранг: Ветеран
Сообщений: 504
Репутация: 90 ±
Замечаний: 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
Группа: Авторы
Ранг: Старожил
Сообщений: 1612
Репутация: 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]


Яндекс.Деньги 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
Группа: Пользователи
Ранг: Участник
Сообщений: 87
Репутация: 1 ±
Замечаний: 0% ±

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

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

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

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

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

Автор - _Igor_61
Дата добавления - 02.08.2019 в 14:47
mihabuba7 Дата: Вторник, 15.02.2022, 21:08 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

miha_, Я понимаю дело старое, Но задача та же. Если помнишь, как решил проблему с удалением нужной строки.
 
Ответить
Сообщениеmiha_, Я понимаю дело старое, Но задача та же. Если помнишь, как решил проблему с удалением нужной строки.

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

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