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

Bagaimana cara mengurutkan data di beberapa lembar kerja sekaligus?

Di Excel, kita bisa mengurutkan data di worksheet berdasarkan kolom tertentu dengan cepat dan mudah, tapi, pernahkah Anda mencoba mengurutkan data di beberapa worksheet? Untuk mengurutkannya satu per satu akan memakan waktu lama, artikel kali ini saya akan perkenalkan cara mudah untuk mengatasinya.

Urutkan data di beberapa lembar kerja sekaligus dengan kode VBA


panah gelembung kanan biru Urutkan data di beberapa lembar kerja sekaligus dengan kode VBA

Untuk mengurutkan data berdasarkan satu kolom di semua lembar buku kerja Anda, 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 Modul Jendela.

Kode VBA: Urutkan data di beberapa lembar kerja sekaligus:

Sub SortAllSheets()
   'Updateby Extendoffice
   Dim WS      As Worksheet
   ActiveSheet.Range("a1:f1").Select
   Selection.Copy
   On Error Resume Next
   Application.ScreenUpdating = False
   For Each WS In Worksheets
      WS.Columns("A:F").Sort Key1:=WS.Columns("E"), Order1:=xlDescending
   Next WS
   ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteAll
   Application.ScreenUpdating = True
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, semua sheet yang memiliki format yang sama telah diurutkan berdasarkan kolom E dari setiap sheet dalam urutan menurun sekaligus.

Note: Pada kode di atas, J: F adalah rentang data yang ingin Anda urutkan, E adalah huruf kolom yang ingin Anda urutkan berdasarkan.


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
komentar (11)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
tidak bekerja...
Komentar ini diminimalkan oleh moderator di situs
Bagaimana saya bisa membuat ini berfungsi untuk banyak kolom. Saya mencoba mengurutkan beberapa berdasarkan kolom K dan beberapa dengan kolom M dan saya tahu nomor lembar yang tepat. Kolom M saya (ketika saya menggunakan kode di atas) hanya diurutkan berdasarkan K, bukan oleh M, jadi karena itu tidak berfungsi. 
Komentar ini diminimalkan oleh moderator di situs
bekerja seperti pesona bagi saya... terima kasih!
Komentar ini diminimalkan oleh moderator di situs
berfungsi dengan baik tetapi bagaimana saya bisa menghindari memasukkan judul (yaitu baris 1?)
Komentar ini diminimalkan oleh moderator di situs
Halo, Lusi,
Untuk mengurutkan semua lembar kecuali baris tajuk, harap terapkan kode vba di bawah ini: (Catatan: ubah referensi sel sesuai kebutuhan Anda)

Sub SortirSemuaSheets()
'Perbarui oleh Extendoffice
Redupkan WS Sebagai Lembar Kerja
Redupkan xIntR Sebagai Integer
ActiveSheet.Range("A1:F1").Pilih
On Error Resume Next
Application.ScreenUpdating = Salah
Untuk Setiap WS Dalam Lembar Kerja
xIntR = Intersect(WS.UsedRange, WS.Range("A:F")).Rows.Count
WS.Range("A2:F" & xIntR).Urutkan Kunci1:=WS.Range("A2:A" & xIntR), Urutan1:=xlMenurun
WS berikutnya
Application.ScreenUpdating = Benar
End Sub

Silakan dicoba, semoga bisa membantu Anda!
Komentar ini diminimalkan oleh moderator di situs
Dengan harapan Anda melihat ini ...! Ini bekerja dengan sangat baik - tetapi ini mencakup sel dengan rumus tetapi tanpa data, membuat celah di tab dan mengacaukan data pada baris. Saya perlu menyimpan sel-sel itu di tab saya saat mereka mencari nama yang ditambahkan ke 'tab master' Saya ingin itu hanya mengurutkan sel dengan nama sebenarnya - perbaikan cepat???
Komentar ini diminimalkan oleh moderator di situs
Kode yang sangat berguna Terima kasih
Komentar ini diminimalkan oleh moderator di situs
Hei ini bagus terima kasih banyak untuk ini! Satu-satunya masalah saya dengan kode ini adalah kode itu tidak dieksekusi pada lembar pertama saya. Itu mengeksekusi pada lembar saya yang tersisa. BAGAIMANA saya akan menjalankan ini di semua lembar? Seolah-olah kode melompati lembar pertama. Bantuan apa pun akan sangat dihargai :)
Komentar ini diminimalkan oleh moderator di situs
saya ingin membagi data dalam beberapa buku kerja dan kemudian menambahkan nilai di salah satu kolom..

saya sudah menyiapkan kode untuk membagi data di buku kerja .. tetapi butuh bantuan untuk menambahkan total di salah satu kolom
Komentar ini diminimalkan oleh moderator di situs
Bisakah Anda menjalankan ini tanpa menyertakan semua lembar? Yaitu meninggalkan beberapa lembar dari makro?
Komentar ini diminimalkan oleh moderator di situs
Ini sepertinya tidak berhasil untuk saya. Saya memiliki buku kerja dengan 12 lembar yang diurutkan berdasarkan bulan dalam setahun, setiap lembar berisi data terkait mengenai produk perusahaan, dll. Tujuan saya adalah untuk menyortir dan menyaring semua lembar dalam buku kerja. Saya ingin memiliki satu lembar yang akan bertindak sebagai lembar induk (misalnya bulan pertama tahun ini), yang akan saya gunakan untuk melakukan fungsi filter atau pengurutan (mis. A -> Z sort) dan secara otomatis membuat lembar lainnya mengikuti hal yang sama mengurutkan atau menyaring. Misalnya, ketika menggunakan lembar berlabel "Januari" jika misalnya saya memilih kolom "D" yang mencakup hari-hari dalam bulan yang saya inginkan dalam urutan "naik" - ketika mengaktualisasikan pengurutan A -> Z pada lembar "Januari" , saya ingin ini mempengaruhi sisa semua lembar dalam urutan (Feb-Des) dengan semua hari dalam sebulan diurutkan A -> Z. Setiap perubahan yang dibuat pada lembar "Januari" yang berkaitan dengan penyortiran dan pemfilteran, harus mempengaruhi keseimbangan lembar dalam buku kerja.
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
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