Как убрать гиперссылки без снятия форматирования?
В Excel, когда мы удаляем гиперссылки, которые имеют некоторое форматирование, такое как цвет фона, шрифт, размер и т. Д., Форматирование будет удалено, как и показанный ниже снимок экрана. Но иногда нам нужно сохранить форматирование ячейки при удалении гиперссылок. Есть ли способы помочь нам решить эту досадную проблему?
 |
 |
 |
Удалить гиперссылки без удаления форматирования с помощью кода VBA
Удалить гиперссылки без удаления форматирования с помощью кода VBA
В Excel нет прямого способа справиться с этой задачей, но вы можете применить следующий код VBA, чтобы сохранить форматирование ячеек при удалении гиперссылок.
1. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.
2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.
Код VBA: удалить гиперссылки без удаления форматирования
Sub RemoveHlinks()
'Update 20141024
Dim Rng As Range
Dim WorkRng As Range
Dim TempRng As Range
Dim UsedRng As Range
Dim xLink As Hyperlink
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set UsedRng = Application.ActiveSheet.UsedRange
For Each xLink In WorkRng.Hyperlinks
Set TempRng = Cells(1, UsedRng.Column + UsedRng.Columns.Count)
Set Rng = xLink.Range
Rng.Copy TempRng
Rng.ClearHyperlinks
Set TempRng = TempRng.Resize(Rng.Rows.Count, Rng.Columns.Count)
TempRng.Copy
Rng.PasteSpecial xlPasteFormats
TempRng.Clear
Next
End Sub
3. Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится диалоговое окно, напоминающее вам о выборе ячеек, содержащих гиперссылки, см. снимок экрана:
4, Затем нажмите OK чтобы закрыть диалоговое окно, гиперссылки удаляются, но форматирование гиперссылок (включая подчеркивания) сохраняется.
Статьи по теме:
Как изменить сразу несколько путей гиперссылок в Excel?
Как извлечь актуальные адреса из гиперссылок в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
