Як видалити гіперпосилання без видалення форматування?

У Excel, коли ми видаляємо гіперпосилання, які мають певне форматування, наприклад, колір тла, шрифт, розмір тощо, форматування буде видалено, а також наступний знімок екрана. Але, іноді, нам потрібно зберегти форматування комірки, видаляючи гіперпосилання. Чи є способи допомогти нам вирішити цю роздратовану проблему?

Видаліть гіперпосилання, не видаляючи форматування за допомогою коду VBA

Видаліть гіперпосилання, не видаляючи форматування за допомогою коду VBA

В Excel немає прямого способу вирішити це завдання, але ви можете застосувати наступний код VBA для збереження форматування комірки під час видалення гіперпосилань.

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.

2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Код 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?