Wie entferne ich Hyperlinks, ohne die Formatierung zu entfernen?
Wenn wir in Excel die Hyperlinks löschen, die eine bestimmte Formatierung aufweisen, z. B. Hintergrundfarbe, Schriftart, Größe usw., werden die Formatierung entfernt und der folgende Screenshot angezeigt. Manchmal müssen wir jedoch die Zellenformatierung beibehalten, wenn wir die Hyperlinks entfernen. Gibt es Möglichkeiten, uns bei der Lösung dieses verärgerten Problems zu helfen?
Entfernen Sie Hyperlinks, ohne die Formatierung mit VBA-Code zu entfernen
Entfernen Sie Hyperlinks, ohne die Formatierung mit VBA-Code zu entfernen
In Excel gibt es keine direkte Möglichkeit, diese Aufgabe zu erledigen. Sie können jedoch den folgenden VBA-Code anwenden, um die Zellenformatierung beim Entfernen von Hyperlinks beizubehalten.
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen-Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.
VBA-Code: Entfernen Sie Hyperlinks, ohne die Formatierung zu entfernen
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. Dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, die Zellen auszuwählen, die die Hyperlinks enthalten. Siehe Abbildung:
4. Und dann klick OK Um den Dialog zu schließen, werden die Hyperlinks entfernt, die Formatierung der Hyperlinks (einschließlich der Unterstreichungen) bleibt jedoch erhalten.
In Verbindung stehende Artikel:
Wie ändere ich mehrere Hyperlinkpfade gleichzeitig in Excel?
Wie extrahiere ich tatsächliche Adressen aus Hyperlinks in Excel?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!