удалять HTML-теги из строк ячеек: excel Formula

У меня есть данные с тегами HTML в листе excel, как показано ниже:

<b>This is test data<br>Nice <div> Go on this is next Cell Very goood <b>.....</b> 

SO, В основном я хочу удалить или заменить все теги html пробелом в листе excel.

Применить Replace All с помощью шаблона <*> :

заменить шаблон меток

Чтобы открыть это, перейдите в Ribbon Home > Find & Select > Replace... или просто нажмите CTRL + H.

Дополнительные пространства могут быть удалены с помощью функции TRIM . Удачи!

Откройте VBA в Excel (Alt + F11), щелкните по имени проекта (имя таблицы) в проводнике проекта справа. Вставить -> Новый модуль. Вставьте определенную пользователем функцию в окно модуля. Сохраните как .XLSM, которые разрешают макросы.

введите функцию '= StripHTML (A2)', если ваши данные находятся в ячейке A2. Вы также можете скачать рабочий пример здесь:

http://jfrancisconsulting.com/how-to-strip-html-tags-in-excel/

 Function StripHTML(cell As Range) As String Dim RegEx As Object Set RegEx = CreateObject(“vbscript.regexp”) Dim sInput As String Dim sOut As String sInput = cell.Text sInput = Replace(sInput, “\x0D\x0A”, Chr(10)) sInput = Replace(sInput, “\x00″, Chr(10)) 'replace HTML breaks and end of paragraphs with line breaks sInput = Replace(sInput, “</P>”, Chr(10) & Chr(10)) sInput = Replace(sInput, “<BR>”, Chr(10)) 'replace bullets with dashes sInput = Replace(sInput, “<li>”, “-”) 'add back all of the special characters sInput = Replace(sInput, “&ndash;”, “–”) sInput = Replace(sInput, “&mdash;”, “—”) sInput = Replace(sInput, “&iexcl;”, “¡”) sInput = Replace(sInput, “&iquest;”, “¿”) sInput = Replace(sInput, “&quot;”, “”) sInput = Replace(sInput, “&ldquo;”, ““”) sInput = Replace(sInput, “&rdquo;”, “””) sInput = Replace(sInput, “”, “'”) sInput = Replace(sInput, “&lsquo;”, “'”) sInput = Replace(sInput, “&rsquo;”, “'”) sInput = Replace(sInput, “&laquo;”, “«”) sInput = Replace(sInput, “&raquo;”, “»”) sInput = Replace(sInput, “&nbsp;”, ” “) sInput = Replace(sInput, “&amp;”, “&”) sInput = Replace(sInput, “&cent;”, “¢”) sInput = Replace(sInput, “&copy;”, “©”) sInput = Replace(sInput, “&divide;”, “÷”) sInput = Replace(sInput, “&gt;”, “>”) sInput = Replace(sInput, “&lt;”, “<”) sInput = Replace(sInput, “&micro;”, “µ”) sInput = Replace(sInput, “&middot;”, “·”) sInput = Replace(sInput, “&para;”, “¶”) sInput = Replace(sInput, “&plusmn;”, “±”) sInput = Replace(sInput, “&euro;”, “€”) sInput = Replace(sInput, “&pound;”, “£”) sInput = Replace(sInput, “&reg;”, “®”) sInput = Replace(sInput, “&sect;”, “§”) sInput = Replace(sInput, “&trade;”, “™”) sInput = Replace(sInput, “&yen;”, “¥”) sInput = Replace(sInput, “&aacute;”, “á”) sInput = Replace(sInput, “&Aacute;”, “Á”) sInput = Replace(sInput, “&agrave;”, “à”) sInput = Replace(sInput, “&Agrave;”, “À”) sInput = Replace(sInput, “&acirc;”, “â”) sInput = Replace(sInput, “&Acirc;”, “”) sInput = Replace(sInput, “&aring;”, “å”) sInput = Replace(sInput, “&Aring;”, “Å”) sInput = Replace(sInput, “&atilde;”, “ã”) sInput = Replace(sInput, “&Atilde;”, “Ô) sInput = Replace(sInput, “&auml;”, “ä”) sInput = Replace(sInput, “&Auml;”, “Ä”) sInput = Replace(sInput, “&aelig;”, “æ”) sInput = Replace(sInput, “&AElig;”, “Æ”) sInput = Replace(sInput, “&ccedil;”, “ç”) sInput = Replace(sInput, “&Ccedil;”, “Ç”) sInput = Replace(sInput, “&eacute;”, “é”) sInput = Replace(sInput, “&Eacute;”, “É”) sInput = Replace(sInput, “&egrave;”, “è”) sInput = Replace(sInput, “&Egrave;”, “È”) sInput = Replace(sInput, “&ecirc;”, “ê”) sInput = Replace(sInput, “&Ecirc;”, “Ê”) sInput = Replace(sInput, “&euml;”, “ë”) sInput = Replace(sInput, “&Euml;”, “Ë”) sInput = Replace(sInput, “&iacute;”, “í”) sInput = Replace(sInput, “&Iacute;”, “Í”) sInput = Replace(sInput, “&igrave;”, “ì”) sInput = Replace(sInput, “&Igrave;”, “Ì”) sInput = Replace(sInput, “&icirc;”, “î”) sInput = Replace(sInput, “&Icirc;”, “Δ) sInput = Replace(sInput, “&iuml;”, “ï”) sInput = Replace(sInput, “&Iuml;”, “Ï”) sInput = Replace(sInput, “&ntilde;”, “ñ”) sInput = Replace(sInput, “&Ntilde;”, “Ñ”) sInput = Replace(sInput, “&oacute;”, “ó”) sInput = Replace(sInput, “&Oacute;”, “Ó”) sInput = Replace(sInput, “&ograve;”, “ò”) sInput = Replace(sInput, “&Ograve;”, “Ò”) sInput = Replace(sInput, “&ocirc;”, “ô”) sInput = Replace(sInput, “&Ocirc;”, “Ô”) sInput = Replace(sInput, “&oslash;”, “ø”) sInput = Replace(sInput, “&Oslash;”, “Ø”) sInput = Replace(sInput, “&otilde;”, “õ”) sInput = Replace(sInput, “&Otilde;”, “Õ”) sInput = Replace(sInput, “&ouml;”, “ö”) sInput = Replace(sInput, “&Ouml;”, “Ö”) sInput = Replace(sInput, “&szlig;”, “ß”) sInput = Replace(sInput, “&uacute;”, “ú”) sInput = Replace(sInput, “&Uacute;”, “Ú”) sInput = Replace(sInput, “&ugrave;”, “ù”) sInput = Replace(sInput, “&Ugrave;”, “Ù”) sInput = Replace(sInput, “&ucirc;”, “û”) sInput = Replace(sInput, “&Ucirc;”, “Û”) sInput = Replace(sInput, “&uuml;”, “ü”) sInput = Replace(sInput, “&Uuml;”, “Ü”) sInput = Replace(sInput, “&yuml;”, “ÿ”) sInput = Replace(sInput, “”, “´”) sInput = Replace(sInput, “”, “`”) 'replace all the remaining HTML Tags With RegEx .Global = True .IgnoreCase = True .MultiLine = True .Pattern = “<[^>]+>” 'Regular Expression for HTML Tags. End With sOut = RegEx.Replace(sInput, “”) StripHTML = sOut Set RegEx = Nothing End Function 

Поскольку макрос выше не работал для меня, я исправил его сам. Это мой первый скрипт, если вы, ребята, можете его улучшить, сделать его быстрее, добавить больше, чем вам больше, чем приветствуется!

Хорошо, ребята, у меня не было никакого предыдущего опыта программирования (за исключением некоторых очень простых Java 6 лет назад), но с некоторой помощью, много угадывания (часы на самом деле) мне удалось создать этот скрипт, он работает как очарование, чтобы удалить большинство и 8 #, но он не заменит <BR> на строку (вы можете сделать это, нажав CTRL + H, "find: <br> " "заменить: (теперь удерживайте ALT вниз и используйте тип 0010 с вашим NUMPAD. должен мигать в окне замены, а затем нажать «заменить все»).

Вставьте код ниже в пользовательский модуль (alt + f11, щелкните правой кнопкой мыши Sheet1-> insert-> Module-> paste code)

И сделайте кнопку, перейдя в File-> Options-> Customize Ribbon-> установите флажок Developer. Затем перейдите на вкладку разработчика-> Вставить-> Кнопка->, затем поместите кнопку и щелкните правой кнопкой мыши-> назначить макро-> Выберите «Удалить».

 Sub RemoveTags() Dim r As Range Selection.NumberFormat = "@" 'set cells to text numberformat With CreateObject("vbscript.regexp") .Pattern = "\<.*?\>" .Global = True For Each r In Selection r.Value = Replace(.Replace(r.Value, ""), "&#8217;", " ") r.Value2 = Replace(.Replace(r.Value2, ""), "&#8211;", " ") Next r For Each r In Selection r.Value = Replace(.Replace(r.Value, ""), "&#8216;", " ") r.Value2 = Replace(.Replace(r.Value2, ""), "&#8232;", " ") Next r For Each r In Selection r.Value = Replace(.Replace(r.Value, ""), "&#8233;", " ") r.Value2 = Replace(.Replace(r.Value2, ""), "&#146;s", " ") Next r End With End Sub Private Sub CommandButton1_Click() End Sub 
  • SUMIF (S) с VLOOKUP
  • Excel - разделительная строка из ячеек
  • Excel - ссылается на другой рабочий лист на строку в случайной ячейке и ссылается на значение в заданной строке
  • Определить диапазон от определенной ячейки до конца столбца в формуле Excel
  • Как использовать проверку данных для ограничения выбора в списке со всеми уникальными элементами в столбце и еще одним?
  • Сумма столбца значений, где отдельный столбец содержит дубликат
  • Удаление повторяющихся данных из нескольких таблиц Excel
  • Есть ли ограничение того, сколько кода можно вставить в Excel или это ошибка?
  • Формула Excel для копирования значения ячейки в столбец на основе условия
  • формула для нахождения первой непустой ячейки
  • Как узнать уникальное значение в столбце Excel
  • Давайте будем гением компьютера.