Как одним махом удалить все гиперссылки из большого массива?

Сергей

Гость

28.10.2007 23:59:35

Добрый день.
Есть столбец из примерно 4000 текстовых строк. Большинство ячеек яв ляются гиперссылкамию
Вопрос: как с помощью стандартных функций или с помощью макросов удалить сразу все ссылки.

Я пробовал записывать макрос, получается следуюшее:
Range("C19").Select
Selection.Hyperlinks.Delete
Range("C20").Select
Selection.Hyperlinks.Delete
Range("C21").Select...

Вопрос, как переписать этот макрос, чтобы он сам зацикливался от C1 до С4000 например. При этом, чтобы не глючил, если в какой-то ячейке гиперссылки нет.

Заранее благодарю за помощь.
Сергей

Ister Гость	#2 29.10.2007 07:22:28 Sub ds() Selection.Hyperlinks.Delete End Sub выделяешь нужные ячейки - запускаешь макрос

genyaa Пользователь Сообщений: 296 Регистрация: 01.01.1970	#3 29.10.2007 07:29:43 Sub DelAllHyperlinksInSelection() 'удалит все гиперссылки в выделенной области Selection.Hyperlinks.Delete End Sub

Сергей Гость	#4 29.10.2007 12:48:57 Спасибо, братцы. Все ништяк получилось :):):)

Читают тему