Metin dizelerinden html etiketlerini temizleme veya kaldırma

Birden fazla metin dizesi HTML etiketleriyle çevrelenmişse, bu makaledeki yöntemler size yardımcı olabilir.

• Formül ile tüm Basit HTML etiketlerini temizleme veya kaldırma
• VBA kodu ile bazı karmaşık html etiketlerini temizleme veya kaldırma

Formül ile tüm Basit HTML etiketlerini temizleme veya kaldırma

Metin dizeleriniz bazı basit HTML etiketleriyle çevrelenmişse, Excel’deki MID işlevi bu sorunu çözmenize yardımcı olabilir. Genel sözdizimi şu şekildedir:

• string: HTML etiketlerini kaldırmak istediğiniz metin dizesi veya hücre değeri.
• text_startİlk karakterinizin bulunduğu konum numarası.
• tag_lenMetin dizesi içindeki 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 doldurma tutamacını aşağı sürükleyin; böylece 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ün açıklaması:

LEN(A2)-7: Bu LEN işlevi, A2 hücresindeki metin dizesinin uzunluğunu hesaplar ve HTML etiketlerinin toplam karakter sayısını (başlangıç ve bitiş etiketleri dahil) temsil eden 7 değerini çıkarır. Böylece yalnızca HTML etiketleri hariç, kalan metinden alınmak istenen karakter sayısına ulaşılır. Elde edilen sonuç, MID işlevinde num_chars bağımsız değişkeni olarak kullanılır.

MID(A2,4,LEN(A2)-7): Bu MID işlevi, dördüncü karakterden başlayarak kalan tüm karakterleri ayıklamak için kullanılır; burada alınacak karakter sayısı, LEN işlevi tarafından döndürülen uzunluktan 7 çıkarılarak belirlenir.

VBA kodu ile bazı karmaşık html etiketlerini temizleme veya kaldırma

Aşağıdaki ekran görüntüsünde görüldüğü gibi, metin dizesi içinde birden fazla HTML etiketi varsa yukarıdaki formül doğru şekilde çalışmayabilir. Böyle bir durumda, aşağıdaki VBA kodu, metin dizelerindeki bazı karmaşık HTML etiketlerini işlemeye yardımcı olabilir.

1. Excel'de Alt + F11 tuşlarına basılı tutun; böylece Microsoft Visual Basic for Applications penceresi açılır.

2. Ekle > Modül seçeneğine 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; ardından "Lütfen HTML etiketlerini kaldırmak istediğiniz hücreleri seçin" uyarısıyla bir iletişim kutusu açılacak. Ekran görüntüsüne bakın:

4. Ardından Tamam düğmesine tıklayın; böylece seçili hücrelerden tüm HTML etiketleri kaldırılacaktır. Ekran görüntüsüne bakın:

Kullanılan ilgili işlevler:

Daha fazla makale: