Bagaimana cara nomor otomatis menggabungkan sel di Excel?
Bagaimana kita bisa mengisi nomor seri ke dalam daftar sel gabungan ukuran berbeda di Excel? Pertama dalam pikiran kita adalah menyeret pegangan IsiOtomatis untuk mengisi sel yang digabungkan, tetapi, dalam kasus ini, kita akan mendapatkan pesan peringatan berikut, dan tidak dapat mengisi sel yang digabungkan.
Karena pegangan isian tidak mendukung sel yang digabungkan, di sini, saya dapat berbicara tentang beberapa trik lain untuk menyelesaikan masalah ini.
Nomor otomatis / isi sel gabungan dengan kode VBA
Nomor otomatis / isi sel gabungan dengan kode VBA
Kode VBA berikut dapat membantu Anda memberi nomor pada sel gabungan yang dipilih dengan cepat. Harap lakukan sebagai berikut:
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: Sel gabungan nomor otomatis
Sub NumberCellsAndMergedCells()
'Update 20141028
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xIndex = 1
Set Rng = WorkRng.Range("A1")
Do While Not Intersect(Rng, WorkRng) Is Nothing
Rng.Value = xIndex
xIndex = xIndex + 1
Set Rng = Rng.MergeArea.Offset(1)
Loop
End Sub
3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt akan muncul untuk membiarkan Anda memilih sel gabungan yang ingin Anda isi, lihat tangkapan layar:
4. Setelah memilih sel yang digabungkan, dan klik OK, sekarang, sel gabungan yang Anda pilih telah diisi dengan nomor urut, lihat tangkapan layar:
Artikel terkait:
Bagaimana cara nomor otomatis atau nomor ulang setelah filter di Excel?
Bagaimana cara cepat menggabungkan baris yang berdekatan dengan data yang sama di Excel?
Bagaimana cara memisahkan sel dan mengisi dengan nilai duplikat di Excel?
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!