Wie kopiert man nur einen Hyperlink von einer Zelle in eine andere in Excel?

Angenommen, ich habe eine Liste von Werten in Spalte A und jede Zelle enthält einen anderen Hyperlink. Nun 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, dies in Excel zu lösen, aber hier kann ich einen VBA-Code vorstellen, um damit umzugehen.

Hyperlink mit VBA-Code von einer Zelle in eine andere kopieren

Hyperlink mit VBA-Code von einer Zelle in eine andere kopieren

Um nur die Hyperlink-Adressen ohne den Text in andere Zellen zu kopieren, kann der folgende Code helfen. Bitte gehen Sie wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Nur Hyperlink 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. Drücken Sie dann die F5-Taste, um diesen Code auszuführen. Ein Dialogfeld wird angezeigt, das Sie auffordert, die Zellen auszuwählen, aus denen Sie nur die Hyperlinks kopieren möchten, siehe Screenshot:

4. Klicken Sie dann auf OK und wählen Sie in einem weiteren Dialogfeld die Zellen aus, in die Sie nur die Hyperlinks einfügen möchten, siehe Screenshot:

5. Die Hyperlink-Adressen wurden von den ursprünglichen Zellen in die angegebenen Zellen kopiert, wie Sie es benötigen, siehe Screenshot:

Hinweis: Dieser Code kann Ihnen auch helfen, die Hyperlinks von einem Arbeitsblatt in ein anderes zu kopieren, wie Sie es wünschen.