Wie kopiere ich in Excel nur einen Hyperlink von einer Zelle in eine andere?
Angenommen, ich habe eine Liste mit Werten in Spalte A und jede Zelle enthält einen anderen Hyperlink. Jetzt möchte ich nur die Hyperlinks ohne Text in eine andere Spalte E kopieren, wie im folgenden Screenshot gezeigt. Möglicherweise gibt es keinen direkten Weg, um diesen Job in Excel zu lösen, aber hier kann ich einen VBA-Code für den Umgang damit einführen.
Kopieren Sie den Hyperlink mit VBA-Code von einer Zelle in eine andere
Kopieren Sie den Hyperlink mit VBA-Code von einer Zelle in eine andere
Um nur die Hyperlink-Adressen ohne Text in andere Zellen zu kopieren, kann Ihnen der folgende Code einen Gefallen tun:
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 Modul Fenster.
VBA-Code: Hyperlink nur von einer Zelle in eine andere kopieren:
Sub CopyHyperlinks()
'Uodateby Extendoffice
Dim xSRg As Range
Dim xDRg As Range
Dim I As Integer
Dim xAddress As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xSRg = Application.InputBox("Please select the original range you want to copy hyperlinks:", "KuTools For Excel", xAddress, , , , , 8)
If xSRg Is Nothing Then Exit Sub
Set xDRg = Application.InputBox("Please select the new range you want to paste the hyperlinks only", "KuTools For Excel", , , , , , 8)
If xDRg Is Nothing Then Exit Sub
Set xDRg = xDRg(1)
For I = 1 To xSRg.Count
If xSRg(I) <> "" And xDRg.Offset(I - 1) <> "" Then
If xSRg(I).Hyperlinks.Count = 1 Then
xDRg(I).Hyperlinks.Add xDRg(I), xSRg(I).Hyperlinks(1).Address
End If
End If
Next
End Sub
3. Und dann drücken F5 Wenn Sie diesen Code ausführen, wird ein Dialogfeld angezeigt, in dem Sie daran erinnert werden, die Zellen auszuwählen, in die Sie nur die Hyperlinks kopieren möchten. Siehe Screenshot:
4. Und dann klick OKWählen Sie dann die Zellen aus, in die Sie die Hyperlins nur in einem anderen Dialogfeld einfügen möchten. Siehe Screenshot:
5. Die Hyperlink-Adressen wurden nach Bedarf von den ursprünglichen Zellen in die angegebenen Zellen kopiert (siehe Abbildung):
Note: Dieser Code kann Ihnen auch dabei helfen, die Hyperlinks von einem Blatt auf ein anderes Blatt zu kopieren, wie Sie möchten.
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!