доделка макроса для удаления вместо скрытия строк по условию

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » доделка макроса для удаления вместо скрытия строк по условию (Excel)

вадим0101

Дата: Четверг, 14.07.2016, 23:04 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 10

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

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

Excel 2013

Добрый день, есть отлично работающий макрос но только ни как не могу добиться чтобы строки удалялись а не скрывались.
Если кто подскажет, буду благодарен.

[vba]

Код

Sub №1()
'
' №1 Макрос
'

'
Columns("F:H").Hidden = True
Columns("J:S").Hidden = True
Rows("1:7").Hidden = True
Dim cell As Range
Application.ScreenUpdating = False 'отключаем обновление экрана для ускорения
For Each cell In ActiveSheet.UsedRange.Rows(1).Cells 'проходим по всем ячейкам первой строки
If cell.Value = "*" Then cell.EntireColumn.Hidden = True 'если в ячейке x - скрываем столбец
Next
For Each cell In ActiveSheet.UsedRange.Columns(1).Cells 'проходим по всем ячейкам первого столбца
If cell.Value = "*" Then cell.EntireRow.Hidden = True 'если в ячейке x - скрываем строку
Next
Application.ScreenUpdating = True
End Sub

[/vba]

Сообщение отредактировал Pelena - Пятница, 15.07.2016, 14:39

Ответить

вадим0101

Дата: Четверг, 14.07.2016, 23:25 | Сообщение № 2

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

Ранг: Новичок

Сообщений: 10

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

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

Excel 2013

Друзья нашел тут же!
Работает вроде как надо

[vba]

Код

Sub deleteEmptyRows()
Dim x, i&, delRa As Range
x = Range("A1:A" & [a65535].End(xlUp).Row).Value
For i = 1 To UBound(x)
If x(i, 1) = "*" Then
If delRa Is Nothing Then
Set delRa = Cells(i, 1)
Else
Set delRa = Union(Cells(i, 1), delRa)
End If
End If
Next
If Not delRa Is Nothing Then delRa.EntireRow.Delete
End Sub

[/vba]

большое спасибо пользователю SkyPro
если есть замечания то скажите ваши комментарии.

Сообщение отредактировал Pelena - Пятница, 15.07.2016, 14:39

Ответить

RAN

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

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

Цитата вадим0101, 14.07.2016 в 23:04, в сообщении № 1

Если кто подскажет, буду благодарен.

Если вы заглянете в Правила, то обнаружите, как мало там того, что бы вы не нарушили.
Загляните, будем благодарны.

Быть или не быть, вот в чем загвоздка!

Ответить

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