Comment supprimer des hyperliens sans supprimer le formatage?

Dans Excel, lorsque nous supprimons les hyperliens qui ont une mise en forme, telle que la couleur d'arrière-plan, la police, la taille, etc., la mise en forme sera supprimée ainsi que la capture d'écran suivante. Mais, parfois, nous devons conserver la mise en forme des cellules lors de la suppression des hyperliens. Existe-t-il des moyens de nous aider à résoudre ce problème ennuyeux?

Supprimer les hyperliens sans supprimer le formatage avec le code VBA

Supprimer les hyperliens sans supprimer le formatage avec le code VBA

Dans Excel, il n'existe aucun moyen direct de gérer cette tâche, mais vous pouvez appliquer le code VBA suivant pour conserver la mise en forme des cellules lors de la suppression des liens hypertexte.

1. Maintenez le ALT + F11 clés pour ouvrir le Fenêtre Microsoft Visual Basic pour Applications.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Fenêtre du module.

Code VBA: supprimez les hyperliens sans supprimer le formatage

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. Puis appuyez F5 clé pour exécuter ce code, et une boîte de dialogue apparaîtra pour vous rappeler de sélectionner les cellules qui contiennent les hyperliens, voir capture d'écran:

4. Et puis cliquez OK pour fermer la boîte de dialogue, les hyperliens sont supprimés, mais la mise en forme des hyperliens (y compris les soulignements) est conservée.

Articles Liés:

Comment modifier plusieurs chemins d'hyperliens à la fois dans Excel?

Comment extraire des adresses réelles d'hyperliens dans Excel?