Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як перетворити html у текст у комірках у Excel?

Як показано нижче на скріншоті, якщо кількість тегів html, що існують у комірках робочого аркуша, як можна перетворити їх на звичайний текст у Excel? Ця стаття покаже вам два способи видалення всіх тегів html з комірок у Excel.

Перетворіть html у текст у вибраних клітинках за допомогою функції Знайти та Замінити
Перетворіть html в текст на цілому аркуші за допомогою VBA


Перетворіть html в текст у клітинках за допомогою функції Знайти та Замінити

Ви можете перетворити весь html у тексти в клітинках за допомогою Знайти і замінити функція в Excel. Будь ласка, виконайте наступне.

1. Виділіть клітинки, для яких ви перетворите весь html у тексти, та натисніть Ctrl + F ключі, щоб відкрити Знайти і замінити діалогове вікно.

2 В Знайти і замінити діалогове вікно, перейдіть до заміщати , введіть <*> в Знайти те, що зберігайте Замінити поле порожнє, і клацніть на замінити всі кнопку. Дивіться знімок екрана:

3. Тоді a Microsoft Excel з'явиться діалогове вікно, щоб повідомити, скільки тегів HTML було замінено, клацніть на OK і закрийте Знайти і замінити діалогове вікно.

Тоді ви можете побачити, що всі теги html видаляються з вибраних комірок, як показано на знімку екрана нижче.


Перетворіть html в текст на цілому аркуші за допомогою VBA

Крім того, ви можете одночасно перетворити весь html у текст на цілому аркуші за допомогою наведеного нижче коду VBA.

1. Відкрийте аркуш, що містить html, який ви перетворите в текст, а потім натисніть інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі, а потім скопіюйте код VBA у вікно модуля.

Код 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 Visual Basic для додатків вікно, натисніть інструменти > посилання, перевірте Регулярний вираз Microsoft VBScript 5.5 опція в Посилання-VBAProject , а потім клацніть на OK кнопки.

4 Натисніть кнопку F5 клавішу або натисніть кнопку Виконати, щоб запустити код.

Потім усі теги html негайно видаляються з цілого аркуша.


Статті по темі:


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    ghyslain · 3 months ago
    compile error: User defined type not defined
  • To post as a guest, your comment is unpublished.
    Brian M · 2 years ago
    Thanks for that sub routine - just the job!