Bagaimana cara mengganti sel yang tidak kosong dengan nilai tertentu di Excel?
Di Excel, kita dapat dengan cepat dan mudah mengganti atau mengisi pilihan dengan nilai tertentu dengan menekan Ctrl + Enter kunci, tetapi, apakah Anda tahu cara mengganti hanya sel yang tidak kosong dengan nilai tertentu dalam rentang pilihan Anda yang berisi sel kosong dan sel nilai.
Ganti sel yang tidak kosong dengan nilai tertentu menggunakan fitur Temukan dan Ganti
Ganti sel yang tidak kosong dengan nilai tertentu menggunakan kode VBA
Ganti sel yang tidak kosong dengan nilai tertentu menggunakan fitur Temukan dan Ganti
Di Excel, fitur Temukan dan Ganti dapat membantu kami menemukan semua sel yang tidak kosong dan kemudian menggantinya dengan nilai yang ditentukan sesuka Anda.
1. Pilih rentang data yang ingin Anda ganti hanya sel nilai.
2. Lalu tekan Ctrl + H untuk membuka Cari dan Ganti kotak dialog, di Cari dan Ganti dialog, di bawah menggantikan tab, ketik * dalam Temukan apa bidang, dan masukkan nilai yang Anda butuhkan Ganti dengan kotak teks, lihat tangkapan layar:
3. Lalu klik Ganti Semua tombol, dan dialog muncul untuk memberi tahu Anda jumlah sel yang akan diganti, tutup dialog, lalu semua nilai dalam rentang yang dipilih telah diganti dengan data yang Anda tentukan, lihat tangkapan layar:
Ganti sel yang tidak kosong dengan nilai tertentu menggunakan kode VBA
Dengan menggunakan kode VBA berikut, Anda juga bisa mengganti semua sel data ke nilai yang Anda butuhkan sekaligus. Harap lakukan seperti ini:
1. Tahan ALT + F11 kunci untuk membuka Jendela Microsoft Visual Basic for Applications.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.
Kode VBA: Ganti sel yang tidak kosong dengan nilai tertentu
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. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt akan muncul untuk mengingatkan Anda memilih rentang yang ingin Anda ganti datanya, lihat tangkapan layar:
4. Lalu klik OK, dan masukkan nilai spesifik Anda ke dalam kotak prompt berikutnya, lihat tangkapan layar:
5. Dan kemudian klik OK, semua nilai dalam rentang yang Anda pilih telah diganti dengan data tertentu sekaligus.
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!