как удалить #Н/Д из диапазона?? - Microsoft Office Excel - Страница 2

SAS888 · 21.04.2009, 13:58

Тогда можно проще:

Код:

Range(Cells(2, "B"), Cells(Range("BD_in_syr_end").Row - 1, "IF")).Replace What:="#*", Replacement:="", LookAt:=xlPart

kievlyanin · 21.04.2009, 14:21

экспериментальным путем выясненено - цикл на порядок медленней чем Replace!!!!

так что если у кого возникнет такой же вопрос - пользуйтесь Replace!

... даже двойное удаление гораздо быстрее цикла! ..

При удалении "#" эксель самостоятельно меняет текст в ячейке на английский аналог .. зачем-то

.. т.е. Н/Д на Н/А , а ССЫЛКА! на REF! .. с остальными наверно так же .. но это не проблема- после удаления "#" Replace прекрасно с ними справляется.

П.С.

Range(Cells(2, "B"), Cells(Range("BD_in_syr_end").Row - 1, "IF")).Replace What:="#*", Replacement:="", LookAt:=xlPart

действительно проще!

.. удаляет с первого раза!

хотя чем "#*" лучше "#Н/Д" х.з.

kievlyanin · 21.04.2009, 14:53

не ! вы таки будете смеятся, но вот в чем дело!

Range(Cells(2, "B"), Cells(Range("BD_in_syr_end").Row - 1, "IF")).Replace What:="#N/A", Replacement:="", LookAt:=xlPart

у мня в ячейке ТЕКСТ!! КИРИЛИЦЕЙ!!! - "#Н/Д" а в коде на удаление надо писать "#N/A"

и тогда удаляет без проблем!

21.04.2009, 13:58	#11
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Тогда можно проще: Код: `Range(Cells(2, "B"), Cells(Range("BD_in_syr_end").Row - 1, "IF")).Replace What:="#*", Replacement:="", LookAt:=xlPart` Чем шире угол зрения, тем он тупее.

21.04.2009, 14:21	#12
kievlyanin Форумчанин Регистрация: 21.04.2008 Сообщений: 110	экспериментальным путем выясненено - цикл на порядок медленней чем Replace!!!! так что если у кого возникнет такой же вопрос - пользуйтесь Replace! ... даже двойное удаление гораздо быстрее цикла! .. При удалении "#" эксель самостоятельно меняет текст в ячейке на английский аналог .. зачем-то .. т.е. Н/Д на Н/А , а ССЫЛКА! на REF! .. с остальными наверно так же .. но это не проблема- после удаления "#" Replace прекрасно с ними справляется. П.С. Range(Cells(2, "B"), Cells(Range("BD_in_syr_end").Row - 1, "IF")).Replace What:="#", Replacement:="", LookAt:=xlPart действительно проще! .. удаляет с первого раза! хотя чем "#" лучше "#Н/Д" х.з. Последний раз редактировалось kievlyanin; 21.04.2009 в 14:25.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как удалить страницу	prosto_i	Microsoft Office Excel	2	31.03.2009 11:48
Как определить номер строки верхней левой ячейки диапазона	Porog	Microsoft Office Excel	8	09.05.2008 08:37
Как удалить файлы.	Борис2	Паскаль, Turbo Pascal, PascalABC.NET	3	15.12.2007 16:00
Как удалить файл	dagarik	Общие вопросы Delphi	9	05.12.2007 20:25
как удалить анти вирус( касперский 2006)если она не работает и ее не возможно удалить	Alar	Общие вопросы Delphi	0	29.10.2006 21:36

21.04.2009, 14:53	#13
kievlyanin Форумчанин Регистрация: 21.04.2008 Сообщений: 110	не ! вы таки будете смеятся, но вот в чем дело! Range(Cells(2, "B"), Cells(Range("BD_in_syr_end").Row - 1, "IF")).Replace What:="#N/A", Replacement:="", LookAt:=xlPart у мня в ячейке ТЕКСТ!! КИРИЛИЦЕЙ!!! - "#Н/Д" а в коде на удаление надо писать "#N/A" и тогда удаляет без проблем!