Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara memindahkan baris duplikat ke lembar lain di Excel?

Jika Anda memiliki daftar rentang data yang berisi beberapa nilai duplikat dalam kolom tertentu, sekarang, Anda ingin memindahkan seluruh baris ke lembar lain berdasarkan sel duplikat. Bagaimana Anda bisa menangani tugas ini di Excel?

Pindahkan seluruh baris ke lembar lain berdasarkan sel duplikat dalam kolom

Pindahkan seluruh baris ke lembar lain berdasarkan baris duplikat


Pindahkan seluruh baris ke lembar lain berdasarkan sel duplikat dalam kolom


Jika ada nilai duplikat dalam kolom, lalu pindahkan seluruh baris ke lembar lain, kode VBA berikut dapat membantu Anda:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di jendela modul.

Kode VBA: Pindahkan seluruh baris ke lembar lain berdasarkan sel duplikat di kolom:

Sub CutDuplicates()
'Updateby Extendoffice
    Dim xRgS As Range
    Dim xRgD As Range
    Dim I As Long, J As Long
    On Error Resume Next
    Set xRgS = Application.InputBox("Please select the column:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRgS Is Nothing Then Exit Sub
    Set xRgD = Application.InputBox("Please select a desitination cell:", "KuTools For Excel", , , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    xRows = xRgS.Rows.Count
    J = 0
    For I = xRows To 1 Step -1
        If Application.WorksheetFunction.CountIf(xRgS, xRgS(I)) > 1 Then
            xRgS(I).EntireRow.Copy xRgD.Offset(J, 0)
            xRgS(I).EntireRow.Delete
            J = J + 1
        End If
    Next
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan di kotak dialog yang muncul, pilih kolom yang berisi sel duplikat yang ingin Anda pindahkan berdasarkan, lihat tangkapan layar:

4. Lalu klik OK, di kotak prompt lain, pilih sel di lembar lain tempat Anda ingin meletakkan baris yang dipindahkan, lihat tangkapan layar:

5. Dan kemudian klik OK, baris yang memiliki nilai duplikat di kolom A telah dipindahkan ke lembar baru, lihat tangkapan layar:


Pindahkan seluruh baris ke lembar lain berdasarkan baris duplikat

Jika Anda ingin memindahkan baris duplikat dari berbagai sel, kode VBA berikut dapat membantu Anda:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di jendela modul.

Kode VBA: Pindahkan seluruh baris ke lembar lain berdasarkan baris duplikat:

Sub CutDuplicates()
'Updateby Extendoffice
    Dim xRgD As Range, xRgS As Range
    Dim I As Long, J As Long, K As Long, KK As Long
    On Error Resume Next
    Set xRgS = Application.InputBox("Please select the data range:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRgS Is Nothing Then Exit Sub
    Set xRgD = Application.InputBox("Please select a desitination cell:", "KuTools For Excel", , , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    KK = 0
    For I = xRgS.Rows.Count To 1 Step -1
        For J = 1 To I - 1
            For K = 1 To xRgS.Columns.Count
                Debug.Print xRgS.Rows(I).Cells(, K).Value
                Debug.Print xRgS.Rows(J).Cells(, K).Value
                If xRgS.Rows(I).Cells(, K).Value <> xRgS.Rows(J).Cells(, K).Value Then Exit For
            Next
            If K = xRgS.Columns.Count + 1 Then
                xRgS.Rows(I).EntireRow.Copy xRgD.Offset(KK, 0).EntireRow
                xRgS.Rows(I).EntireRow.Delete
                KK = KK + 1
            End If
        Next
    Next
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, di kotak dialog yang muncul, pilih pilih rentang data yang ingin Anda pindahkan baris duplikat, lihat tangkapan layar:

4. Klik OK tombol, lalu di kotak prompt lain, pilih sel di lembar baru tempat Anda ingin meletakkan baris permohonan yang dipindahkan, lihat tangkapan layar:

5. Lalu klik OK tombol, dan sekarang, baris duplikat telah dipindahkan ke lembar lain yang Anda tentukan sekaligus, lihat tangkapan layar:


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-2019 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 kte 201905

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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (6)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Ini persis apa yang saya cari, terima kasih! Saya melakukan kesalahan beberapa kali pertama dan kemudian terus membeku. Tapi begitu saya melakukannya persis seperti tangkapan layar (memilih rentang yang tepat, menyalin/menempelkan header di lembar lain, dan hanya memilih bidang pertama di bawah header pertama) makro seketika.
Komentar ini diminimalkan oleh moderator di situs
Berhasil gan!!!!! Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Untuk beberapa alasan. Ini berhasil sekali, tetapi saya tidak bisa menjalankannya lagi. TI terus mengatur waktu. Ada tips?
Komentar ini diminimalkan oleh moderator di situs
Halo, apa itu,

Tengo una duda con respecto a esta macro; Fungsi makro yang sempurna dan itu hanya perlu, masalah adalah kebiasaan yang harus digunakan dengan tab excel pada apa yang hampir sama dengan 50 juta entri.

Dengan menggunakan, Excel pasti akan runtuh dan tidak ada tanggapan.

Adakah cara untuk membuat makro ini berfungsi dalam kasus ini? O quizas, conseguir alguna formula/combinacion de formulas en excel que haga lo mismo? Jika Anda datang ke kasus rumus, biasanya excel tidak terlalu lambat untuk diproses dan menghasilkan hasil yang cepat.

Salam dan terima kasih.

Raphael.
Komentar ini diminimalkan oleh moderator di situs
Halo,

Tenia una pregunta con respecto esta macro; Makro ini tepat jika diperlukan dan berfungsi sempurna, tetapi masalah saya adalah fungsi tunggal dalam grup data yang tidak terlalu besar.

Ketika Anda menggunakan grup data grandes (dalam kasus saya, 50 juta filas), sangat tidak terelakkan; Dia mungkin banyak cosas pero sigue colapsando.

Adakah cara untuk membuat makro berfungsi dalam kasus ini? ide alguna? Terima kasih sebelumnya.

Raphael.
Komentar ini diminimalkan oleh moderator di situs
Halo, Rafael

Ya, seperti yang Anda katakan, jika datanya besar, kode vba tidak akan bekerja dengan sempurna. Dalam hal ini, Anda dapat menggunakan kolom bantu untuk menandai baris duplikat terlebih dahulu, kemudian menggunakan fungsi filter untuk memfilter baris duplikat, terakhir menyalin baris duplikat ke lembar kerja lain. Silakan lihat demo di bawah ini:
Untuk menemukan baris duplikat, harap terapkan rumus ini: =IF(COUNTIFS($A$2:$A2,$A2,$B$2:$B2,$B2,$C$2:$C2,$C2) >1, "Duplicate row", "")
Jika Anda hanya ingin menemukan sel duplikat dalam satu kolom, harap terapkan rumus ini: =IF(COUNTIFS($A$2:$A2,$A2) >1, "Baris duplikat", "")
https://www.extendoffice.com/images/stories/comments/comment-skyyang/move-duplicates.gif
Silahkan dicoba, semoga bisa membantu!
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan