Excel में हाइपरलिंक को केवल एक सेल से दूसरे सेल में कैसे कॉपी करें?
मान लीजिए, मेरे पास कॉलम ए में मानों की एक सूची है और प्रत्येक सेल में एक अलग हाइपरलिंक है, अब, मैं केवल टेक्स्ट के बिना हाइपरलिंक को दूसरे कॉलम ई में कॉपी करना चाहता हूं जैसा कि नीचे दिए गए स्क्रीनशॉट में दिखाया गया है। हो सकता है कि एक्सेल में इस काम को हल करने का कोई सीधा तरीका न हो, लेकिन यहां, मैं इससे निपटने के लिए एक वीबीए कोड पेश कर सकता हूं।
वीबीए कोड के साथ हाइपरलिंक को एक सेल से दूसरे सेल में कॉपी करें
वीबीए कोड के साथ हाइपरलिंक को एक सेल से दूसरे सेल में कॉपी करें
केवल हाइपरलिंक पतों को पाठ के बिना अन्य कक्षों में कॉपी करने के लिए, निम्नलिखित कोड आपकी मदद कर सकता है, कृपया इस प्रकार:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: हाइपरलिंक को केवल एक सेल से दूसरे सेल में कॉपी करें:
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। और फिर क्लिक करें OK, फिर उन कक्षों का चयन करें जिन्हें आप हाइपरलिन्स को केवल दूसरे संवाद बॉक्स में चिपकाना चाहते हैं, स्क्रीनशॉट देखें:
5. और हाइपरलिंक पते को आपकी आवश्यकता के अनुसार मूल सेल से निर्दिष्ट सेल में कॉपी कर दिया गया है, स्क्रीनशॉट देखें:
नोट: यह कोड आपको हाइपरलिंक को एक शीट से दूसरी शीट पर अपनी इच्छानुसार कॉपी करने में भी मदद कर सकता है।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!