Cara menggunakan macro untuk menyortir data di beberapa kolom sebagai satu kolom di Excel

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 247311 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

Ringkasan

Microsoft Excel tidak memiliki metode built-in untuk menyortir koran (meliuk-liuk) bidang data. Artikel ini berisi makro sampel untuk menyortir data dalam format kolom koran.

Informasi lebih lanjut

Microsoft menyediakan pemrograman contoh ilustrasi saja, tanpa jaminan, baik tersurat maupun tersirat. Ini termasuk, namun tidak terbatas pada, jaminan tersirat dapat diperjualbelikan atau kesesuaian untuk tujuan tertentu. Artikel ini mengasumsikan bahwa Anda sudah familiar dengan bahasa pemrogram yang muncul dan dengan alat-alat yang digunakan untuk membuat dan debug prosedur. Microsoft support engineers dapat membantu menjelaskan fungsi dari prosedur tertentu, namun mereka tidak akan mengubah contoh-contoh ini untuk memberikan menambahkan fungsi atau membangun prosedur untuk memenuhi kebutuhan spesifik Anda.

Built-in penyortiran

Di Microsoft Excel, Anda biasanya menggunakan fitur pengurutan untuk menyortir Daftar. Daftar di Excel adalah serangkaian worksheet baris yang berisi data yang terkait, seperti database faktur atau seperangkat klien nama dan nomor telepon. Kamu bisa menggunakan daftar sebagai database, di mana setiap baris adalah catatan, dan kolom bidang. Baris pertama dari daftar biasanya memiliki label untuk kolom, untuk Contoh:
   A1: Q1   B1: Q2   C1: Q3
   A2: 10   B2: 2    C2: 4
   A3: 14   B3: 18   C3: 9
   A4: 7    B4: 17   C4: 12
   A5: 1    B5: 13   C5: 5
   A6: 11   B6: 8    C6: 16
   A7: 3    B7: 6    C7: 15
				
Jika Anda diurutkan daftar ini dalam urutan menurun naik, oleh bidang Q1 (kolom A), hasilnya akan menjadi sebagai berikut:
   A1: Q1   B1: Q2   C1: Q3
   A2: 1    B2: 13   C2: 5
   A3: 3    B3: 6    C3: 15
   A4: 7    B4: 17   C4: 12
   A5: 10   B5: 2    C5: 4
   A6: 11   B6: 8    C6: 16
   A7: 14   B7: 18   C7: 9
				

Sorting kolom koran bergaya

Koran kolom dan kolom snaking adalah istilah yang berbeda untuk jenis format data yang sama. Dalam kolom koran, data mengisi satu kolom dan terus di bagian atas kolom berikutnya. Dalam hal ini, data Anda mungkin Apakah tidak memiliki label untuk setiap kolom, misalnya:
   A1: 10   B1: 2    C1: 4
   A2: 14   B2: 18   C2: 9
   A3: 7    B3: 17   C3: 12
   A4: 1    B4: 13   C4: 5
   A5: 11   B5: 8    C5: 16
   A6: 3    B6: 6    C6: 15
				
Anda dapat menggunakan makro contoh dalam artikel ini untuk menyortir Surat Kabar kolom dalam urutan menurun menaik. Jika Anda menggunakan makro sampel pada data di atas, Hasilnya adalah sebagai berikut:
   A1: 1    B1: 7    C1: 13
   A2: 2    B2: 8    C2: 14
   A3: 3    B3: 9    C3: 15
   A4: 4    B4: 10   C4: 16
   A5: 5    B5: 11   C5: 17
   A6: 6    B6: 12   C6: 18
				
Untuk melihat makro penyortiran bekerja seperti yang dijelaskan, ikuti langkah berikut:
  1. Membuka buku kerja baru.
  2. Jenis berikut data sampel di lembar kerja:
       A1: 10   B1: 2    C1: 4
       A2: 14   B2: 18   C2: 9
       A3: 7    B3: 17   C3: 12
       A4: 1    B4: 13   C4: 5
       A5: 11   B5: 8    C5: 16
       A6: 3    B6: 6    C6: 15
    					
  3. Pada Alat Menu, titik untuk Makro, lalu klik Penyunting Visual Basic.
  4. Pada Masukkan Menu, klik Modul.
  5. Ketik kode berikut dalam modul:

    Catatan Contoh berikut menunjukkan bagaimana untuk mengurutkan dalam naik order. Anda dapat mengubah ini dengan memodifikasi nilai "Order1: =" argumenxlDescending.
       Sub SortAllRangeData()
       ' Place column header for temporary sort area.
       Range("IV1").Value = "Numbers"
       
       ' Move numbers to temporary sort location.
       For Each cell In Selection
          Range("iv65536").End(xlUp).Offset(1, 0) = cell.Value
       Next cell
       
       ' Sort numbers in ascending order.
       Range("IV1", Range("IV1").End(xlDown)).Sort Key1:=Range("IV2"),  _
       Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
            
       ' Move sorted data back to original sheet location.
    
       Selection(1, 1).Activate ' Make sure the ActiveCell is the
                                ' top left of Selection first.
       CCnt = Selection.Columns.Count
       RCnt = Selection.Rows.Count
       CellCnt = Selection.Cells.Count
       Tcell = 2
       For c = 1 To CCnt
         For r = 1 To RCnt
            Range(ActiveCell.Address).Offset(r - 1, c - 1).Value =  _
            Range("iv" & Tcell).Value
            Tcell = Tcell + 1
         Next r
       Next c
       
       ' Clean up temporary sort location.
       Range("IV1", Range("IV1").End(xlDown)).Clear
    End Sub
    					
  6. Pada Excel Menu di Microsoft Excel X untuk Mac dan dalam versi Excel untuk Mac, atau pada menu File di semua versi lain dari Excel, klik Menutup dan kembali ke Microsoft Excel.
  7. Pilih A1:C6.
  8. Pada Alat Menu, titik untuk Makro, lalu klik Macro. Pilih SortAllRangeData makro, dan kemudian klik Menjalankan.
Semua data di dalam kisaran dipilih sekarang diurutkan, dan muncul sebagai berikut:
   A1: 1    B1: 7    C1: 13
   A2: 2    B2: 8    C2: 14
   A3: 3    B3: 9    C3: 15
   A4: 4    B4: 10   C4: 16
   A5: 5    B5: 11   C5: 17
   A6: 6    B6: 12   C6: 18
				

Referensi

Excel X untuk Mac dan versi yang lebih baru

Untuk informasi lebih lanjut tentang bagaimana cara untuk menyortir, klik Excel bantuan pada Tolong Menu, jenis Sorting, klik Cari, lalu klik topik untuk melihatnya.

Untuk informasi lebih lanjut tentang cara menggunakan metode urut dari Penyunting Visual Basic, klik Bantuan Visual Basic pada Tolong Menu, jenis sort metode, klik Cari, dan kemudian klik untuk melihat sort metode.

Excel 2001 untuk Mac

Untuk informasi lebih lanjut tentang bagaimana cara untuk menyortir, klik Kantor asisten, jenis mengurutkan daftar, klik Cari, lalu klik topik untuk melihatnya.

Catatan Jika asisten yang tersembunyi, klik Kantor asisten tombol tekan pada Standar Toolbar.

Untuk informasi lebih lanjut tentang cara menggunakan metode urut dari Penyunting Visual Basic, klik Kantor asisten, jenis sort metode, klik Cari, dan kemudian klik untuk melihat sort metode.

Properti

ID Artikel: 247311 - Kajian Terakhir: 20 Mei 2013 - Revisi: 4.0
Berlaku bagi:
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 2004 for Mac
  • Microsoft Excel X for Mac
  • Microsoft Excel 2001 for Mac
  • Microsoft Excel 98 for Macintosh
Kata kunci: 
dftsdahomeportal kbautomation kbprogramming kbhowto kbmt KB247311 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan oleh perangkat lunak penerjemahan mesin Microsoft, dan mungkin telah diedit oleh Masyarakat Microsoft melalui teknologi CTF dan bukan oleh seorang penerjemah profesional. Microsoft menawarkan baik artikel yang diterjemahkan oleh manusia maupun artikel hasil editan terjemahan oleh mesin/komunitas, sehingga Anda dapat mengakses semua artikel di Sentra Pengetahuan yang kami miliki dalam berbagai bahasa. Namun artikel hasil editan mesin atau bahkan komunitas tidak selalu sempurna. Artikel ini dapat mengandung kesalahan dalam hal kosa kata, sintaksis atau tatabahasa, sangat mirip dengan penutur asing yang membuat kekeliruan ketika berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab atas ketidakakuratan, kesalahan atau kerugian apa pun akibat dari kekeliruan dalam penerjemahan isi atau penggunaannya oleh pelanggan kami. Microsoft juga akan senantiasa memperbarui perangkat lunak penerjemahan mesin dan alat untuk menyempurnakan Editan Hasil Penerjemahan Mesin.
Klik disini untuk melihat versi Inggris dari artikel ini: 247311

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com