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

Вход

Регистрация

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

 

= Мир MS Excel/Очистить нижнюю строку - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Очистить нижнюю строку (Макросы/Sub)
Очистить нижнюю строку
stalber Дата: Понедельник, 19.12.2022, 12:16 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 347
Репутация: 7 ±
Замечаний: 40% ±

Excel 2007
Здравствуйте, подскажите пожалуйста код.

Ищем в Лист1, в столбце A, самую нижнюю заполненную строку, из примера эта строка 12
Нужно в определённых листах стереть, например лист1 лист2 лист3 строку 12
К сообщению приложен файл: niznjaja.xlsx(11.3 Kb)
 
Ответить
СообщениеЗдравствуйте, подскажите пожалуйста код.

Ищем в Лист1, в столбце A, самую нижнюю заполненную строку, из примера эта строка 12
Нужно в определённых листах стереть, например лист1 лист2 лист3 строку 12

Автор - stalber
Дата добавления - 19.12.2022 в 12:16
Паштет Дата: Понедельник, 19.12.2022, 12:39 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 147
Репутация: 5 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код

With Sheets(1) 'вместо 1 номер листа или в кавычках имя листа
    iLastRow = .Cells(Rows.Count, 1).End(xlUp).Row  'определяем номер последней заполненной строки в 1 столбце
    .Rows(iLastRow).Delete Shift:=xlUp   'удаляем найденную строчку
End With
[/vba]


Сообщение отредактировал Паштет - Понедельник, 19.12.2022, 12:42
 
Ответить
Сообщение[vba]
Код

With Sheets(1) 'вместо 1 номер листа или в кавычках имя листа
    iLastRow = .Cells(Rows.Count, 1).End(xlUp).Row  'определяем номер последней заполненной строки в 1 столбце
    .Rows(iLastRow).Delete Shift:=xlUp   'удаляем найденную строчку
End With
[/vba]

Автор - Паштет
Дата добавления - 19.12.2022 в 12:39
stalber Дата: Понедельник, 19.12.2022, 12:47 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 347
Репутация: 7 ±
Замечаний: 40% ±

Excel 2007
А названия листов где прописать? Нужно лишь определённые листы, не все.
У меня листы с названиями jabloki apelsini


Сообщение отредактировал stalber - Понедельник, 19.12.2022, 12:48
 
Ответить
СообщениеА названия листов где прописать? Нужно лишь определённые листы, не все.
У меня листы с названиями jabloki apelsini

Автор - stalber
Дата добавления - 19.12.2022 в 12:47
Паштет Дата: Понедельник, 19.12.2022, 13:19 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 147
Репутация: 5 ±
Замечаний: 0% ±

Excel 2010
В первой строке:
[vba]
Код
With Sheets("jabloki")
[/vba]
 
Ответить
СообщениеВ первой строке:
[vba]
Код
With Sheets("jabloki")
[/vba]

Автор - Паштет
Дата добавления - 19.12.2022 в 13:19
stalber Дата: Понедельник, 19.12.2022, 13:33 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 347
Репутация: 7 ±
Замечаний: 40% ±

Excel 2007
А названия листов где прописать? Нужно лишь в определённых листах очистить строку, не во всех. ?
 
Ответить
СообщениеА названия листов где прописать? Нужно лишь в определённых листах очистить строку, не во всех. ?

Автор - stalber
Дата добавления - 19.12.2022 в 13:33
Паштет Дата: Понедельник, 19.12.2022, 13:51 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 147
Репутация: 5 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
With Sheets("jabloki")    ' в кавычках указано название вашего листа
[/vba]
Должно получаться так:
[vba]
Код
With Sheets("jabloki")   'яблоки
    iLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
    .Rows(iLastRow).Delete Shift:=xlUp
End With
With Sheets("apelsini")      'апельсины
    iLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
    .Rows(iLastRow).Delete Shift:=xlUp
End With
[/vba]


Сообщение отредактировал Паштет - Понедельник, 19.12.2022, 13:53
 
Ответить
Сообщение[vba]
Код
With Sheets("jabloki")    ' в кавычках указано название вашего листа
[/vba]
Должно получаться так:
[vba]
Код
With Sheets("jabloki")   'яблоки
    iLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
    .Rows(iLastRow).Delete Shift:=xlUp
End With
With Sheets("apelsini")      'апельсины
    iLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
    .Rows(iLastRow).Delete Shift:=xlUp
End With
[/vba]

Автор - Паштет
Дата добавления - 19.12.2022 в 13:51
stalber Дата: Понедельник, 19.12.2022, 14:08 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 347
Репутация: 7 ±
Замечаний: 40% ±

Excel 2007
Подскажите пожалуйста как запустить этот код?
Я нажал F11 - insert - module - добавил туда этот код - зашёл в макросы но там пусто.
 
Ответить
СообщениеПодскажите пожалуйста как запустить этот код?
Я нажал F11 - insert - module - добавил туда этот код - зашёл в макросы но там пусто.

Автор - stalber
Дата добавления - 19.12.2022 в 14:08
Паштет Дата: Понедельник, 19.12.2022, 14:23 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 147
Репутация: 5 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub DelStr()
With Sheets("jabloki")   'яблоки
    iLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
    .Rows(iLastRow).Delete Shift:=xlUp
End With
With Sheets("apelsini")      'апельсины
    iLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
    .Rows(iLastRow).Delete Shift:=xlUp
End With
End sub
[/vba]
Макросу нужно было дать название.
 
Ответить
Сообщение[vba]
Код
Sub DelStr()
With Sheets("jabloki")   'яблоки
    iLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
    .Rows(iLastRow).Delete Shift:=xlUp
End With
With Sheets("apelsini")      'апельсины
    iLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
    .Rows(iLastRow).Delete Shift:=xlUp
End With
End sub
[/vba]
Макросу нужно было дать название.

Автор - Паштет
Дата добавления - 19.12.2022 в 14:23
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Очистить нижнюю строку (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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