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

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

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-2021 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.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
Terlama Pertama
Pertama Terbaru
komentar (28)
Rated 4.75 dari 5 · peringkat 2
Segera
Segera
Komentar ini diminimalkan oleh moderator di situs
Bagaimana saya bisa membuatnya sehingga kutools memilih baris tertentu tanpa input pengguna?
membalas
0
0
kristal
kristal     Segera
Komentar ini diminimalkan oleh moderator di situs
Hai Anon,
Maaf, saya tidak yakin apa yang Anda maksud. Akan lebih baik jika Anda dapat menjelaskannya lagi atau memberikan tangkapan layar untuk menunjukkan apa yang Anda coba lakukan.
Terima kasih atas komentar Anda.
membalas
Laporan
0
0
majalah
majalah
Komentar ini diminimalkan oleh moderator di situs
Hai Crystal, kode ini berfungsi dengan baik, terima kasih. Saya ingin memindahkan semua baris yang berisi kata "Lengkap" di kolom D ke atas tabel (masukkan di baris 3). Apakah itu mungkin? maka saya ingin menghapus semua baris lengkap ini yang berisi "tanggal kemarin" di kolom V.
membalas
0
0
Brandon
Brandon
Komentar ini diminimalkan oleh moderator di situs
Halo. Ini hampir sempurna untuk apa yang saya inginkan. Saya memiliki bagian dari permintaan yang sama seperti Anon harus membuat ini berfungsi tanpa masukan pengguna bersama dengan beberapa tambahan.

Saya bertanya-tanya apakah mungkin satu-satunya kolom yang dicari adalah i4 hingga i50 dan menjalankannya secara otomatis saat terbuka atau kapan saja kolom i diedit. Juga jika dimungkinkan untuk memindahkan baris ke bagian bawah lembar tanpa baris kosong antara baris "selesai" dan baris "tidak". Saat ini jika saya memilih i4:i50 dan jika saya hanya memiliki data hingga baris 25, itu akan menempelkan baris "selesai" naik dari baris 50 alih-alih baris 25. Jumlah baris di lembar saya terus berubah dan tidak boleh sampai ke lebih dari 50. Terima kasih atas bantuannya.
membalas
Laporan
0
0
kristal
kristal     Brandon
Komentar ini diminimalkan oleh moderator di situs
Hai Brandon,
Maaf dapat membantu Anda dengan itu. Terima kasih atas komentarmu.
membalas
Laporan
0
0
Tammy
Tammy
Komentar ini diminimalkan oleh moderator di situs
Halo, apakah ada cara untuk men-tweak ini sehingga memindahkan baris di tempat lain di lembar yang sama selain akhir? Saya memiliki lembar yang memiliki informasi pesanan untuk pesanan bertanggal dan pesanan yang akan datang yang belum diberi tanggal dan saya memilikinya sehingga ketika saya meletakkan "X" di kolom A, hal-hal disorot dan dicetak tebal tergantung pada bagian # dan lokasi pengiriman. Sekarang saya harus secara fisik memotong dan menempelkan tanggal baru (tanggal pengiriman) sehingga cocok di urutan teratas berdasarkan tanggal (1 hingga akhir bulan). Saya telah dapat memformat semuanya bersyarat hingga saat ini, tetapi saya rasa saya tidak dapat memindahkan baris seperti itu. Saya bertanya-tanya apakah VBA dapat melakukan ini, memindahkan baris ketika tanggal dimasukkan agar sesuai dengan baris tanggal lainnya?
membalas
0
0
Segera
Segera
Komentar ini diminimalkan oleh moderator di situs
Halo, satu-satunya cara agar ini berfungsi adalah jika saya "menjalankan" makro di sub layar Visual Basic. Apakah mungkin untuk menjalankan kode VBA ini secara otomatis, setelah pengguna mengetik "Selesai"? Setiap kali saya mendapatkan kotak dialog Kutools for Excel muncul untuk menanyakan parameter yang saya minta kode untuk dicari. Saya telah mengatasi ini dengan mengganti : xTxt = ActiveSheet.UsedRange.AddressLocal dengan parameter yang saya butuhkan untuk mencari dan menekan enter. Tetapi akan lebih nyaman jika secara otomatis melakukan perubahan setelah "Selesai" dimasukkan. Terima kasih!
membalas
0
0
kristal
kristal     Segera
Komentar ini diminimalkan oleh moderator di situs
Hai Anon,
Kode VBA di bawah ini dapat membantu Anda. Silakan coba.
Silakan klik kanan tab lembar (lembar berisi data yang akan Anda pindahkan ke bawah), pilih Lihat Kode dari menu konteks dan salin kode di bawah ini ke jendela Kode.

Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)
'Diperbaharui oleh Extendoffice 20190925
Redupkan xRg Sebagai Rentang
Redupkan xIRg Sebagai Rentang
Redupkan xTxt Sebagai String
Redupkan xCell Sebagai Rentang
Redupkan xEndRow Selamanya
Redup Aku Selamanya
Redupkan xDStr Sebagai String
On Error Resume Next
xDStr = "C:C"
Tetapkan xRg = Me.Range(xDStr)
Tetapkan xIRg = Application.Intersect(Target, xRg)
Jika xIRg Bukan Apa-apa Kemudian Keluar Sub
Application.ScreenUpdating = Salah
Application.EnableEvents = Salah

Jika Target = "Selesai" Maka
xEndRow = ActiveSheet.UsedRange.Rows.Count + 1
Target.SeluruhRow.Cut
Baris(xEndRow).Sisipkan Shift:=xlDown
End If
Application.EnableEvents = Benar
Application.ScreenUpdating = Benar
End Sub
membalas
Laporan
1
0
Admin Kantor
Admin Kantor     kristal
Komentar ini diminimalkan oleh moderator di situs
Hai kristal,

Terima kasih telah memposting kode ini. Saya ingin tahu cara mendapatkan kode untuk memindahkan baris kembali ke atas jika Selesai salah ketik. Bisakah kode sekunder ditambahkan untuk "pindah" untuk memindahkannya ke atas, dan "selesai" untuk bagian bawah?
membalas
Laporan
0
0
sarah
sarah
Komentar ini diminimalkan oleh moderator di situs
hello crystal kode yang Anda berikan kepada anon agar vba menjalankan kode secara otomatis bagus tapi saya tidak bisa memasukkan selembar baris apakah ada cara yang mungkin untuk memperbaikinya
membalas
0
0
kristal
kristal     sarah
Komentar ini diminimalkan oleh moderator di situs
Hai sarah,
Maaf untuk ketidaknyamanannya. Silakan coba VBA di bawah ini. Terima kasih.

Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)

'Diperbaharui oleh Extendoffice 20200424

Redupkan xRg Sebagai Rentang

Redupkan xIRg Sebagai Rentang

Redupkan xTxt Sebagai String

Redupkan xCell Sebagai Rentang

Redupkan xEndRow Selamanya

Redup Aku Selamanya

Redupkan xDStr Sebagai String

Pada Kesalahan GoTo Err1

xDStr = "C:C"

Tetapkan xRg = Me.Range(xDStr)

Tetapkan xIRg = Application.Intersect(Target, xRg)

Jika xIRg Bukan Apa-apa Kemudian Keluar Sub

Application.ScreenUpdating = Salah

Application.EnableEvents = Salah



Jika Target.Value = "Selesai" Kemudian

'xEndRow = ActiveSheet.UsedRange.Rows.Count + 1

xEndRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Baris + 1

Target.SeluruhRow.Cut

Baris(xEndRow).Sisipkan Shift:=xlDown

End If

Err1:

Application.EnableEvents = Benar

Application.ScreenUpdating = Benar

End Sub
membalas
Laporan
0
0
Michael
Michael     kristal
Komentar ini diminimalkan oleh moderator di situs
Saya mencoba menyalin kode ini tetapi terus mengatakan penggunaan saya yang tidak valid.
membalas
0
0
Jerel
Jerel
Komentar ini diminimalkan oleh moderator di situs
Bagaimana jika Anda hanya perlu memindahkan baris di bawah Kolom A dan B; lalu Kolom C harus dipertahankan? haruskah kita tetap menggunakan EntireRow?
membalas
0
0
kristal
kristal     Jerel
Komentar ini diminimalkan oleh moderator di situs
Hai Jerel,
Coba kode di bawah ini. Semoga saya bisa membantu.

Sub PindahToEnd()

'Diperbaharui oleh Extendoffice 20200717

Redupkan xRg Sebagai Rentang

Redupkan xTxt Sebagai String

Redupkan xCell Sebagai Rentang

Redupkan xEndRow Selamanya

Redupkan xIntR Sebagai Integer

Redup Aku Selamanya

Redupkan xWs Sebagai Lembar Kerja

On Error Resume Next

Jika ActiveWindow.RangeSelection.Count > 1 Kemudian

xTxt = ActiveWindow.RangeSelection.AddressLocal

Lain

xTxt = ActiveSheet.UsedRange.AddressLocal

End If

sendirian:

Set xRg = Application.InputBox("Pilih rentang:", "Kutools for Excel", xTxt, , , , , 8)

Jika xRg Bukan Apa-apa Kemudian Keluar Sub

Jika xRg.Columns.Count > 1 Atau xRg.Areas.Count > 1 Maka

MsgBox " Beberapa rentang atau kolom telah dipilih ", vbInformation, "Kutools for Excel"

GoTo lOne

End If

xEndRow = xRg.Rows.Count + xRg.Row

xWs = xRg.Lembar Kerja

xWs.Aktifkan

Application.ScreenUpdating = Salah

Untuk I = xRg.Rows.Count To 1 Step -1

Jika xRg.Item(I) = "Selesai" Maka

Baris(xEndRow).Sisipkan Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

xIntR = xRg.Sel(I).Baris

Rentang("A" & xIntR & ":B" & xIntR).Pilih

Seleksi.Potong

Rentang("A" & xEndRow).Pilih

ActiveSheet.Paste

xEndRow = xEndRow + 1



End If

Next

Application.ScreenUpdating = Benar

End Sub
membalas
Laporan
0
0
Angela Wiesner
Angela Wiesner
Komentar ini diminimalkan oleh moderator di situs
Halo,



Saya mengalami masalah dalam menggunakan kode yang diberikan dan terus menerima kesalahan sintaks. Saya sangat baru untuk unggul dan telah mencoba untuk mengajar sendiri apa yang saya butuhkan untuk menjalankan bisnis rumahan saya. Saya memiliki id spreadsheet inventaris yang ingin dapat menetapkan item dalam kolom sebagai RETIRED? ya/tidak dan jika ya, mereka pindah ke bagian bawah lembar, dalam urutan abjad, tanpa meninggalkan ruang kosong di lembar bentang utama. kami memiliki barang-barang yang pensiun sepenuhnya dan kemudian kembali untuk rilis ulang khusus dalam jumlah terbatas dan id seperti barang-barang ini disimpan di bagian bawah lembar saya sampai tersedia lagi. Terima kasih.
membalas
Laporan
0
0
jasnoke
jasnoke
Komentar ini diminimalkan oleh moderator di situs
Halo, saya punya tugas yang diberikan bos saya. Tampaknya cukup sederhana pada awalnya tetapi sekarang saya bingung bagaimana melanjutkannya. Kami memiliki lembar Prakiraan pekerjaan yang mungkin dan mereka memiliki kolom "Probabilitas Pesanan" sebesar %. Dia ingin saya menyiapkan 3 lembar berbeda dengan 100-70%, 69%-41, dan 40-0%. Idenya adalah bahwa ketika informasi diketik ke dalam lembar master, ketika persentase dimasukkan, secara otomatis akan disalin ke lembar melanjutkan yang cocok dengan kemarahan persentil. Saya melakukan ini dengan JIKA sederhana (dan formula. Namun saya perlu mengurutkan untuk menghilangkan sel kosong dan membuatnya terlihat lebih bersih. Kemudian ketika saya mengurutkan, jika saya menambahkan tawaran Probabilitas Oder baru ke lembar master, itu tidak secara otomatis tunjukkan, tanpa mengurutkan kemudian menyortir lagi. Saya minta maaf jika pertanyaan ini bukan miliknya. Tapi apakah ada string kode yang bisa saya masukkan yang akan menangani masalah ini lebih mudah? Satu-satunya nilai yang menentukan apakah seluruh baris dipindahkan adalah Kolom K. tampaknya sederhana, tetapi betapapun rumitnya untuk pemula excel ini. Terima kasih sebelumnya atas bantuan Anda.
membalas
Laporan
0
0
VikasExcelinExcel
VikasExcelinExcel
Komentar ini diminimalkan oleh moderator di situs
Bagaimana jika "Selesai" hanya merupakan bagian dari string kolom. Misalkan Kolom saya berisi nilai seperti - XYZDone, ABCDone, 123Done dll, dapatkah saya memfilter berdasarkan string parsial "Selesai"?
membalas
Laporan
0
0
Brett Meehan
Brett Meehan
Komentar ini diminimalkan oleh moderator di situs
Hai Kristal,
Terima kasih atas bantuan Anda, kode berfungsi dengan baik tetapi alih-alih memindahkan baris ke bagian bawah halaman, bagaimana cara memindahkannya ke tab lain yaitu tab "Tutup"?
membalas
0
0
kristal
kristal     Brett Meehan
Komentar ini diminimalkan oleh moderator di situs
Hai,
Maaf untuk membalas begitu terlambat.
Dalam kode, Anda hanya perlu mengubah baris "Jika xRg.Cells(I) = "Selesai" Maka"Untuk Jika xRg.Cells(I) Suka "*Selesai*" Lalu untuk menyelesaikannya.
membalas
Laporan
0
0
Kandice
Kandice
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki daftar dengan kotak centang bahwa ketika satu kolom dicentang, saya memerlukannya untuk pergi ke satu bagian dari spreadsheet dan jika yang lain dicentang, itu akan berakhir. Saya telah mencoba seratus cara berbeda untuk melakukan ini, adakah yang bisa membantu dengan ini?
membalas
0
0
Stacie Spaulding
Stacie Spaulding
Komentar ini diminimalkan oleh moderator di situs
Hai! Saya baru saja membeli kutools sehingga saya dapat memasukkan kode vba ini ke lembar excel saya, karena ini akan menjadi fitur luar biasa untuk digunakan! Petunjuk di atas sederhana dan bermanfaat; namun, begitu saya sampai ke langkah di mana kode disalin dan ditempel di jendela dan tekan F5, itu mengirim saya ke kotak untuk memberi nama dan membuat makro. Saya melakukan itu tetapi sekarang tidak akan membawa saya ke kotak dialog sehingga saya dapat memilih rentang sel. Kesalahan kompilasi "prosedur luar tidak valid" muncul. Tolong bantu!
membalas
0
0
kristal
kristal     Stacie Spaulding
Komentar ini diminimalkan oleh moderator di situs
Hai,
Saya minta maaf telah menyesatkan Anda. Kode dapat digunakan sendiri dan tidak memerlukan pembelian Kutools. Jika Anda tidak membutuhkannya, silakan email ke sales@extendoffice.com untuk meminta pengembalian dana.
Agar kode bekerja dengan lancar, Anda perlu memastikan bahwa kursor Anda berada di jendela kode (klik kata apa saja dalam kode), lalu tekan tombol F5 kunci untuk menjalankan kode. Kemudian kotak dialog untuk memilih rentang sel akan muncul.
Mohon maaf sekali lagi atas ketidaknyamanannya.
membalas
Laporan
0
0
Stacie Spaulding
Stacie Spaulding
Komentar ini diminimalkan oleh moderator di situs
saya lagi! Saya menemukan kodenya. Saya telah menyalin dan menempelkan kode secara manual daripada menggunakan tombol salin di kanan atas layar. Saya mengubah "selesai" menjadi "x". Saya telah menjalankan kode di setiap lembar kerja. Ketika saya mulai memasukkan "x" di sel-sel itu dalam rentang sel yang dipilih dari kotak dialog, tidak ada yang terjadi (baris tidak secara otomatis turun ke bawah). Saya SANGAT BARU untuk ini .... terima kasih atas bantuan Anda!
membalas
0
0
kristal
kristal     Stacie Spaulding
Komentar ini diminimalkan oleh moderator di situs
Hai,
Jika Anda ingin secara otomatis memindahkan baris ke bawah saat memasukkan kata yang ditentukan, silakan coba kode VBA berikut.
Note: Anda perlu memasukkan kode ke dalam jendela kode Lembar Kerja (klik kanan tab lembar dan pilih Lihat Kode dari menu konteks).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updated by Extendoffice 20220520
    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 = Range("C2:C18")
    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
membalas
Laporan
0
0
Jazo
Jazo
Komentar ini diminimalkan oleh moderator di situs
Hai Kristal,

Terima kasih untuk semua kode hebat. Apakah ada cara untuk melakukan ini tanpa Kutools? Saya juga tidak melihat kotak dialog untuk memilih rentang sel, itu tidak muncul untuk saya.

Terima kasih,
Jazo
membalas
0
0
Rated 5 dari 5
kristal
kristal     Jazo
Komentar ini diminimalkan oleh moderator di situs
Hai Jaz,
Anda dapat menentukan rentang sel secara langsung dalam kode tanpa harus memunculkan kotak dialog Kutools untuk memilih rentang.
Dalam kode, silakan ganti baris berikut:
Set xRg = Application.InputBox("Select range:", "Kutools for Excel", xTxt, , , , , 8)

dengan:
Set xRg = Range("C2:C13")
membalas
Laporan
0
0
zoe
zoe
Komentar ini diminimalkan oleh moderator di situs
Apakah ada cara untuk memindahkan baris kembali ke tempat semula ketika status masukan berubah? Misalnya jika seseorang mengubahnya dari "Selesai" menjadi "tidak lengkap", apakah ada cara memprogram excel untuk memindahkannya kembali?
Juga, apakah perubahan ini permanen? Saya perhatikan setelah bekerja pertama kali, berhenti bekerja setelah itu.

Terima kasih atas bantuan dan posting Anda!
membalas
0
0
Rated 4.5 dari 5
kristal
kristal     zoe
Komentar ini diminimalkan oleh moderator di situs
Hai zoe,

Terima kasih atas komentar anda
1. Untuk pertanyaan pertama:
Baris yang dipindahkan tidak dapat dipindahkan kembali ke tempat asalnya;
2. Untuk pertanyaan kedua:
Kode VBA ini perlu dijalankan secara manual setiap kali Anda perlu memindahkan baris. Jika Anda ingin memindahkan baris secara otomatis saat nilai sel sesuai dengan kondisi, Anda dapat mencoba kode VBA berikut.
Catatan: Anda harus meletakkan kode ini di editor Lembar (Kode) (Klik kanan tab lembar dan pilih Lihat Kode untuk membuka editor). Dan ubah rentang kolom B2:B12 ke rentang Anda sendiri.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updated Extendoffice 20230111
    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 = Range("B2:B12")
    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
membalas
Laporan
0
0
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Tamu
Posting sebagai Tamu
Login
×
Beri peringkat pos ini:
ulang
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL