フォーマットを削除せずにハイパーリンクを削除するにはどうすればよいですか？

Excelで、背景色、フォント、サイズなどの書式が設定されているハイパーリンクを削除すると、次のスクリーンショットと同様に書式が削除されます。 ただし、ハイパーリンクを削除するときにセルの書式を維持する必要がある場合があります。 この厄介な問題を解決するのに役立つ方法はありますか？

VBAコードでフォーマットを削除せずにハイパーリンクを削除する

VBAコードでフォーマットを削除せずにハイパーリンクを削除する

Excelでは、このタスクを直接処理する方法はありませんが、次のVBAコードを適用して、ハイパーリンクを削除するときにセルの書式を保持できます。

1。 を押し続けます Alt + F11 キーを押して Microsoft Visual Basic forApplicationsウィンドウ.

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

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のハイパーリンクから実際のアドレスを抽出するにはどうすればよいですか？