Стереть нижнюю заполненную строку (в опред. листах)

Вход

Регистрация

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

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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

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

Стереть нижнюю заполненную строку (в опред. листах)

stalber

Дата: Понедельник, 07.10.2019, 21:54 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 369

Репутация: 7 ±

Замечаний: 40% ±

Excel 2021

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

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

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

Сообщение отредактировал stalber - Понедельник, 07.10.2019, 21:57

Ответить

K-SerJC

Дата: Вторник, 08.10.2019, 08:52 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

Репутация: 86 ±

Замечаний: 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

Ответить

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

Страница 1 из 1
1