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

Вход

Регистрация

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

 

= Мир MS Excel/Стереть нижнюю заполненную строку (в опред. листах) - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Стереть нижнюю заполненную строку (в опред. листах) (Макросы/Sub)
Стереть нижнюю заполненную строку (в опред. листах)
stalber Дата: Понедельник, 07.10.2019, 21:54 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 268
Репутация: 7 ±
Замечаний: 0% ±

Excel 2007
Добрый вечер, подскажите пожалуйста.

Есть эксель файл, в нём 30 листов, мне необходимо стереть нижнюю строку во всех листах с 7-ого по 25-ый лист (если считать листы слева направо).

Безусловно можно выделить листы с помощью SHIFT и стереть нижнюю строку, но это долго, так проделывать. Мне нужно: образно нажал 1 раз на кнопку и стёрлись нижние строки, нажал 2-ой раз на кнопку и стёрлись снова нижние строки.


Сообщение отредактировал stalber - Понедельник, 07.10.2019, 21:57
 
Ответить
СообщениеДобрый вечер, подскажите пожалуйста.

Есть эксель файл, в нём 30 листов, мне необходимо стереть нижнюю строку во всех листах с 7-ого по 25-ый лист (если считать листы слева направо).

Безусловно можно выделить листы с помощью SHIFT и стереть нижнюю строку, но это долго, так проделывать. Мне нужно: образно нажал 1 раз на кнопку и стёрлись нижние строки, нажал 2-ой раз на кнопку и стёрлись снова нижние строки.

Автор - stalber
Дата добавления - 07.10.2019 в 21:54
K-SerJC Дата: Вторник, 08.10.2019, 08:52 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 469
Репутация: 83 ±
Замечаний: 0% ±

Excel 2013
так можно
[vba]
Код
Sub delLastRow()
Dim stSh, spSh, lR, f
stSh = 7
spSh = 25
If ThisWorkbook.Sheets.Count < stSh Then Exit Sub
If ThisWorkbook.Sheets.Count < spSh Then spSh = ThisWorkbook.Sheets.Count
For f = stSh To spSh
lR = ThisWorkbook.Sheets(f).Cells(Rows.Count, 1).End(xlUp).Row
ThisWorkbook.Sheets(f).Rows(lR).ClearContents
Next f
End Sub
[/vba]


Благими намерениями выстелена дорога в АД.

Сообщение отредактировал K-SerJC - Вторник, 08.10.2019, 08:53
 
Ответить
Сообщениетак можно
[vba]
Код
Sub delLastRow()
Dim stSh, spSh, lR, f
stSh = 7
spSh = 25
If ThisWorkbook.Sheets.Count < stSh Then Exit Sub
If ThisWorkbook.Sheets.Count < spSh Then spSh = ThisWorkbook.Sheets.Count
For f = stSh To spSh
lR = ThisWorkbook.Sheets(f).Cells(Rows.Count, 1).End(xlUp).Row
ThisWorkbook.Sheets(f).Rows(lR).ClearContents
Next f
End Sub
[/vba]

Автор - K-SerJC
Дата добавления - 08.10.2019 в 08:52
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Стереть нижнюю заполненную строку (в опред. листах) (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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