كيفية إزالة جميع علامات HTML من سلسلة في Excel؟
إذا كانت لديك ورقة عمل تحتوي على سلاسل نصية محاطة بعلامات HTML ، فأنت الآن تريد إزالة جميع علامات HTML من السلاسل لجعل الخلايا أكثر وضوحًا وقابلية للقراءة كما هو موضح في لقطات الشاشة التالية. سأقدم في هذه المقالة بعض الطرق للتعامل مع هذه المهمة في Excel.
قم بإزالة جميع علامات HTML من السلسلة النصية باستخدام الأمر Find and Replace
قم بإزالة كافة علامات HTML من سلسلة نصية برمز VBA
قم بإزالة جميع علامات HTML من السلسلة النصية باستخدام الأمر Find and Replace
في الواقع، فإن بحث واستبدال وظيفة في Excel قد تحل هذه المشكلة ، يرجى القيام بما يلي:
1. حدد الخلايا التي تريد إزالة علامات HTML.
2. معلق كترل + H مفاتيح لفتح بحث واستبدال مربع الحوار ، في مربع الحوار ، في تجد ما مربع النص، اكتب <*>، واترك استبدال مربع نص فارغ ، انظر الصورة:
3. ثم اضغط استبدال الكل زر ، تتم إزالة جميع علامات HTML مرة واحدة.
قم بإزالة كافة علامات HTML من سلسلة نصية برمز VBA
يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية على إزالة علامات HTML من التحديد ، يرجى القيام بما يلي:
1. اضغط باستمرار على ALT + F11 في Excel ، ويفتح ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
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 ، انظر لقطة الشاشة:
4. ثم انقر فوق OK، تمت إزالة جميع علامات HTML من التحديد مرة واحدة.
تحميل مجاني Kutools لبرنامج Excel الآن!
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!