Как да конвертирате 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 за приложения прозорец, кликнете Поставете > Модули, след което копирайте по-долу 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 тагове се премахват незабавно от целия работен лист.
Още по темата:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!