How to remove hyperlinks without removing formatting?
In Excel, when we delete the hyperlinks which have some formatting, such as background color, font, size and so on, the formatting will be removed as well as following screenshot shown. But, sometimes, we need to keep the cell formatting when removing the hyperlinks. Are there any ways to help us to solve this annoyed problem?
In Excel, there is no direct way to deal with this task, but you can apply the following VBA code to preserve the cell formatting when removing hyperlinks.
1. Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.
2. Click Insert > Module, and paste the following code in the Module Window.
VBA code: Remove hyperlinks without removing formatting
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
Set TempRng = TempRng.Resize(Rng.Rows.Count, Rng.Columns.Count)
3. Then press F5 key to run this code, and a prompt box will pop out to remind you selecting the cells which contains the hyperlinks, see screenshot:
4. And then click OK to close the dialog, the hyperlinks are removed, but the formatting of the hyperlinks (including the underlines) is remained.
Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
More than 300 powerful features. Supports Office/Excel
2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features
30-day free trial. 60-day money back guarantee.