Note: The other languages of the website are Google-translated. Back to English

Metin dizelerinden html etiketlerini soyun veya kaldırın

Html etiketleri ile çevrelenmiş birden çok metin dizesi varsa, tüm html etiketlerini kaldırmak için bu makaledeki yöntemler size bir iyilik yapabilir.


Formül ile tüm basit html etiketlerini soyun veya kaldırın

Metin dizeleriniz bazı basit html etiketleriyle çevriliyse, Excel'deki MID işlevi bu işi çözmenize yardımcı olabilir. Genel sözdizimi şöyledir:

=MID(string,text_start,LEN(string)-tag_len)
  • string: html etiketlerini kaldırmak istediğiniz metin dizesi veya hücre değeri.
  • text_start: kullanmak istediğiniz ilk karakterin bulunduğu konumun numarası.
  • tag_len: metin dizesindeki html etiketlerinin uzunluğu.

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

=MID(A2,4,LEN(A2)-7)

Ardından, doldurma tutamacını bu formülü uygulamak istediğiniz hücrelere sürükleyin ve tüm html etiketleri, aşağıda gösterilen ekran görüntüsü gibi hücrelerden kaldırılmıştır:


Formülün açıklaması:

UZUNLUK (A2) -7: Bu UZUNLUK işlevi, A2 hücresindeki metin dizesinin uzunluğunu hesaplamak için kullanılır ve 7'yi çıkarır (html etiketlerinin sayısı, hem başlangıç ​​hem de bitiş etiketleri), hariç tutmak istediğiniz karakter sayısını elde etmek anlamına gelir. html etiketi. Döndürülen değer, MID işlevi içinde sayı_karakterler bağımsız değişkeni olarak kullanılacaktır.

ORTA (A2,4; UZUNLUK (A2) -7): Bu MID işlevi, dördüncü karakterden başlayan tüm karakterleri ayıklamak için kullanılır ve dizenin uzunluğu, LEN işlevi tarafından döndürülen sayı karakterlerdir.


VBA kodu ile bazı karmaşık html etiketlerini soyun veya kaldırın

Metin dizesi içinde aşağıda gösterilen ekran görüntüsü gibi birden fazla html etiketi varsa, yukarıdaki formül doğru çalışmayabilir, bu durumda aşağıdaki VBA kodu, metin dizelerindeki bazı karmaşık html etiketleriyle başa çıkmanıza yardımcı olabilir.

1. Basılı tutun Alt + F11 Excel'de anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve 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. Daha sonra, tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve bir komut kutusu açılır, lütfen html etiketlerini kaldırmak istediğiniz hücreleri seçin, ekran görüntüsüne bakın:

4. Ve sonra tıklayın OK düğmesi ve seçilen hücrelerden tüm html etiketleri kaldırıldı, ekran görüntüsüne bakın:


Kullanılan göreceli işlevler:

  • LEN:
  • UZUNLUK işlevi, bir metin dizesindeki karakter sayısını döndürür.
  • MID:
  • MID işlevi, belirli bir metin dizesinin ortasından belirli sayıda karakteri bulup döndürmek için kullanılır.

Daha fazla makale:


En İyi Ofis Üretkenliği Araçları

Kutools for Excel - Kalabalıktan Ayrılmanıza Yardımcı Olur

Günlük işlerinizi hızlı ve kusursuz bir şekilde tamamlamak ister misiniz? Kutools for Excel, 300 güçlü gelişmiş özellik getiriyor (Çalışma kitaplarını birleştir, renge göre topla, hücre içeriğini böl, tarihi dönüştür, vb.) ve senin için% 80 zamandan tasarruf et.

  • 1500 çalışma senaryosu için tasarlanmış olup, Excel problemlerinin %80'ini çözmenize yardımcı olur.
  • Her gün binlerce klavye ve fare tıklamasını azaltın, yorgun gözlerinizi ve ellerinizi rahatlatın.
  • 3 dakikada bir Excel uzmanı olun. Artık acı veren formülleri ve VBA kodlarını hatırlamanıza gerek yok.
  • 30 günlük sınırsız ücretsiz deneme. 60 günlük para iade garantisi. 2 yıl boyunca ücretsiz yükseltme ve destek.
Excel şeridi (Kutools for Excel yüklü)

Office Sekmesi - Microsoft Office'te Sekmeli Okuma ve Düzenlemeyi Etkinleştir (Excel dahil)

  • Düzinelerce açık belge arasında geçiş yapmak için bir saniye!
  • Her gün yüzlerce fare tıklamasını azaltın, fare eline veda edin.
  • Birden çok belgeyi görüntülerken ve düzenlerken üretkenliğinizi% 50 artırır.
  • Office'e (Excel dahil), Chrome, Firefox ve Yeni Internet Explorer gibi Verimli Sekmeler Getirir.
Excel'in Ekran Görüntüsü (Office Tab yüklü)
Yorumları sıralama ölçütü
Yorumlar (0)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır