Удаление строки с условиями - Microsoft Office Excel

siv14 · 27.01.2015, 15:59

Добрый день!
Помогите решить мою проблему. Поискал на форуме, но не нашел ответа. Возможно удалить строку, если в ячейке будет значение (#ЗНАЧ!). Я ипользовал макрос с другого форума, но если я вместо текста вставляю это значение, то строки не удаляются.

text = "#ЗНАЧ!"
For Each ra In ActiveSheet.UsedRange.Rows
If Not ra.Find(text, , xlValues, xlPart) Is Nothing Then
If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
End If
Next
If Not delra Is Nothing Then delra.EntireRow.Delete

kuklp · 27.01.2015, 21:20

Скорей всего можно проще и быстрей, при помощи specialcells. Но нужно видеть пример.

IgorGO · 27.01.2015, 21:59

может так:

Код:

Sub DelErrorRows()
  ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete
End Sub

siv14 · 28.01.2015, 08:39

Цитата:

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

может так:

Спасибо IgorGO, то что надо.Отработала без ошибок.

27.01.2015, 15:59	#1
siv14 Регистрация: 25.01.2015 Сообщений: 5	Удаление строки с условиями Добрый день! Помогите решить мою проблему. Поискал на форуме, но не нашел ответа. Возможно удалить строку, если в ячейке будет значение (#ЗНАЧ!). Я ипользовал макрос с другого форума, но если я вместо текста вставляю это значение, то строки не удаляются. text = "#ЗНАЧ!" For Each ra In ActiveSheet.UsedRange.Rows If Not ra.Find(text, , xlValues, xlPart) Is Nothing Then If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra) End If Next If Not delra Is Nothing Then delra.EntireRow.Delete

27.01.2015, 21:20	#2
kuklp Участник клуба Регистрация: 02.05.2010 Сообщений: 1,390	Скорей всего можно проще и быстрей, при помощи specialcells. Но нужно видеть пример. mailto: kuklp60@gmail.com, ящики для благодарностей: WM Z206653985942, R334086032478, U238399322728

27.01.2015, 21:59	#3
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	может так: Код: `Sub DelErrorRows() ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete End Sub` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Удаление строки	Pilyla	Общие вопросы Delphi	2	19.04.2013 07:51
Удаление строки в C++.	Alifee	Помощь студентам	1	17.12.2011 02:52
Удаление элементов строки s2 из строки s1	Ueshua	Общие вопросы C/C++	4	20.12.2009 13:06
Как удалить пустые строки с условиями?	ru3000	Microsoft Office Excel	9	30.06.2009 00:13
Удаление строки	Minton87	Общие вопросы Delphi	4	07.05.2009 02:32