Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Как при помощи VBA удалить все скрытые строки и столбцы ???
 
#1
29.04.2010 21:15:55
Как при помощи VBA удалить все скрытые строки и столбцы ???  
Кто сталкивался с проблемкой?
 
 
 
#2
29.04.2010 21:36:05
Public Sub asd()  
For Each r In ActiveSheet.Rows  
If r.Hidden Then r.Delete  
Next  
For Each c In ActiveSheet.Columns  
If c.Hidden Then c.Delete  
Next  
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#3
29.04.2010 21:39:46
Спасибо.  
Но как быть если на листе скрыто к примеру подряд несколько строк ????  
Ну например 2,3,4 - тогда этот макрос прийдется запускать ТРИ раза..  
А может как-то можно подправить.....?
 
 
 
#4
29.04.2010 21:50:02
Public Sub asd()  
r = ActiveSheet.UsedRange.Rows.Count  
c = ActiveSheet.UsedRange.Rows.Count  
For i = r To 1 Step -1  
If Rows(i).Hidden Then Rows(i).Delete  
Next  
For i = c To 1 Step -1  
If Columns(i).Hidden Then Columns(i).Delete  
Next  
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#5
29.04.2010 21:54:01
Попробуйте запустить цикл снизу вверх и справа налево
 
 
 
#6
29.04.2010 21:58:31
Юрий М, а как это будет выглядеть ?  
Я ума не приложу как это запустить задом -на перед....
 
 
 
#7
29.04.2010 22:05:35
Как раз так как написано 29.04.2010, 21:50
Я сам - дурнее всякого примера! ...
 
 
 
#8
29.04.2010 22:08:22
KuklP, спасибо!  
 
есть небольшая помарочка в строке "c = ActiveSheet.UsedRange.Rows.Count"  - там "Rows" - заменить на "Culumns"  ???  
 
А так все работает!
 
 
 
#9
29.04.2010 22:11:43
Все правильно, исправьте, спешил - на работу пора бежать.  
KuklP
 
 
 
Страницы: 1
Читают тему
Наверх