Bagaimana mencegah penomoran otomatis pada header kolom duplikat di tabel Excel?

Di Excel, saat Anda mengetikkan header kolom duplikat di tabel, itu akan otomatis menambahkan nomor seperti nama, nama1, nama2, dan nomor tidak dapat dihapus seperti gambar di bawah ini. Untuk mencegah penomoran otomatis pada header kolom duplikat dalam tabel, Anda dapat menambahkan spasi tambahan ke header duplikat. Berikut adalah kode VBA yang dapat membantu Anda mengulangi tajuk dan menambahkan spasi tambahan secara otomatis untuk membuatnya berbeda tetapi terlihat sama.

Otomatis tambahkan spasi tambahan ke header

Catatan: metode yang disediakan dalam tutorial ini diuji di Excel 2021, mungkin ada beberapa perbedaan di versi Excel yang berbeda.

1. Ketik header yang ingin Anda ulangi di kolom, lalu tekan lain + F11 kunci untuk mengaktifkan Microsoft Visual Basic untuk Aplikasi jendela.

2. klik Menyisipkan > Modul untuk membuat modul baru di Microsoft Visual Basic untuk Aplikasi jendela, lalu salin dan tempel kode di bawah ini ke sana.

VBA: Ulangi dan tambahkan spasi tambahan

Sub repeat()
'UpdatebyExtendoffice20220927
    Dim xRg As Range
    Dim saveRg As Range
    Dim xIndex As Integer
    Dim xCount As Integer
    Dim k As Integer
    Dim xStr As String
    Set xRg = Application.InputBox("Select the cells that you want to repeat", "kte", , , , , , 8)
    xIndex = Application.InputBox("Enter the repeat times", "kte")
    Set saveRg = Application.InputBox("Select a cell to output", "kte", , , , , , 8)
    xStr = ""
    xCount = xRg.Cells.Count * xIndex
    Set saveRg = saveRg.Range("a1").Resize(1, xCount)
    k = 0
    For i = 1 To xIndex
        For j = 1 To xRg.Cells.Count
            k = k + 1
            saveRg.Cells(k).Value = xRg.Cells(j).Value + xStr
        Next
        xStr = xStr + " "
    Next
End Sub

3. klik Run  tombol di pita atau tekan F5 tombol untuk mengaktifkan kode, pada dialog popping pertama, pilih header yang ingin Anda ulangi. Klik OK.

4. Pada dialog popping kedua, ketik waktu pengulangan yang Anda inginkan. Klik OK.

5. Pilih sel yang Anda inginkan untuk menampilkan header berulang. Klik OK.

Sekarang tajuk telah diulang dan ditambahkan dengan spasi tambahan.

6. Pilih header dan salin dengan menekan Ctrl + C, dan tempel kembali ke tabel yang Anda butuhkan dengan menekan Ctrl + V.

Sekarang Anda dapat melihat tabel memiliki header kolom duplikat tanpa penomoran.

---

Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

• 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 dan Menyimpan Data; Pisahkan Konten Sel; Gabungkan Baris Duplikat dan Jumlah / Rata-rata... 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 ...
• Favorit dan Sisipkan Rumus dengan Cepat, Rentang, Grafik dan Gambar; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
• 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...
• Pengelompokan Tabel Pivot menurut nomor minggu, hari dalam seminggu dan banyak lagi ... Tampilkan Sel yang Tidak Terkunci dan Terkunci dengan warna berbeda; Sorot Sel Yang Memiliki Rumus / Nama...

Read More ... Fitur Lengkap Uji Coba Gratis 30 Hari... Membeli... 

---

Office Tab - menghadirkan 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!

Read More ... Fitur Lengkap Uji Coba Gratis 30 Hari... Membeli...