Excel'deki hücrelerdeki html'yi metne dönüştürmek nasıl?
Aşağıda gösterilen ekran görüntüsü gibi, çalışma sayfası hücrelerinizde html etiketlerinin sayısı mevcutsa, bunları Excel'de düz metne nasıl dönüştürebilirsiniz? Bu makale, Excel'deki hücrelerden tüm html etiketlerini kaldırmak için size iki yöntem gösterecektir.
Bul ve Değiştir işleviyle seçili hücrelerdeki html metne dönüştürün
VBA ile çalışma sayfasının tamamında html'yi metne dönüştürün
Bul ve Değiştir işleviyle html'yi hücrelerdeki metne dönüştürün
Tüm html'leri hücrelerdeki metinlere dönüştürebilirsiniz. Bul ve Değiştir Excel'de işlev. Lütfen aşağıdaki işlemleri yapın.
1. Tüm html'leri metne dönüştüreceğiniz hücreleri seçin ve Ctrl + F tuşlarını açmak için Bul ve Değiştir iletişim kutusu.
2. içinde Bul ve Değiştir iletişim kutusuna gidin ve değiştirmek sekme, girin <*> içine Ne bul kutusu, sakla Ile değiştirin kutu boş ve tıklayın Tümünü Değiştir buton. Ekran görüntüsüne bakın:
3. Sonra a Microsoft Excel iletişim kutusu açılır ve size kaç tane html etiketinin değiştirildiğini söyler, OK düğmesine basın ve kapatın Bul ve Değiştir iletişim kutusu.
Ardından, aşağıda gösterilen ekran görüntüsü gibi tüm html etiketlerinin seçilen hücrelerden kaldırıldığını görebilirsiniz.
VBA ile çalışma sayfasının tamamında html'yi metne dönüştürün
Ayrıca, aşağıdaki VBA kodu ile aynı anda tüm çalışma sayfasındaki tüm html'leri metne dönüştürebilirsiniz.
1. Metne dönüştüreceğiniz html içeren çalışma sayfasını açın ve ardından Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül, ardından VBA kodunu Modül penceresine kopyalayın.
VBA kodu: html'yi tüm çalışma sayfasındaki metne dönüştürün
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. Hala Uygulamalar için Microsoft Visual Basic pencere, lütfen tıklayın Tools > Referanslar, kontrol et Microsoft VBScript Normal İfade 5.5 seçeneği Referanslar-VBAProject iletişim kutusunu tıklayın ve ardından OK düğmesine basın.
4. Tuşuna basın. F5 kodunu çalıştırmak için tuşuna veya Çalıştır düğmesine tıklayın.
Daha sonra tüm html etiketleri tüm çalışma sayfasından hemen kaldırılır.
İlgili yazılar:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!