Bagaimana cara menggabungkan nilai sel sampai menemukan sel kosong di kolom?
Misalnya, saya memiliki daftar nilai yang termasuk beberapa sel kosong, dan sekarang, saya ingin menggabungkan setiap set data antara kosong ke dalam sel dan mencantumkan nilai gabungan di kolom lain seperti gambar berikut yang ditampilkan. Bagaimana saya bisa menggabungkan sel sampai menemukan sel kosong di kolom?
Gabungkan nilai sel hingga menemukan sel kosong di kolom dengan kode VBA
Gabungkan nilai sel sampai menemukan sel kosong di kolom dengan Kutools for Excel
Gabungkan nilai sel hingga menemukan sel kosong di kolom dengan kode VBA
Tidak ada cara langsung bagi Anda untuk menggabungkan sekumpulan sel di antara yang kosong, tetapi, Anda bisa menerapkan kode VBA berikut untuk menanganinya. Harap lakukan sebagai berikut:
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: menggabungkan nilai sel sampai menemukan sel kosong
Sub Concatenatecells()
'updateby Extendoffice
Dim xRg As Range
Dim xSaveToRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xTStr As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please selecte the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "the selected range is more than one column", vbInformation, "Kutools for Ecel"
Exit Sub
End If
Set xSaveToRg = Application.InputBox("Please selecte output cell:", "Kutools for Excel", , , , , , 8)
If xSaveToRg Is Nothing Then Exit Sub
Set xSaveToRg = xSaveToRg.Cells(1)
Application.ScreenUpdating = False
For Each xCell In xRg
If xCell <> "" Then
xTStr = xTStr & xCell & " "
Else
xSaveToRg.Value = xTStr
Set xSaveToRg = xSaveToRg.Offset(1)
xTStr = ""
End If
Next
If xTStr <> "" Then xSaveToRg.Value = Left(xTStr, Len(xTStr) - 1)
Application.ScreenUpdating = True
End Sub
3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt muncul untuk mengingatkan Anda memilih rentang data yang ingin Anda gabungkan, lihat tangkapan layar:
4. Lalu klik OK, dan kotak prompt lain muncul, pilih sel untuk menampilkan hasil gabungan, lihat tangkapan layar:
5. Dan kemudian klik OK tombol, dan data daftar kolom digabungkan antara yang kosong, lihat tangkapan layar:
Gabungkan nilai sel sampai menemukan sel kosong di kolom dengan Kutools for Excel
Jika Anda memiliki Kutools untuk Excel, menggabungkan nya Transformasi Rentang dan Menggabungkan fitur, Anda juga dapat menyelesaikan pekerjaan ini secepat mungkin. Itu Transformasi Rentang utilitas dapat membantu Anda untuk mengubah satu kolom menjadi rentang, dan Menggabungkan fitur dapat membantu Anda menggabungkan rentang yang diubah menjadi kolom.
| Kutools untuk Excel : dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. |
Setelah menginstal Kutools untuk Excel, lakukan hal berikut:
1. Pilih sel yang ingin Anda gabungkan, dan klik Kutools > Jarak > Transformasi Rentang, lihat tangkapan layar:
2. di Transformasi Rentang kotak dialog, periksa Kolom tunggal untuk rentang pilihan di bawah Jenis transformasi, Dan kemudian pilih Rekaman pembatas sel kosong bawah Baris per rekor, lihat tangkapan layar:
3. Kemudian klik Ok, dan kotak prompt akan muncul untuk mengingatkan Anda memilih sel untuk menampilkan hasilnya, lihat tangkapan layar:
4. Klik OK, dan data kolom tunggal telah diubah menjadi beberapa baris dan kolom oleh sel kosong, lihat tangkapan layar:
5. Data yang dikonversi ada dalam beberapa kolom, jadi Anda perlu menggabungkannya menjadi satu kolom, pilih rentang data dan klik Kutools > Gabungkan & Pisahkan > Gabungkan Baris, Kolom, atau Sel tanpa Kehilangan Data, lihat tangkapan layar:
6. di Gabungkan Kolom atau Baris kotak dialog, lakukan opsi berikut:
(1.) Pilih Gabungkan kolom pilihan dari Untuk menggabungkan sel yang dipilih menurut opsi berikut;
(2.) Kemudian tentukan pemisah yang ingin Anda pisahkan nilai gabungannya;
(3.) Pilih bagaimana Anda ingin menangani sel gabungan. Anda bisa menyimpan atau menghapus data asli, dan Anda juga bisa menggabungkan sel gabungan. Lihat tangkapan layar:
7. Setelah menyelesaikan pengaturan, klik Ok or Mendaftar tombol, sel telah digabungkan menjadi satu kolom dengan pemisah tertentu, lihat tangkapan layar:
Unduh dan uji coba gratis Kutools untuk Excel Sekarang!
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!
