Loncat ke daftar isi utama

Bagaimana cara menyalin dan menempel hanya sel yang tidak kosong di Excel?

Sebagian besar dari kita mungkin mengalami masalah ini, ketika kita menyalin daftar data yang berisi beberapa sel kosong, dan kemudian menempelkannya ke kolom lain, sel kosong juga akan ditempelkan. Ini sangat mengganggu ketika kita tidak membutuhkan yang kosong dan hanya ingin menempelkan sel yang tidak kosong. Dalam hal ini, bagaimana kita bisa menyalin dan menempel hanya sel yang tidak kosong di Excel dengan cepat dan nyaman? Berikut beberapa trik cepat untuk Anda mengatasinya:

Salin dan tempel hanya sel yang tidak kosong dengan perintah Go To Special

Salin dan tempel hanya sel yang tidak kosong dengan fitur Filter

Salin dan tempel hanya sel yang tidak kosong dengan Formula Array

Salin dan tempel hanya sel yang tidak kosong dengan kode VBA

Salin dan tempel hanya sel yang tidak kosong dengan Kutools for Excel ide bagus3


panah gelembung kanan biru Salin dan tempel hanya sel yang tidak kosong dengan perintah Go To Special

Dengan Pergi ke khusus perintah, Anda dapat memilih semua data terlebih dahulu, lalu menyalin dan menempelkannya ke lokasi lain.

1. Pilih daftar data yang ingin Anda gunakan.

doc-copy-only-nonblanks1

2. Lalu klik Beranda > Temukan & Pilih > Pergi ke khusus, lihat tangkapan layar:

doc-copy-only-nonblanks1

3. di Pergi ke khusus kotak dialog, periksa Konstanta opsi, lihat tangkapan layar:

doc-copy-only-nonblanks1

4. Lalu klik OK, dan hanya sel nilai yang telah dipilih dalam daftar.

doc-copy-only-nonblanks1

5. Dan kemudian salin dan tempel data ke lokasi yang Anda inginkan. Dan hanya nilai sel yang tidak kosong yang telah ditempel. Lihat tangkapan layar:

doc-copy-only-nonblanks1

Note: Metode ini hanya tersedia untuk konstanta, tidak diterapkan ke sel rumus.


panah gelembung kanan biru Salin dan tempel hanya sel yang tidak kosong dengan fitur Filter

Grafik Filter Fitur dapat membantu Anda memfilter sel yang tidak kosong terlebih dahulu, lalu Anda dapat menyalin dan menempelkannya ke sel lain sesuai kebutuhan.

2. Klik Data > Filter, lihat tangkapan layar:

salinan dokumen hanya nonblanks6

3. Kemudian klik tombol tarik-turun di sudut kanan sel dalam daftar yang dipilih, dan hapus centang Kosong opsi di bawah menu drop down. Lihat tangkapan layar:
doc-copy-only-nonblanks1

4. Dan kemudian klik OK, semua sel yang tidak kosong telah disaring seperti gambar berikut yang ditampilkan:

doc-copy-only-nonblanks1

5. Akhirnya, Anda dapat menyalin data yang difilter dan menempelkannya ke lokasi mana pun yang Anda butuhkan.

Note: Nilai dan rumus diterapkan menggunakan cara ini.


Pilih sel yang tidak kosong sekaligus

Klik untuk uji coba fitur lengkap gratis dalam 30 hari!
doc kutools memilih sel yang tidak kosong

panah gelembung kanan biru Salin dan tempel hanya sel yang tidak kosong dengan Formula Array

Untuk menyalin dan menempelkan hanya sel yang tidak kosong, Anda juga bisa menerapkan rumus array berikut.

1. Selain data Anda, masukkan rumus berikut ke sel kosong:

=LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX(A:A,SMALL(IF($A$1:$A$15<>"",ROW($A$1:$A$15)),ROWS($B$1:B1)))))

doc-copy-only-nonblanks1

Note: Dalam rumus di atas, A1: A15 adalah daftar data yang ingin Anda gunakan. Anda dapat mengubahnya sesuai kebutuhan.

2. Lalu tekan Shift + Ctrl + Masuk bersama-sama, lalu pilih sel B1, dan seret gagang isian ke rentang yang Anda inginkan untuk memuat rumus ini, dan semua nilai sel yang tidak kosong telah diekstraksi. Lihat tangkapan layar:

doc-copy-only-nonblanks1

3. Karena ini adalah rumus, saat Anda menyalinnya ke tempat lain, Anda harus menyalin dan menempelkannya sebagai nilai.

Note: Rumus ini hanya tersedia untuk konstanta, tidak diterapkan ke sel rumus.


panah gelembung kanan biru Salin dan tempel hanya sel yang tidak kosong dengan kode VBA

Jika Anda tertarik dengan kode VBA, Anda dapat menjalankan kode berikut untuk menyelesaikan tugas ini.

1. Tahan ALT + F11 kunci, dan itu membuka Jendela Microsoft Visual Basic for Applications.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.

Kode VBA: Salin dan tempel hanya sel yang tidak kosong di Excel

Sub PasteNotBlanks()
'Update 20140325
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
If InputRng.Columns.Count > 1 Then
    MsgBox "Please select one column."
    Exit Sub
End If
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
InputRng.SpecialCells(xlCellTypeConstants).Copy Destination:=OutRng.Range("A1")
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, kotak prompt akan muncul untuk mengingatkan Anda memilih rentang data yang ingin Anda gunakan. Lihat tangkapan layar:

doc-copy-only-nonblanks1

4. Dan kemudian klik OK, kotak prompt lain akan muncul untuk membiarkan Anda memilih sel untuk meletakkan data.

doc-copy-only-nonblanks1

5. Klik OK untuk menyelesaikan kode ini, dan hanya nilai sel yang tidak kosong yang telah ditempelkan ke posisi yang Anda tentukan.

Note: Kode ini hanya tersedia untuk konstanta.


panah gelembung kanan biru Salin dan tempel hanya sel yang tidak kosong dengan Kutools for Excel

Apakah ada cara yang lebih mudah dari diatas? Tentu saja, Kutools untuk Excel's Pilih Sel Tidak KosongUtilitas s dapat membantu Anda memilih sel yang tidak kosong terlebih dahulu, lalu menyalin dan menempelkannya.

Kutools untuk Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. 

Setelah pemasangan gratis Kutools for Excel, lakukan seperti di bawah ini:

1. Pilih rentang sel, dan klik Kutools > Pilih > Pilih Sel Tidak Kosong. Lihat tangkapan layar:
doc pilih sel yang tidak kosong 2

2. Kemudian sel tidak kosong dipilih, tekan Ctrl + C untuk menyalinnya, lalu pilih sel tempat Anda ingin menampilkan hasil paset, tekan Ctrl + V untuk menempelkan sel tidak kosong yang dipilih. Lihat tangkapan layar:
doc pilih sel yang tidak kosong 3

panah gelembung kanan biru Salin dan tempel hanya sel yang tidak kosong

Kutools for Excel: 300+ fungsi yang harus Anda miliki di Excel, Uji coba gratis 30 hari dari sini

Alat Produktivitas Kantor Terbaik

馃 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

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...

Deskripsi Produk


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!
Comments (11)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
=Filter(A:A,A:A<>"")
This comment was minimized by the moderator on the site
Array formula Works fine on text
but don't work on numbers.
This comment was minimized by the moderator on the site
Not working on Numbers !!!
Works fine on text !!!
Please guide
This comment was minimized by the moderator on the site
Thanks for the great tips! I am using the Find & Select feature, but it's taking a long time because my spreadsheet contains 70 columns and 450k rows. Is there a way to fasten the process?
This comment was minimized by the moderator on the site
When i select and copy only non-blank cells, how can i then paste it somewhere else with keeping the same empty ranges between them?
This comment was minimized by the moderator on the site
These tools delete the blank cells and compress the row. I want the format to be retained, including the spaces, but I do not want empty cells to overwrite cells containing existing data. i.e. I want to add the new, copied, cells in a column onto an existing column.
This comment was minimized by the moderator on the site
Hi #abc I have used your formula =LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX('List of Overdue items'!A:A,SMAL L(IF('List of Overdue items'!A$1:A$15 00"",ROW('List of Overdue items'!A$1:A$15 00)),ROWS('List of Overdue items'!B$1:B2)) ))) I have data in one Worksheet and want to copy that data into another worksheet (same doc). Can you help?
This comment was minimized by the moderator on the site
Is there a way to make the macro work when referencing between different sheets?
This comment was minimized by the moderator on the site
This formula is absolutely amazing, thank you. Unfortunately it breaks when trying to copy from another sheet, is there a workaround?
This comment was minimized by the moderator on the site
correct the references when using the formula between different sheets. It does work. =LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX('List of Overdue items'!A:A,SMALL(IF('List of Overdue items'!A$1:A$1500"",ROW('List of Overdue items'!A$1:A$1500)),ROWS('List of Overdue items'!B$1:B2)))))
This comment was minimized by the moderator on the site
thanks for the super formula: =LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX(A:A,SMALL(IF($A$1:$A$15"",ROW($A$1:$A$15)),ROWS($B$1:B1)))))
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations