Boş olmayan hücreleri Excel'de belirli bir değerle nasıl değiştirebilirim?
Excel'de, bir seçimi hızlı ve kolay bir şekilde değiştirebilir veya belirli bir değerle doldurabiliriz. Ctrl + Enter anahtarlar, ancak yalnızca boş olmayan hücreleri, seçtiğiniz aralıkta hem boş hücreleri hem de değer hücrelerini içeren belirli bir değerle nasıl değiştireceğinizi biliyor musunuz?
Bul ve Değiştir özelliğini kullanarak boş olmayan hücreleri belirli bir değerle değiştirin
Boş olmayan hücreleri VBA kodunu kullanarak belirli bir değerle değiştirin
Bul ve Değiştir özelliğini kullanarak boş olmayan hücreleri belirli bir değerle değiştirin
Excel'de Bul ve Değiştir özelliği, boş olmayan tüm hücreleri bulmamıza ve ardından bunları istediğiniz gibi belirli bir değerle değiştirmemize yardımcı olabilir.
1. Yalnızca değer hücrelerini değiştirmek istediğiniz veri aralığını seçin.
2. Ve sonra tuşuna basın. Ctrl + H açmak için Bul ve Değiştir iletişim kutusunda, Bul ve Değiştir diyalog, altında değiştirmek sekme, yazın * içinde Ne bul alanına girin ve ihtiyacınız olan değeri girin Ile değiştirin metin kutusu, ekran görüntüsüne bakın:
3. Sonra tıklayın Tümünü Değiştir düğmesi ve size değiştirilecek hücre sayısını söyleyen bir iletişim kutusu açılır, iletişim kutularını kapatın, ardından seçilen aralıktaki tüm değerler belirttiğiniz verilerle değiştirilir, ekran görüntülerine bakın:
 |
 |
 |
Boş olmayan hücreleri VBA kodunu kullanarak belirli bir değerle değiştirin
Aşağıdaki VBA kodunu kullanarak, tüm veri hücrelerini aynı anda ihtiyaç duyduğunuz değerlerle değiştirebilirsiniz. Lütfen şunu yapın:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi.
2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.
VBA kodu: Boş olmayan hücreleri belirli bir değerle değiştirin
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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın ve verileri değiştirmek istediğiniz aralığı seçmenizi hatırlatmak için bir komut kutusu açılır, ekran görüntüsüne bakın:
4. Sonra tıklayın OKve bir sonraki istem kutusuna özel değerinizi girin, ekran görüntüsüne bakın:
5. Ve sonra tıklayın OK, seçtiğiniz aralıktaki tüm değerler tek seferde belirli verilerle değiştirildi.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
