टेक्स्ट स्ट्रिंग्स से html टैग्स को अलग करें या हटाएँ

यदि कई टेक्स्ट स्ट्रिंग्स हैं जो HTML टैग्स से घिरी हुई हैं, तो सभी HTML टैग्स को हटाने के लिए, इस आलेख में दी गई विधियाँ आपके काम आ सकती हैं।

• फ़ॉर्मूला वाले सभी सरल HTML टैग हटा दें या हटा दें
• VBA कोड के साथ कुछ जटिल html टैग हटाएँ या हटाएँ

फ़ॉर्मूला वाले सभी सरल HTML टैग हटा दें या हटा दें

यदि आपकी टेक्स्ट स्ट्रिंग्स कुछ सरल HTML टैग्स से घिरी हुई हैं, तो Excel में MID फ़ंक्शन इस कार्य को हल करने में आपकी सहायता कर सकता है। सामान्य वाक्यविन्यास है:

• string: वह टेक्स्ट स्ट्रिंग या सेल मान जिससे आप html टैग हटाना चाहते हैं।
• text_start: उस स्थिति की संख्या जहां पहला अक्षर स्थित है जिसका आप उपयोग करना चाहते हैं।
• tag_len: टेक्स्ट स्ट्रिंग के भीतर html टैग की लंबाई।

कृपया निम्नलिखित सूत्र को कॉपी करें या रिक्त कक्ष में दर्ज करें:

फिर, भरण हैंडल को उन कक्षों तक खींचें जहां आप इस सूत्र को लागू करना चाहते हैं, और नीचे दिए गए स्क्रीनशॉट के अनुसार सभी HTML टैग कक्षों से हटा दिए गए हैं:

सूत्र की व्याख्या:

एलईएन(ए2)-7: इस LEN फ़ंक्शन का उपयोग सेल A2 में टेक्स्ट स्ट्रिंग की लंबाई की गणना करने के लिए किया जाता है, और 7 घटाता है (html टैग की संख्या, शुरुआत और अंत दोनों टैग) का मतलब है कि आप जितने अक्षर निकालना चाहते हैं, उनमें से उन वर्णों की संख्या प्राप्त करना है जिन्हें बाहर रखा गया है एचटीएमएल टैग. लौटाया गया मान MID फ़ंक्शन के भीतर num_chars तर्क के रूप में उपयोग किया जाएगा।

मध्य(A2,4,LEN(A2)-7): इस MID फ़ंक्शन का उपयोग चौथे वर्ण से शुरू होने वाले सभी वर्णों को निकालने के लिए किया जाता है, और स्ट्रिंग की लंबाई LEN फ़ंक्शन द्वारा लौटाए गए अंक-वर्ण हैं।

VBA कोड के साथ कुछ जटिल html टैग हटाएँ या हटाएँ

यदि नीचे स्क्रीनशॉट में दिखाए गए अनुसार टेक्स्ट स्ट्रिंग के भीतर एकाधिक HTML टैग हैं, तो उपरोक्त सूत्र सही ढंग से काम नहीं कर सकता है, इस मामले में, निम्नलिखित वीबीए कोड आपको टेक्स्ट स्ट्रिंग्स में कुछ जटिल HTML टैग से निपटने में मदद कर सकता है।

1. दबाए रखें ऑल्ट + F11 एक्सेल में कुंजियाँ, और यह खुलता है अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और मॉड्यूल विंडो में निम्नलिखित VBA कोड पेस्ट करें।

Sub RemoveTags()
'updateby Extendoffice 
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select data range", "Kutools for Excel", xAddress, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    xRg.NumberFormat = "@"
    With CreateObject("vbscript.regexp")
        .Pattern = "\<.*?\>"
        .Global = True
        For Each xCell In xRg
            xCell.Value = .Replace(xCell.Value, "")
        Next
    End With
End Sub

3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स पॉप आउट हो जाता है, कृपया उन कक्षों का चयन करें जिन्हें आप HTML टैग हटाना चाहते हैं, स्क्रीनशॉट देखें:

4. और फिर, क्लिक करें OK बटन, और सभी html टैग चयनित सेल से हटा दिए गए हैं, स्क्रीनशॉट देखें:

प्रयुक्त सापेक्ष कार्य:

अधिक लेख:

---

सर्वोत्तम कार्यालय उत्पादकता उपकरण

एक्सेल के लिए कुटूल - आपको भीड़ से अलग दिखने में मदद करता है

🤖	कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
	लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें  |  रिक्त पंक्तियाँ हटाएँ  |  डेटा खोए बिना कॉलम या सेल को संयोजित करें  |  फॉर्मूला के बिना गोल ...
	सुपर वीलुकअप: एकाधिक मानदंड  |  एकाधिक मूल्य  |  मल्टी-शीट्स के पार  |  फजी लुकअप...
	सलाह. ड्रॉप डाउन सूची: आसान ड्रॉप डाउन सूची  |  आश्रित ड्रॉप डाउन सूची  |  बहु-चयन ड्रॉप डाउन सूची...
	स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  कॉलम की तुलना करें समान एवं भिन्न कक्षों का चयन करें ...
	फीचर्ड फीचर्स: ग्रिड फोकस  |  डिजाइन देखें  |  बड़ा फॉर्मूला बार  |  कार्यपुस्तिका एवं शीट प्रबंधक | संसाधन लाइब्रेरी (ऑटो टेक्स्ट)  |  खजूर बीनने वाला  |  कार्यपत्रकों को संयोजित करें  |  एन्क्रिप्ट/डिक्रिप्ट सेल  |  सूची के अनुसार ईमेल भेजें  |  सुपर फ़िल्टर  |  विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
	शीर्ष 15 टूलसेट:  12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ ...)  |  50 + चार्ट प्रकार (गैन्ट चार्ट ...)  |  40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें ...)  |  19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें ...)  |  12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण ...)  |  7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, एक्सेल सेल को विभाजित करें ...)  |  ... और अधिक

एक्सेल के लिए कुटूल 300 से अधिक सुविधाओं का दावा करता है, यह सुनिश्चित करना कि आपको जो चाहिए वह बस एक क्लिक दूर है...

 विस्तार में पढ़ेंमुफ्त डाउनलोड

---

ऑफिस टैब - माइक्रोसॉफ्ट ऑफिस में टैब्ड रीडिंग और एडिटिंग सक्षम करें (एक्सेल शामिल करें)

• दर्जनों खुले दस्तावेज़ों के बीच स्विच करने के लिए एक सेकंड!
• हर दिन आपके लिए सैकड़ों माउस क्लिक कम करें, माउस हाथ को अलविदा कहें।
• एकाधिक दस्तावेज़ों को देखने और संपादित करने पर आपकी उत्पादकता 50% बढ़ जाती है।
• क्रोम, एज और फ़ायरफ़ॉक्स की तरह, ऑफिस (एक्सेल सहित) में कुशल टैब लाता है।

 विस्तार में पढ़ें मुफ्त डाउनलोड