Bagaimana cara menggabungkan sel kosong di atas / kiri secara otomatis di Excel?
Pada artikel ini, saya akan berbicara tentang menggabungkan sel kosong di atas atau kiri secara otomatis seperti gambar di bawah ini. Sebenarnya, tidak ada utilitas bawaan yang bisa menangani tugas ini, tetapi kode makro bisa.
| Gabungkan yang kosong di atas | ||
 |
 |
 |
| Gabungkan yang kosong | ||
 |
|
 |
Gabungkan sel kosong di atas berdasarkan kolom
Gabungkan sel kosong di atas (hanya berfungsi untuk satu kolom)
Gabungkan sel kosong di atas berdasarkan kolom
Misalkan ada rentang data dalam tiga kolom, dan sekarang Anda ingin menggabungkan data di atas berdasarkan kolom C.
1. tekan Alt + F11keys untuk mengaktifkan Microsoft Visual Basic untuk Aplikasi jendela, dan klik Menyisipkan > Modul. Lihat tangkapan layar:
2. Kemudian tempel kode di bawah ini ke skrip kosong. Lihat tangkapan layar:
VBA: Gabungkan kosong di atas berdasarkan kolom berikutnya
Sub MergeCells()
'UpdatebyExtendoffice2017025
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value = "" Then
Range(xCell, xCell.Offset(-1, 0)).Merge
End If
Next
End Sub
3. tekan F5 kunci untuk menjalankan kode, dan kemudian sebuah dialog muncul untuk mengingatkan Anda untuk memilih rentang untuk bekerja. Lihat tangkapan layar:
4. klik OK, lalu sel kosong telah digabungkan di atas. Lihat tangkapan layar:
Gabungkan sel kosong di atas (hanya berfungsi untuk satu kolom)
Berikut adalah kode makro yang bisa menggabungkan sel kosong di atas di kolom yang ditentukan.
1. tekan Alt + F11 kunci untuk mengaktifkan Microsoft Visual Basic untuk Aplikasi jendela, dan klik Menyisipkan > Modul. Lihat tangkapan layar:
2. Tempel kode di bawah ini ke skrip. Lihat tangkapan layar:
VBA: Gabungkan sel kosong di atas
Sub mergeblankswithabove()
'UpdatebyExtendoffice20171025
Dim I As Long
Dim xRow As Long
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range (single column):", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Only work for single column", , "KuTools For Excel"
Exit Sub
End If
xRow = xRg.Rows.Count
Set xRg = xRg(xRow)
For I = xRow To 1 Step -1
Set xCell = xRg.Offset(I - xRow, 0)
Debug.Print xCell.Address
If xCell.Value = "" Then Range(xCell, xCell.Offset(-1, 0)).Merge
Next
End Sub
3. tekan F5 kunci untuk menjalankan kode, dan dialog muncul untuk Anda memilih rentang kolom. Lihat tangkapan layar:
4. Klik OK. Dan sel kosong yang dipilih telah digabungkan di atas.
 |
|
 |
Gabungkan sel kosong di kiri
Jika Anda ingin menggabungkan sel kosong ke kiri, kode berikut dapat membantu Anda.
1. tekan Alt + F11 kunci untuk mengaktifkan Microsoft Visual Basic untuk jendela Aplikasi, dan klik Menyisipkan > Modul. Lihat tangkapan layar:
2. Kemudian tempel kode di bawah ini ke skrip kosong. Lihat tangkapan layar:
VBA: Gabungkan yang kosong
Sub mergeblankswithleft()
'UpdatebyExtendoffice20171025
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value = "" Then Range(xCell, xCell.Offset(0, -1)).Merge
Next
End Sub
3. tekan F5 kunci untuk menjalankan kode, dan dialog muncul bagi Anda untuk memilih rentang. Lihat tangkapan layar:
4. klik OK. Sel kosong telah digabungkan di kiri.
| Gabungkan yang kosong | ||
|
|
|
Gabungkan sel yang sama atau pisahkan sel
|
Alat Produktivitas Kantor Terbaik
Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%
- Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
- Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
- Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
- Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
- Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
- Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
- Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
- Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
- Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
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!
