كيفية نسخ الارتباط التشعبي فقط من خلية إلى أخرى في Excel؟

لنفترض أن لدي قائمة من القيم في العمود A وكل خلية تحتوي على ارتباط تشعبي مختلف. الآن، أريد نسخ الارتباطات التشعبية فقط بدون النصوص إلى عمود آخر E كما هو موضح في لقطة الشاشة التالية. قد لا يكون هناك طريقة مباشرة للقيام بهذا العمل في Excel، ولكن هنا يمكنني تقديم كود VBA للتعامل معه.

نسخ الارتباط التشعبي من خلية إلى أخرى باستخدام كود VBA

نسخ الارتباط التشعبي من خلية إلى أخرى باستخدام كود VBA

لنسخ عناوين الارتباطات التشعبية فقط دون النصوص إلى خلايا أخرى، يمكن أن يساعدك الكود التالي. الرجاء القيام بما يلي:

1. اضغط مع الاستمرار على مفاتيح ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: نسخ الارتباط التشعبي فقط من خلية إلى أخرى:

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. ثم اضغط على مفتاح F5 لتشغيل هذا الكود، ستظهر مربع حوار ينبثق لتذكيرك بتحديد الخلايا التي تريد نسخ الارتباطات التشعبية منها فقط، انظر لقطة الشاشة:

4. وبعد ذلك انقر فوق موافق، ثم حدد الخلايا التي تريد لصق الارتباطات التشعبية فيها فقط في مربع حوار آخر، انظر لقطة الشاشة:

5. وقد تم نسخ عناوين الارتباطات التشعبية من الخلايا الأصلية إلى الخلايا المحددة حسب الحاجة، انظر لقطة الشاشة:

ملاحظة: يمكن لهذا الكود أيضًا مساعدتك في نسخ الارتباطات التشعبية من ورقة عمل إلى ورقة عمل أخرى حسب رغبتك.