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