एक्सेल सेल में टेक्स्ट को निश्चित प्रारूप के साथ हटाएं

मैं आसानी से एक्सेल सेल्स में स्ट्रिंग्स को कुछ फॉर्मेटिंग के साथ डिलीट कर देता हूं। मैं दूसरी सेल की तरह फॉर्मेट किए गए स्ट्रिंग के साथ सेल प्राप्त करना चाहता हूं

यहाँ छवि विवरण दर्ज करें

स्ट्रिंग कुछ भी हो सकता है केवल एक चीज है जो उसे परिभाषित करती है प्रारूपण

microsoft-excel find-and-replace

— Yakov
स्रोत

अगर कोड एक सेल के भीतर मिलाया जाता है तो मैं इसे बिना कोड के करने का तरीका नहीं देख सकता। आप इस तरह से एक UDF का उपयोग कर सकते हैं:

Function DeleteFormat(aSource As Range) As String       
    Underline = xlUnderlineStyleSingle
    Strikethrough = True
    DeleteFormat = ""
    For i = 1 To Len(aSource.Value)
        If Not (aSource.Characters(i, 1).Font.Strikethrough = Strikethrough And     aSource.Characters(i, 1).Font.Underline = Underline) Then
            DeleteFormat = DeleteFormat & aSource.Characters(i, 1).Text
        End If
    Next

अंत समारोह

— Wild138
स्रोत