Πώς να αφαιρέσετε υπερσυνδέσμους χωρίς να καταργήσετε τη μορφοποίηση;

Στο Excel, όταν διαγράφουμε τους υπερσυνδέσμους που έχουν κάποια μορφοποίηση, όπως χρώμα φόντου, γραμματοσειρά, μέγεθος και ούτω καθεξής, η μορφοποίηση θα αφαιρεθεί καθώς και μετά την εμφάνιση του στιγμιότυπου οθόνης. Όμως, μερικές φορές, πρέπει να διατηρήσουμε τη διαμόρφωση του κελιού κατά την αφαίρεση των υπερ-συνδέσεων. Υπάρχουν τρόποι να μας βοηθήσετε να λύσουμε αυτό το ενοχλητικό πρόβλημα;

Καταργήστε τους υπερσυνδέσμους χωρίς να καταργήσετε τη μορφοποίηση με τον κώδικα VBA

Καταργήστε τους υπερσυνδέσμους χωρίς να καταργήσετε τη μορφοποίηση με τον κώδικα VBA

Στο Excel, δεν υπάρχει άμεσος τρόπος αντιμετώπισης αυτής της εργασίας, αλλά μπορείτε να εφαρμόσετε τον ακόλουθο κώδικα VBA για να διατηρήσετε τη μορφοποίηση κελιού κατά την κατάργηση υπερ-συνδέσεων.

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.

Κωδικός 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;