Bagaimana cara menggabungkan nilai sel hingga ditemukan sel kosong di kolom di Excel?

Misalnya, saya memiliki daftar nilai, yang mencakup beberapa sel kosong, dan saya ingin menggabungkan setiap set data di antara sel kosong ke dalam sel dan mencantumkan nilai gabungan di kolom lain, seperti yang ditunjukkan pada gambar berikut. Bagaimana cara menggabungkan sel hingga ditemukan sel kosong di kolom?

Gabungkan nilai sel hingga sel kosong ditemukan di kolom dengan kode VBA

Gabungkan nilai sel hingga sel kosong ditemukan di kolom dengan Kutools for Excel

Gabungkan nilai sel hingga sel kosong ditemukan 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 hingga ditemukan 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 select 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 Excel"
        Exit Sub
    End If
    Set xSaveToRg = Application.InputBox("Please select 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 hingga sel kosong ditemukan 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.

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: