मुख्य सामग्री पर जाएं

एक्सेल में स्ट्रिंग से सभी HTML टैग कैसे हटाएं?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2020-12-24

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

दस्तावेज़ html टैग हटाएँ 1
1
दस्तावेज़ html टैग हटाएँ 2

ढूँढें और बदलें आदेश के साथ टेक्स्ट स्ट्रिंग से सभी HTML टैग हटाएँ

वीबीए कोड के साथ टेक्स्ट स्ट्रिंग से सभी HTML टैग हटाएं


तीर नीला दायां बुलबुला ढूँढें और बदलें आदेश के साथ टेक्स्ट स्ट्रिंग से सभी HTML टैग हटाएँ

वास्तव में, ढूँढें और बदलें Excel में फ़ंक्शन इस समस्या का समाधान कर सकता है, कृपया निम्नानुसार कार्य करें:

1. उन कक्षों का चयन करें जिनसे आप HTML टैग हटाना चाहते हैं।

2। होल्ड Ctrl + H कुंजी को खोलने के लिए ढूँढें और बदलें डायलॉग बॉक्स, डायलॉग में, में क्या पता टेक्स्ट बॉक्स, टाइप करें <*>, और छोड़ें साथ बदलें टेक्स्ट बॉक्स रिक्त, स्क्रीनशॉट देखें:

दस्तावेज़ html टैग हटाएँ 3

3। तब दबायें सभी को बदलें बटन, सभी HTML टैग एक ही बार में हटा दिए जाते हैं।


तीर नीला दायां बुलबुला वीबीए कोड के साथ टेक्स्ट स्ट्रिंग से सभी HTML टैग हटाएं

निम्नलिखित वीबीए कोड आपको चयन से HTML टैग हटाने में मदद कर सकता है, कृपया निम्नानुसार कार्य करें:

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

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

वीबीए कोड: टेक्स्ट स्ट्रिंग से सभी HTML टैग हटा दें

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 टैग हटाना चाहते हैं, स्क्रीनशॉट देखें:

दस्तावेज़ html टैग हटाएँ 4

4. और फिर क्लिक करें OK, सभी HTML टैग एक ही बार में चयन से हटा दिए गए हैं।

एक्सेल के लिए अभी नि:शुल्क कुटूल डाउनलोड करें!

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

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

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description


ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Formatting is also removed, as it is with the Find and Replace.

Thanks for the code and tips.
This comment was minimized by the moderator on the site
Вариант с <*> просто великолепен.
Спасибо Вам
This comment was minimized by the moderator on the site
I have some text that is in bullet points, when i run this program it strips this out. how can i select which html tags to remove and which to keep?
This comment was minimized by the moderator on the site
xAddress is never used
This comment was minimized by the moderator on the site
Thank you .. The VBA instructions worked!
This comment was minimized by the moderator on the site
Thank you! I was able to clean up a large excel file with VBA with your simple instructions
This comment was minimized by the moderator on the site
Thank you for the code to remove all HTML tags from text string using VBA. I am going to pass your site along to my co-workers.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations