Макрос выборочного удаления ссылок в excel

[AEL7]

Здравствуйте!

Подскажите пожалуйста: есть задача в однотипных документах удалять не все ссылки (с макросом удаления всех ссылок все понятно), а по конкретным критериям:

- удалять начиная со 2-го листа (1-й не трогать)
- на остальных листах (их может быть произвольное количество) удалять все гиперссылки, начиная со 2-й строки (в 1-й строке ссылку сохраняем). Все гиперссылки находятся в столбце А.

Заранее спасибо за помощь или советы!

[EducatedFool]

Этот макрос удалит только гиперссылки (значения в ячейках останутся)

Sub УдалениеГиперссылок()
    Dim sh As Worksheet: Application.ScreenUpdating = False
    For Each sh In ActiveWorkbook.Worksheets    ' перебираем все листы
        If sh.Index > 1 Then    ' если лист не первый
            ' удаляем все гиперссылки в столбце A, начиная со второй строки
            sh.Range("a2:a" & sh.Rows.Count).Hyperlinks.Delete
        End If
    Next sh
End Sub

[AEL7]

Спасибо большое за помощь!

Макрос отлично работает, но возникла дополнительная сложность: часто ячейки, в которых находится гиперссылка объеденные (т.е. вся строка объединена в одну ячейку), из-за чего excel 2003 ругается. Реально ли убирать объединение, удалять ссылку, а потом всю строку еще раз объединять?

Еще раз спасибо!

С уважением,
Александр

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

Этот макрос удалит только гиперссылки (значения в ячейках останутся)

Sub УдалениеГиперссылок()
    Dim sh As Worksheet: Application.ScreenUpdating = False
    For Each sh In ActiveWorkbook.Worksheets    ' перебираем все листы
        If sh.Index > 1 Then    ' если лист не первый
            ' удаляем все гиперссылки в столбце A, начиная со второй строки
            sh.Range("a2:a" & sh.Rows.Count).Hyperlinks.Delete
        End If
    Next sh
End Sub

[VictorM]

Объединенные ячейки в рабочей таблице - зло!!!

[AEL7]

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

Объединенные ячейки в рабочей таблице - зло!!!

Конечно согласен, но файлы поступают уже готовые... Поэтому если есть возможность модифицировать макрос - подскажите пожалуйста!

Заранее спасибо.

[Казанский]

> часто ячейки, в которых находится гиперссылка объеденные (т.е. вся строка объединена в одну ячейку), из-за чего excel 2003 ругается

В 2007 ругани не заметил, но и гиперссылка не удаляется. Так - удаляется:

sh.range("A2",cells(rows.Count ,columns.Count)).Hyperlinks.Delete

[AEL7]

Сообщение от Казанский

> часто ячейки, в которых находится гиперссылка объеденные (т.е. вся строка объединена в одну ячейку), из-за чего excel 2003 ругается

В 2007 ругани не заметил, но и гиперссылка не удаляется. Так - удаляется:

sh.range("A2",cells(rows.Count ,columns.Count)).Hyperlinks.Delete

К сожалению, excel 2003 также выдает "Run-time error '1004': Изменить часть объединенной ячейки невозможно"

[AEL7]

Добавил MergeCells = False, в таком виде в excel 2003 заработало:

Sub Del()
Dim sh As Worksheet: Application.ScreenUpdating = False
For Each sh In ActiveWorkbook.Worksheets
If sh.Index > 1 Then
sh.Range("a2:a" & sh.Rows.Count).MergeCells = False
sh.Range("a2:a" & sh.Rows.Count).Hyperlinks.Delete
End If
Next sh
End Sub

Вопрос: можно ли поставить проверку содержит ли ячейка гиперссылку, а уже потом делать с ней MergeCells = False, Hyperlinks.Delete и обратно MergeCells = True? Будет ли это корректно?

Всем спасибо большое!

[Казанский]

А можно пример листа с гиперссылкой в объединенной ячейке, на котором команда

sh.Range("a2:a" & sh.Rows.Count).Hyperlinks.Delete

выдает ошибку?
В Excel 2000 я тоже не могу получить ошибку.

[AEL7]

Сообщение от Казанский

А можно пример листа с гиперссылкой в объединенной ячейке, на котором команда

sh.Range("a2:a" & sh.Rows.Count).Hyperlinks.Delete

выдает ошибку?
В Excel 2000 я тоже не могу получить ошибку.

посмотрите пожалуйста аттач.
Спасибо!