удаление пустых страниц

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

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

удаление пустых страниц (Макросы Sub)

basket

Дата: Четверг, 19.09.2013, 10:34 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

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

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

Excel 2010

ДОбрый день.
Имеем шаблон документа. Шаблон сделан на 70 страниц. После того, как данные перешли в шаблон, я вручную удаляю незаполненные страницы (заполнил 10, а оставшиеся 60 страниц удаляем вручную).
Возможно ли удалять пустрые страницы автоматом?
Или наоборот автоматически создать нужное количество мне страниц?

Ответить

basket

Дата: Четверг, 19.09.2013, 11:13 | Сообщение № 2

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

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

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

Excel 2010

excell 2010

Ответить

SkyPro

Дата: Четверг, 19.09.2013, 11:23 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

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

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

2010

[vba]

Код

Sub delsh()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim sh As Worksheet
       For Each sh In ThisWorkbook.Worksheets
           If sh.UsedRange.Address = "$A$1" _
           And sh.[a1].Value = "" _
           And sh.[a1].Formula = "" Then
               sh.Delete
           End If
       Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

[/vba]
Удалит абсолютно пустые листы.
Если у вас там уже есть какие-либо данные (и вы считаете лист с шапкой, форматированием и т.д. пустым), тогда выкладывайте файл.
Или "признак" пустого листа.

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Четверг, 19.09.2013, 11:32

Ответить

Pelena

Дата: Четверг, 19.09.2013, 11:36 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19409

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

Замечаний: ±

Excel 365 & Mac Excel

Цитата (basket, 19.09.2013 в 10:34, в сообщении № 1)

Или наоборот автоматически создать нужное количество мне страниц?

Похожая тема

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

KuklP

Дата: Четверг, 19.09.2013, 11:42 | Сообщение № 5

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Можно еще так:
[vba]

Код

For Each sh In ThisWorkbook.Worksheets
If Not IsNull(sh.UsedRange.Text) And Len(sh.UsedRange.Text) = 0 Then sh.Delete
Next

[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

SkyPro

Дата: Четверг, 19.09.2013, 11:54 | Сообщение № 6

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

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

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

2010

Цитата (KuklP, 19.09.2013 в 11:42, в сообщении № 6)

Можно еще так:

Если на листе будут присутствовать формулы, возвращающие "", то лист все равно удалит.

ЗЫ: Правда и мой макрос не идеален. Пустой лист с обьектами он удалит.
Может есть какой-либо универсальный способ проверить лист на "девственность" ?

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Четверг, 19.09.2013, 12:12

Ответить

удаление пустых страниц (Макросы Sub)

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