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
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Canggih untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda 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!
