Excel'de boş olmayan hücreleri belirli bir değerle nasıl değiştirebilirsiniz?
Excel'de, Ctrl + Enter tuşlarına basarak bir seçimi hızlı ve kolayca belirli bir değerle doldurabilir veya değiştirebilirsiniz. Peki, hem boş hem de değer içeren hücrelerden oluşan bir aralıkta yalnızca boş hücreleri belirli bir değerle nasıl dolduracağınızı biliyor musunuz?
VBA kodu kullanarak boş olmayan Boş hücreler hücreleri belirli bir değerle değiştirme
Bul ve Değiştir özelliğini kullanarak boş olmayan Boş hücreler hücreleri belirli bir değerle değiştirme
Excel'deki Bul ve Değiştir özelliği, tüm dolu hücreleri kolayca bularak bunları istediğiniz değere dönüştürmenizi sağlar.
1. Yalnızca değer içeren hücreleri değiştirmek istediğiniz Veri Aralığı'nı seçin.
2. Ardından, Ctrl + H tuşlarına basarak Bul ve Değiştir iletişim kutusunu açın. Bul ve Değiştir iletişim kutusunda, Değiştir sekmesine gidin, * karakterini Ne aramak istiyorsunuz? alanına yazın ve gerekli değeri Bununla değiştir metin kutusuna girin; ekran görüntüsüne bakın:
3. Ardından, Tümünü Değiştir düğmesine tıklayın. Kaç hücrenin değiştirileceğini gösteren bir iletişim kutusu açılacak; bu iletişim kutusunu kapatın. Böylece, Aralık seçimi içindeki tüm değerler belirttiğiniz veriyle değiştirilmiş olacaktır. Ekran görüntülerine bakın:
 |  |  |
VBA kodu kullanarak boş olmayan Boş hücreler hücreleri belirli bir değerle değiştirme
Aşağıdaki VBA kodunu kullanarak tüm veri hücrelerini aynı anda istediğiniz değerlere dönüştürebilirsiniz. Şöyle yapı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 aşağıdaki kodu Modül Penceresi’ne yapıştırın.
VBA kodu: Boş olmayan Boş hücreler hücreleri belirli bir değerle değiştirme
Sub ReplaceNumbers()
'Update 20141111
Dim SRg As Range
Dim Rg As Range
Dim Str As Variant
On Error Resume Next
Set SRg = Application.Selection
Set SRg = Application.InputBox("select range:", "Kutools for Excel", SRg.Address, , , , , 8)
If Err <> 0 Then Exit Sub
Str = Application.InputBox("replace with:", "Kutools for Excel", Str)
If Str = False Then Exit Sub
For Each Rg In SRg
If Rg <> "" Then Rg = Str
Next
End Sub
3. Ardından F5 tuşuna basarak bu kodu çalıştırın; ardından verilerini değiştirmek istediğiniz aralığı seçmenizi hatırlatan bir uyarı kutusu açılacaktır. Ekran görüntüsüne bakın:
4. Ardından Tamam düğmesine tıklayın ve sonraki uyarı kutusuna belirtilen değeri girin; ekran görüntüsüne bakın:
5. Ardından Tamam düğmesine tıklayın; böylece Aralık seç içindeki tüm değerler aynı anda belirtilen veriyle değiştirilecektir.
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar