Удалить строки по условию - Microsoft Office Excel

kss · 19.12.2012, 04:51

Всем привет!
Люди помогите переделать код:
Sub скрыть_строки()
Application.ScreenUpdating = False
Range("C11").Select 'устанавливаем фокус на ячейку
Do While ActiveCell.Value <> "1" 'пока активная ячейка не равна 1
If (IsEmpty(ActiveCell.Offset(0, 3)) Or ActiveCell.Offset(0, 3).Value = 0) _
Then 'проверяем пусто ли в тетьем столбце,
Selection.EntireRow.Hidden = True 'если да, то скрываем строки, а мне надо их удалить
End If
ActiveCell.Offset(1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub
Нужно чтобы пустые строки после выполнения условий не скрывались, а удалялись?

kuklp · 19.12.2012, 06:37

Замените Hidden = True на delete. Но цикл в таком случае должен идти снизу вверх.

kss · 19.12.2012, 18:34

Через delete я пробовал, строки почему-то удаляются через одну или "как попало"?

kuklp · 19.12.2012, 20:46

Вы внимательно читали?

Цитата:

Сообщение от kuklp

Но цикл в таком случае должен идти снизу вверх.

The_Prist · 20.12.2012, 08:13

Как удалить строки по условию?

19.12.2012, 04:51	#1
kss Пользователь Регистрация: 23.04.2012 Сообщений: 12	Удалить строки по условию Всем привет! Люди помогите переделать код: Sub скрыть_строки() Application.ScreenUpdating = False Range("C11").Select 'устанавливаем фокус на ячейку Do While ActiveCell.Value <> "1" 'пока активная ячейка не равна 1 If (IsEmpty(ActiveCell.Offset(0, 3)) Or ActiveCell.Offset(0, 3).Value = 0) _ Then 'проверяем пусто ли в тетьем столбце, Selection.EntireRow.Hidden = True 'если да, то скрываем строки, а мне надо их удалить End If ActiveCell.Offset(1, 0).Select Loop Application.ScreenUpdating = True End Sub Нужно чтобы пустые строки после выполнения условий не скрывались, а удалялись?

19.12.2012, 06:37	#2
kuklp Участник клуба Регистрация: 02.05.2010 Сообщений: 1,390	Замените Hidden = True на delete. Но цикл в таком случае должен идти снизу вверх. mailto: kuklp60@gmail.com, ящики для благодарностей: WM Z206653985942, R334086032478, U238399322728 Последний раз редактировалось kuklp; 19.12.2012 в 06:42.

20.12.2012, 08:13	#5
The_Prist Участник клуба Регистрация: 17.07.2009 Сообщений: 1,088	Как удалить строки по условию? WebMoney - R298726502453; Яндекс.Деньги - 41001332272872 www.excel-vba.ru

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
объединить строки по условию	Volodymyr	Microsoft Office Excel	2	22.08.2012 12:41
Скрыть или удалить лист по условию	kzld	Microsoft Office Excel	2	05.04.2011 11:29
удаление строки по условию	avmarafon	Microsoft Office Excel	2	08.01.2011 23:52
Даны строки S и S0. Удалить из строки S все подстроки, совпадающие с S0 . Если совпадающих подстрок нет,	Шпунюся	Помощь студентам	1	16.12.2010 21:02
Окрашивание строки по условию	legion-mia	Microsoft Office Excel	5	10.09.2009 09:11

19.12.2012, 18:34	#3
kss Пользователь Регистрация: 23.04.2012 Сообщений: 12	Через delete я пробовал, строки почему-то удаляются через одну или "как попало"?