удалить последнюю строку таблицы VBA - Microsoft Office Excel

johny_03 · 19.04.2011, 15:09

Добрый день!
Как на VBA удалить последнюю строку таблицы? Точнее нужно удалить последние ячейки столбцов C;D;E

Код:

Rows("47:47").Select
    Selection.Delete Shift:=xlUp

Такой метод не подходит, потому-что номер последней строки постоянно меняется

Заранее огромное спасибо!

R Dmitry · 19.04.2011, 15:31

Цитата:

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

Добрый день!
Как на VBA удалить последнюю строку таблицы? Точнее нужно удалить последние ячейки столбцов C;D;E

Код:

Rows("47:47").Select
    Selection.Delete Shift:=xlUp

Такой метод не подходит, потому-что номер последней строки постоянно меняется

Заранее огромное спасибо!

А как вы определяете последнюю строку (по каким признакам) ?, и удалять надо всю строку или все же диапазон с каким то сдвигом ?

R Dmitry · 19.04.2011, 15:36

Код:

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

удалит последнюю заполненную строку, если данные находятся в столбце А

johny_03 · 19.04.2011, 15:40

В том-то и дело, что я не знаю как определить последнюю строку. Удалить можно всю строку, там всё-равно кроме 4-х ячеек в строке ничего нет. Вот пример в файле. В этом нужно удалить 40-ю строку. А если будет залита другая таблица такой же структуры, то, соответственно, номер последней строки поменяется

johny_03 · 19.04.2011, 16:22

Вопрос снят, разобрался.

R Dmitry · 19.04.2011, 16:24

Цитата:

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

В том-то и дело, что я не знаю как определить последнюю строку. Удалить можно всю строку, там всё-равно кроме 4-х ячеек в строке ничего нет. Вот пример в файле. В этом нужно удалить 40-ю строку. А если будет залита другая таблица такой же структуры, то, соответственно, номер последней строки поменяется

цифра 3 означает № столбца по которому будет определена последняя заполненная строка

Код:

Rows(Cells(Rows.Count, 3).End(xlUp).Row).Delete

19.04.2011, 15:09	#1
johny_03 Форумчанин Регистрация: 21.01.2011 Сообщений: 134	удалить последнюю строку таблицы VBA Добрый день! Как на VBA удалить последнюю строку таблицы? Точнее нужно удалить последние ячейки столбцов C;D;E Код: `Rows("47:47").Select Selection.Delete Shift:=xlUp` Такой метод не подходит, потому-что номер последней строки постоянно меняется Заранее огромное спасибо! Последний раз редактировалось johny_03; 19.04.2011 в 15:26.

19.04.2011, 15:36	#3
R Dmitry Форумчанин Регистрация: 07.03.2010 Сообщений: 796	Код: `Rows(Cells(Rows.Count, 1).End(xlUp).Row).Delete` удалит последнюю заполненную строку, если данные находятся в столбце А Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Копировать строку фильтрованного списка в другую книгу, на последнюю пустую строку	Gvaridos	Microsoft Office Excel	11	24.11.2010 00:48
Как считать последнюю строку ?	Katmai	Общие вопросы Delphi	13	27.07.2010 20:49
Удалить строку таблицы	Aleksandr	БД в Delphi	12	16.03.2010 11:31
Как найти последнюю строку Листа?	Stilet	Microsoft Office Excel	6	13.10.2009 14:33
Удалить последнюю строку из файла	Flame_of_Death	Помощь студентам	6	21.07.2009 13:48

19.04.2011, 16:22	#5
johny_03 Форумчанин Регистрация: 21.01.2011 Сообщений: 134	Вопрос снят, разобрался.