KutoolsforOffice — Tek çözüm, beş güçlü araç.Daha az çabayla daha fazlasını başarmak.

Excel'de koşula göre hücre içeriğini nasıl temizlersiniz?

YazarXiaoyang Değiştirme Tarihi

Bazen Excel'de koşullara göre Hücre içeriğini temizle yapmanız gerekebilir; örneğin hücre belirli bir değer içeriyorsa hücre içeriğini temizlemek, başka bir sütunda boş hücreler varsa hücre içeriğini temizlemek veya belirli Arka Plan Rengi ile Hücre içeriğini temizle yapmak gibi. Bu makalede bu tür görevleri hızlı ve kolayca çözmek için bazı ipuçları sunulmaktadır.

VBA kodu ile hücre değerine göre Hücre içeriğini temizle

Değer belirli bir değerden büyük veya küçükse VBA kodu ile Tüm satır temizleme

Kullanışlı bir özellik ile hücre değerine göre hücre veya satır içeriğini temizleme

Başka bir hücre boşsa VBA kodu ile Tüm satır temizleme

VBA kodu ile Arka Plan Rengi'e göre Hücre içeriğini temizle

VBA kodu ile hücre değerine göre Hücre içeriğini temizle

Örneğin, aşağıdaki gibi bir Veri Aralığınız olsun ve “Hoodie” içeren hücreleri temizlemek istiyorsunuz. Aşağıdaki VBA kodu bu işe yardımcı olabilir.

örnek veri

1. ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül penceresine yapıştırın.

VBA kodu: Hücre belirli bir değere eşitse Hücre içeriğini temizle

Sub ClearContents()
'Updateby ExtendOffice
 Dim xRng As Range
 Dim xCell As Range
 Dim xText As String
 Set xRng = Application.Range("A2:A12")
 xText = "Hoodie" 'Change this text to your own
 For Each xCell In xRng
 If xCell.Value = xText Then
 xCell.clearContents
 End If
 Next xCell
End Sub
Not: Yukarıdaki kodda,A2:A12içinden Hücre içeriğini temizle istediğiniz Veri Aralığı'dir; “Hoodie” metni ise temizlemek istediğiniz belirli değerdir. Lütfen bunları kendi verilerinize göre değiştirin.

3. Ardından F5 tuşuna basarak bu kodu çalıştırın; “Hoodie” metnini içeren tüm hücreler aynı anda temizlenecektir. Ekran görüntüsüne bakın:

hücre değerine göre hücre içeriğini temizlemek için vba kodu

kutools for excel yapay zekâsının ekran görüntüsü

Excel'in sihrini KUTOOLS AI ile keşfedin

  • Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve hepsini basit komutlarla oluşturulan grafiklerle tamamlayın.
  • Özel formüller: İş akışlarınızı kolaylaştırmak için özelleştirilmiş formüller oluşturun.
  • VBA Kodlama: VBA kodlarını zahmetsizce yazın ve anında uygulayın.
  • Formül Yorumlama: Karmaşık formülleri bir çırpıda anlayın.
  • Metin Çevirisi: Elektronik tablolarınızda dil bariyerlerini aşın.
Yapay zekâ destekli araçlarla Excel yeteneklerinizi geliştirin.Şimdi İndirinve verimliliği hiç olmadığı kadar deneyimleyin!

Değer belirli bir değerden büyük veya küçükse VBA kodu ile Tüm satır temizleme

Diyelim ki aşağıdaki Veri Aralığınız var; D sütunundaki değer 300’den büyükse veya küçükse, ilgili satırın tüm içeriğini temizlemek istiyorsunuz. Bu işlemi gerçekleştirmek için bir VBA kodu oluşturacağım.

örnek veri

1.ALT + F11tuşlarına basarak Microsoft Visual Basic for ApplicationsPencerenizi açın.

2.Ekle>Modülseçeneğine tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Hücre değeri belirli bir değerden büyük veya küçükse Tüm satır temizleme

Sub ClearRowInValue()
'Updateby ExtendOffice
Dim xRg As Range
Dim xStrAddress As String
Dim xStrValue As Integer
Dim xCell As Range
Dim xRowRg As Range
Dim xF As Integer
Dim xBol As Boolean
xStrAddress = "D2:D12" 'Change cell range
xStrValue = 300 'change the value
Set xRg = Range(xStrAddress)
For xF = xRg.Rows.Count To 1 Step -1
    Set xRowRg = xRg.Rows.Item(xF)
    xBol = False
    For Each xCell In xRowRg.Cells
        If Application.IsNumber(xCell.Value) Then
        If xCell.Value > xStrValue Then
        xBol = True
        Exit For
        End If
        End If
    Next
    If xBol Then
        xRowRg.EntireRow.clearContents
    End If
Next
End Sub
Not: Yukarıdaki kodda,D2:D12satırları temizlemek için dayanacağınız belirli değeri içeren Veri Aralığı'dir;300belirli değerdir; betik içindeki >karakteri If xCell.Value > xStrValue Thenifadesinde “büyüktür” anlamına gelir; “küçüktür” kullanmak isterseniz gerekirse <karakterine değiştirin.

3. Ardından F5 tuşuna basarak bu kodu çalıştırın; D sütunundaki değeri 300'den büyük olan tüm satırların içerikleri temizlenecektir. Ekran görüntüsüne bakın:

değeri belirli bir değerden büyük veya küçükse tüm satırları temizlemek için vba kodu

Kullanışlı bir özellik ile hücre değerine göre hücre veya satır içeriğini temizleme

Eğer Kutools for Excel yüklüyse, belirli bir değere göre hücreleri veya satırları seçmek ve ardından içeriklerini tek seferde silmek için Belirli hücreleri seçin özelliğini kullanabilirsiniz.

Kutools for Excelkarmaşık görevleri kolaylaştırmak, yaratıcılığı ve verimliliği artırmak üzere 300'den fazla gelişmiş özelliğe sahiptir.Yapay zeka yetenekleriyle entegre edilmiştir, Kutools görevleri hassaslıkla otomatikleştirerek veri yönetimi sürecini zahmetsiz hale getirir.Kutools for Excel hakkında ayrıntılı bilgi…         Ücretsiz deneme…

Kutools for Excel yüklendikten sonra Kutools for Excel, aşağıdaki adımları uygulayın:

1. Veri Aralığı'nı seçin; hücre veya satır içeriklerini temizlemek istediğiniz değerlere sahip olmalıdır. Ardından Kutools > Seç > Belirli hücreleri seçin seçeneğine tıklayın (ekran görüntüsüne bakın):

Kutools > Seç > Belirli Hücreleri Seç seçeneğine tıklayın

2. Açılan Belirli hücreleri seçin iletişim kutusunda aşağıdaki işlemleri yapın:

  • Seçmek istediğiniz Hücreyeveya Tüm satırtıklayın;
  • Gerek duyduğunuz gibi Türü belirtin bölümünde kriterleri belirtin. Burada, D sütunundaki değeri 300'den büyük olan satırları seçmek istiyorum.

iletişim kutusunda seçenekleri belirtin

3. Ardından Tamam düğmesine tıklayın; 300'den büyük değere sahip tüm satırlar seçilecektir. Artık hücre içeriklerini silmek için klavyeden Sil tuşuna basabilirsiniz—ekran görüntüsüne bakın:

belirli bir değerden büyük değere sahip tüm satırlar seçilir, ardından içerikleri silinir

İpuçları: Kullanabileceğiniz birçok başka kriter vardır; aşağıdaki ekran görüntüsünde gösterildiği gibi iletişim kutusundan kendi koşulunuzu belirtin:
iletişim kutusunda birçok başka kriter

Boş hücre içeriyorsa VBA kodu ile Seçim İçindeki Veri satırlarını temizleme

Bu durumda, Veri Aralığı’ndaki herhangi bir hücre boşsa, aşağıdaki ekran görüntüsünde gösterildiği gibi ilgili satırdaki verileri temizlemek istiyorum.

Boş hücre içeriyorsa bir aralıktaki satır verilerini temizle

Bu görevi tamamlamak için lütfen aşağıdaki VBA kodunu uygulayın:

1. ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Ekle > Modül seçeneğine tıklayın ve ardından aşağıdaki kodu Modül penceresine yapıştırın.

VBA kodu: Boş hücre içeriyorsa satır verilerini temizleme

Sub ClearContents()
'Updateby ExtendOffice
Dim xcell As Range
Set xrng = Application.Range("A2:D12")
For Each xcell In xrng
If xcell.Value = "" Then
Intersect(xcell.EntireRow, xrng).ClearContents
End If
Next
End Sub
Not: Yukarıdaki kodda,A2:D12içinden Hücre içeriğini temizle istediğiniz boş hücreleri içeren Veri Aralığı'dir.

3. Ardından, belirlediğiniz aralıkta boş hücre içeren satır verilerini aynı anda temizlemek için F5 tuşuna basarak bu kodu çalıştırın.

VBA kodu ile Arka Plan Rengi'e göre Hücre içeriğini temizle

Belirli bir arka plan rengine sahip hücreleri temizlemek için aşağıdaki VBA kodunu kullanabilirsiniz.

1.ALT + F11tuşlarına basarak Microsoft Visual Basic for ApplicationsPenceresini açın.

2.Ekle>Modülseçeneğine tıklayın ve ardından aşağıdaki kodu ModülPenceresine yapıştırın.

VBA kodu: Arka Plan Rengi'e göre Hücre içeriğini temizle

Sub Clearcontents()
'Updateby ExtendOffice
Dim xcell As Range
Dim xrng As Range
Set xrng = Application.Range("A2:D12")
    For Each xcell In xrng
        If xcell.Interior.Color = RGB(252, 228, 214) Then
            xcell.Clearcontents
        End If
    Next
End Sub
Not: Yukarıdaki kodda,A2:D12kullanmak istediğiniz Veri Aralığı'dir;RGB(252, 228, 214)hücreleri temizlemek için dayanacağınız belirli renktir. Arka Plan Rengi'nin RGB değerini bilgisayarınızda bulunan Paintprogramını kullanarak çıkarabilirsiniz.

3. Ardından, belirtilen Arka Plan Rengi'ne sahip hücre içeriklerini hemen temizlemek için F5 tuşuna basın. Ekran görüntüsüne bakın:

arka plan rengine göre hücre içeriğini temizlemek için vba kodu

  • Süper Formül Çubuğu (birden fazla metin satırını ve formülü kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtre Aralığı'na Yapıştır…
  • Birleştirilmiş Hücreler/Satırlar/Sütunlar ve Verileri Saklama; Hücreleri Böl İçeriği; Yinelenen Satırı Birleştir ve Topla/Ortalama Al… Tekrarlanan Girişleri Önleyen Hücreler;Aralıkları Karşılaştır…
  • Yinelenen veya Benzersiz Satırları Seçin; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Yaklaşık Arama, Birden Fazla Çalışma Kitabında; Rastgele Seçim…
  • Tam Kopyala — Formül referansını değiştirmeden birden fazla hücreye uygulayın; Çoklu Sayfalara Otomatik Referans Oluşturun; Madde İşaretleri Ekle, onay kutusu ve daha fazlası…
  • Sık Kullanılan Formülleri Kaydedin ve Hızlıca Ekleyin, aralıklar, grafikler ve resimler;Hücreleri Şifreleyin şifreyle;Posta Listesi Oluşturunve e-posta gönderin…
  • Metni Çıkart, Metin Ekle, Belirli Konumdaki Karakteri Sil, Boşlukları Kaldır; Veri Sayfası İstatistikleri Oluşturun ve Yazdırın; Hücre İçeriği ile Açıklamalar Arasında Dönüştürme…
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay/hafta/gün, sıklık ve daha fazlasına göre; Özel Filtrekalın, italik… gibi stillere göre
  • Çalışma Kitaplarını ve Sayfalarını Birleştirin; tabloları, anahtar sütuna göre birleştirin; veriyi çoklu sayfalara bölün; xls, xlsx ve PDF dosyalarını toplu olarak dönüştürün…
  • PivotTable Şuna Göre Gruplama: Hafta numarası, haftanın günü ve daha fazlası… Kilitli Olmayanları Göster, Seçimi Kilitle farklı renklerle; Formül veya Ad İçeren Hücreleri Vurgulayın…
kte tab 201905
  • Word, Excel ve PowerPoint'te sekmeli düzenleme ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
  • Günlük verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
officetab alt