Bagaimana cara memindahkan seluruh baris ke lembar lain berdasarkan nilai sel di Excel?
Untuk memindahkan seluruh baris ke lembar lain berdasarkan nilai sel, artikel ini akan membantu Anda.
Pindahkan seluruh baris ke lembar lain berdasarkan nilai sel dengan kode VBA
Pindahkan seluruh baris ke lembar lain berdasarkan nilai sel dengan Kutools for Excel
Pindahkan seluruh baris ke lembar lain berdasarkan nilai sel dengan kode VBA
Seperti gambar di bawah ini yang ditampilkan, Anda perlu memindahkan seluruh baris dari Sheet1 ke Sheet2 jika kata tertentu "Selesai" ada di kolom C. Anda dapat mencoba kode VBA berikut.
1. tekan lain+ F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Di jendela Microsoft Visual Basic for Applications, klik Menyisipkan > Modul. Kemudian salin dan tempel kode VBA di bawah ini ke jendela.
VBA code 1: Move entire row to another sheet based on cell value
Sub Cheezy()
'Updated by Kutools for Excel 2017/8/28
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Sheet1").UsedRange.Rows.Count
J = Worksheets("Sheet2").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Done" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
xRg(K).EntireRow.Delete
If CStr(xRg(K).Value) = "Done" Then
K = K - 1
End If
J = J + 1
End If
Next
Application.ScreenUpdating = True
End Sub
Note: Di dalam kode, Sheet1 adalah lembar kerja berisi baris yang ingin Anda pindahkan. Dan Sheet2 adalah lembar kerja tujuan tempat Anda akan menemukan baris tersebut. “C: C"Adalah kolom yang berisi nilai tertentu, dan kata"Done"Adalah nilai tertentu yang akan Anda pindahkan berdasarkan baris. Silakan ubah sesuai kebutuhan Anda.
3. tekan F5 kunci untuk menjalankan kode, maka baris yang memenuhi kriteria di Sheet1 akan segera dipindahkan ke Sheet2.
Note: Kode VBA di atas akan menghapus baris dari data asli setelah pindah ke lembar kerja yang ditentukan. Jika Anda hanya ingin menyalin baris berdasarkan nilai sel daripada menghapusnya. Silakan terapkan kode VBA di bawah ini 2.
VBA code 2: Copy entire row to another sheet based on cell value
Sub MoveRowBasedOnCellValue()
'Updated by Extendoffice 2017/11/10
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Sheet1").UsedRange.Rows.Count
J = Worksheets("Sheet2").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Done" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
J = J + 1
End If
Next
Application.ScreenUpdating = True
End Sub
Pindahkan seluruh baris ke lembar lain berdasarkan nilai sel dengan Kutools for Excel
Jika Anda pemula dalam kode VBA. Di sini saya perkenalkan Pilih Sel Spesifik kegunaan Kutools untuk Excel. Dengan utilitas ini, Anda dapat dengan mudah memilih semua baris berdasarkan nilai sel tertentu atau nilai sel yang berbeda dalam lembar kerja, dan menyalin baris yang dipilih ke lembar kerja tujuan sesuai kebutuhan. Silakan lakukan sebagai berikut.
Sebelum melamar Kutools untuk Excel, Mohon unduh dan instal terlebih dahulu.
1. Pilih daftar kolom yang berisi nilai sel yang akan Anda pindahkan berdasarkan baris, lalu klik Kutools > Pilih > Pilih Sel Spesifik. Lihat tangkapan layar:
2. Dalam pembukaan Pilih Sel Spesifik kotak dialog, pilih Seluruh baris dalam Tipe pilihan bagian, pilih sama dalam Tipe khusus daftar drop-down, masukkan nilai sel ke dalam kotak teks dan kemudian klik OK .
Lain Pilih Sel Spesifik kotak dialog muncul untuk menunjukkan jumlah baris yang dipilih, dan sementara itu, semua baris berisi nilai yang ditentukan di kolom yang dipilih telah dipilih. Lihat tangkapan layar:
3. tekan Ctrl + C untuk menyalin baris yang dipilih, lalu menempelkannya ke lembar kerja tujuan yang Anda perlukan.
Note: Jika Anda ingin memindahkan baris ke lembar kerja lain berdasarkan dua nilai sel yang berbeda. Misalnya, memindahkan baris berdasarkan nilai sel baik "Selesai" atau "Sedang Diproses", Anda dapat mengaktifkan Or kondisi di Pilih Sel Spesifik kotak dialog seperti gambar di bawah ini yang ditampilkan:
Jika Anda ingin memiliki uji coba gratis (30 hari) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.
Terkait artikel:
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!