كيفية تحويل HTML إلى نص في الخلايا في إكسيل؟
كما هو موضح أدناه ، إذا كانت أرقام علامات html موجودة في خلايا ورقة العمل الخاصة بك ، كيف يمكنك تحويلها إلى نص عادي في Excel؟ ستوضح لك هذه المقالة طريقتين لإزالة جميع علامات html من الخلايا في Excel.
تحويل html إلى نص في الخلايا المحددة باستخدام وظيفة البحث والاستبدال
تحويل html إلى نص في ورقة العمل بأكملها باستخدام VBA
تحويل html إلى نص في الخلايا باستخدام وظيفة البحث والاستبدال
يمكنك تحويل كل html إلى نصوص في الخلايا بامتداد بحث واستبدال تعمل في Excel. الرجاء القيام بما يلي.
1. حدد الخلايا التي ستقوم بتحويل كل html إلى نصوص ، واضغط على CTRL + F مفاتيح لفتح بحث واستبدال صندوق المحادثة.
2. في ال بحث واستبدال مربع الحوار ، انتقل إلى استبدل علامة التبويب ، أدخل <*> في تجد ما صندوق ، احتفظ ب استبدال مربع فارغ ، وانقر فوق استبدال الكل زر. انظر لقطة الشاشة:
3. ثم أ مايكروسوفت إكسل ينبثق مربع الحوار ليخبرك بعدد علامات html التي تم استبدالها ، انقر فوق OK زر وأغلق ملف بحث واستبدال صندوق المحادثة.
بعد ذلك ، يمكنك رؤية إزالة جميع علامات html من الخلايا المحددة كما هو موضح أدناه.
تحويل html إلى نص في ورقة العمل بأكملها باستخدام VBA
إلى جانب ذلك ، يمكنك تحويل كل html إلى نص في ورقة العمل بأكملها في نفس الوقت باستخدام كود VBA أدناه.
1. افتح ورقة العمل التي تحتوي على html الذي ستقوم بتحويله إلى نص ، ثم اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم انسخ رمز VBA أدناه في نافذة الوحدة النمطية.
كود فبا: تحويل html إلى نص في ورقة العمل بأكملها
Sub RemoveHTMLTags()
'Update by Extendoffice 20180703
Dim xRg As Range
Dim xCell As Range
Dim xStr As String
Dim xRegEx As RegExp
Dim xMatch As Match
Dim xMatches As MatchCollection
Set xRegEx = New RegExp
Application.EnableEvents = False
Set xRg = Cells.SpecialCells(xlCellTypeConstants)
With xRegEx
.Global = True
.Pattern = "<(""[^""]*""|'[^']*'|[^'"">])*>"
End With
For Each xCell In xRg
xStr = xCell.Value
Set xMatches = xRegEx.Execute(xCell.Text)
For Each xMatch In xMatches
xStr = Replace(xStr, xMatch.Value, "")
Next
xCell.Value = xStr
Next
Application.EnableEvents = True
End Sub
3. لا يزال في ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، الرجاء الضغط الأدوات > مراجع حسابات، افحص ال التعبير العادي Microsoft VBScript 5.5 الخيار في المراجع- VBAProject مربع الحوار ، ثم انقر فوق OK .
4. اضغط على F5 مفتاح أو انقر فوق الزر "تشغيل" لتشغيل التعليمات البرمجية.
ثم تتم إزالة جميع علامات html من ورقة العمل بأكملها على الفور.
مقالات ذات صلة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!