Bagaimana cara memindahkan seluruh baris ke bagian bawah lembar aktif berdasarkan nilai sel di Excel?
Untuk memindahkan seluruh baris ke bagian bawah lembar aktif berdasarkan nilai sel di Excel, silakan coba kode VBA di artikel ini.
Pindahkan seluruh baris ke bagian bawah lembar aktif berdasarkan nilai sel dengan kode VBA
Pindahkan seluruh baris ke bagian bawah lembar aktif berdasarkan nilai sel dengan kode VBA
Misalnya, seperti gambar di bawah ini yang ditampilkan, jika sel di kolom C berisi nilai tertentu "Selesai", maka pindahkan seluruh baris ke bagian bawah lembar saat ini. Silakan lakukan sebagai berikut.
1. tekan lain+ F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul. Kemudian salin dan tempel kode VBA di bawah ini ke jendela.
Kode VBA: Pindahkan seluruh baris ke bagian bawah lembar aktif berdasarkan nilai sel
Sub MoveToEnd()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xEndRow As Long
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
lOne:
Set xRg = Application.InputBox("Select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Or xRg.Areas.Count > 1 Then
MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
GoTo lOne
End If
xEndRow = xRg.Rows.Count + xRg.Row
Application.ScreenUpdating = False
For I = xRg.Rows.Count To 1 Step -1
If xRg.Cells(I) = "Done" Then
xRg.Cells(I).EntireRow.Cut
Rows(xEndRow).Insert Shift:=xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
Note: Di kode VBA, “Done"Adalah nilai sel tempat Anda akan memindahkan seluruh baris berdasarkan. Anda dapat mengubahnya sesuai kebutuhan.
3. tekan F5 kunci untuk menjalankan kode, lalu di popping Kutools untuk Excel kotak dialog, pilih rentang kolom di mana nilai tertentu ada, lalu klik OK .
Setelah mengklik OK tombol, seluruh baris yang berisi nilai "Selesai" di kolom tertentu dipindahkan ke bagian bawah rentang data secara otomatis.
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!