Metin dizelerinden HTML etiketlerini kaldırma

Birden fazla metin dizeniz varsa ve bunlar HTML etiketleriyle çevrilmiş durumdaysa, tüm HTML etiketlerini kaldırmak için bu makaledeki yöntemler size yardımcı olabilir.

• Formül kullanarak tüm basit HTML etiketlerini kaldırma
• VBA kodu ile bazı karmaşık HTML etiketlerini kaldırma

Formül kullanarak tüm basit HTML etiketlerini kaldırma

Metin dizeleriniz bazı basit HTML etiketleriyle çevrilmişse, Excel'deki ORTA fonksiyonu bu işi çözmenize yardımcı olabilir. Genel sözdizimi şu şekildedir:

• dize: HTML etiketlerini kaldırmak istediğiniz metin dizesi veya hücre değeri.
• metin_başlangıç: Kullanmak istediğiniz ilk karakterin bulunduğu pozisyon numarası.
• etiket_uzunluğu: Metin dizesindeki HTML etiketlerinin uzunluğu.

Lütfen aşağıdaki formülü boş bir hücreye kopyalayın veya girin:

Ardından, bu formülü uygulamak istediğiniz hücrelere kadar dolgu tutamacını sürükleyin ve aşağıdaki ekran görüntüsünde gösterildiği gibi tüm HTML etiketleri hücrelerden kaldırılmış olacaktır:

Formül açıklaması:

UZUNLUK(A2)-7: Bu UZUNLUK fonksiyonu, A2 hücresindeki metin dizesinin uzunluğunu hesaplamak için kullanılır ve 7 çıkarılır (başlangıç ve bitiş etiketlerinin sayısı), bu da HTML etiketi hariç çıkarmak istediğiniz karakter sayısını elde etmek anlamına gelir. Dönen değer, ORTA fonksiyonu içindeki karakter_sayısı argümanı olarak kullanılacaktır.

ORTA(A2,4,UZUNLUK(A2)-7): Bu ORTA fonksiyonu, dördüncü karakterden başlayarak tüm karakterleri çıkarmak için kullanılır ve dizenin uzunluğu, UZUNLUK fonksiyonu tarafından döndürülen karakter_sayısı kadardır.

VBA kodu ile bazı karmaşık HTML etiketlerini kaldırma

Aşağıdaki ekran görüntüsünde gösterildiği gibi metin dizesinde birden fazla HTML etiketi varsa, yukarıdaki formül doğru çalışmayabilir, bu durumda aşağıdaki VBA kodu size metin dizelerindeki bazı karmaşık HTML etiketleriyle başa çıkmada yardımcı olabilir.

1. Excel'de Alt + F11 tuşlarına basın ve Microsoft Visual Basic for Applications penceresi açılacaktır.

2. Ekle Insert > Module'e tıklayın ve aşağıdaki VBA kodunu Modül Penceresine yapıştırın.

Sub RemoveTags()
'updateby Extendoffice 
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select data range", "Kutools for Excel", xAddress, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    xRg.NumberFormat = "@"
    With CreateObject("vbscript.regexp")
        .Pattern = "\<.*?\>"
        .Global = True
        For Each xCell In xRg
            xCell.Value = .Replace(xCell.Value, "")
        Next
    End With
End Sub

3. Ardından, bu kodu çalıştırmak için F5 tuşuna basın ve bir uyarı kutusu açılır, lütfen HTML etiketlerini kaldırmak istediğiniz hücreleri seçin, aşağıdaki ekran görüntüsüne bakın:

4. Ve sonra Tamam düğmesine tıklayın ve tüm HTML etiketleri seçilen hücrelerden kaldırılacaktır, aşağıdaki ekran görüntüsüne bakın:

İlgili kullanılan fonksiyonlar:

Daha fazla makale: