Hogyan lehet eltávolítani a hiperhivatkozásokat a formázás eltávolítása nélkül?

Az Excelben, amikor töröljük a hiperhivatkozásokat, amelyek rendelkeznek valamilyen formázással, például háttérszínnel, betűtípussal, méretgel és így tovább, a formázás eltávolításra kerül, valamint a következő képernyőkép látható. De néha meg kell tartanunk a cella formázását a hiperhivatkozások eltávolításakor. Van-e valamilyen módszer arra, hogy segítsen nekünk megoldani ezt a bosszús problémát?

Távolítsa el a hiperhivatkozásokat a VBA kóddal történő formázás eltávolítása nélkül

Távolítsa el a hiperhivatkozásokat a VBA kóddal történő formázás eltávolítása nélkül

Az Excel programban nincs közvetlen módja ennek a feladatnak a kezelésére, de a hiperhivatkozások eltávolításakor a következő VBA kódot alkalmazhatja a cella formázásának megőrzésére.

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA kód: Távolítsa el a hiperhivatkozásokat a formázás eltávolítása nélkül

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy prompt doboz, amely emlékezteti Önt a hiperhivatkozásokat tartalmazó cellák kiválasztására, lásd a képernyőképet:

4. Kattintson a gombra OK a párbeszédablak bezárásához a hiperhivatkozások eltávolításra kerülnek, de a hiperhivatkozások formázása (beleértve az aláhúzásokat is) megmarad.

Kapcsolódó cikkek:

Hogyan lehet egyszerre több hiperhivatkozási utat módosítani az Excelben?

Hogyan lehet kinyerni a tényleges címeket az Excel hiperhivatkozásaiból?