Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk menyusun berbilang baris atau lajur secara berasingan sekali dalam Excel?

Dalam Excel, anda boleh menggunakan ciri Isih untuk menyusun hanya satu baris atau lajur dalam pelbagai lajur, tetapi, jika anda perlu menyusun berbilang baris atau lajur secara berasingan untuk mendapatkan tangkapan skrin berikut. Adakah terdapat cara cepat untuk menyelesaikan tugas ini dalam Excel?

menyalin pelbagai lajur 1

Isi beberapa lajur secara berasingan dengan kod VBA

Isih berbilang baris secara berasingan sekali dengan kod VBA


anak panah gelembung kanan biru Isi beberapa lajur secara berasingan dengan kod VBA


Untuk menyusun berbilang lajur secara berasingan dalam urutan menaik, kod VBA berikut boleh membantu anda, sila lakukan seperti ini:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Klik Memasukkan > Modul, dan tampal kod berikut dalam Modul Tetingkap.

Kod VBA: Susun berbilang lajur secara berasingan sekali:

Sub SortIndividualJR()
'Updateby Extendoffice 20161123
    Dim xRg As Range
    Dim yRg As Range
    Dim ws As Worksheet
    Set ws = ActiveSheet
    On Error Resume Next
    Set xRg = Application.InputBox(Prompt:="Range Selection:", _
                                    Title:="Kutools for excel", Type:=8)
    Application.ScreenUpdating = False
    For Each yRg In xRg
        With ws.Sort
            .SortFields.Clear
            .SortFields.Add Key:=yRg, Order:=xlAscending
            .SetRange ws.Range(yRg, yRg.End(xlDown))
            .Header = xlNo
            .MatchCase = False
            .Apply
        End With
    Next yRg
    Application.ScreenUpdating = True
End Sub

3. Kemudian tekan F5 kunci untuk menjalankan kod ini, dan kotak petanda muncul untuk mengingatkan anda memilih julat data yang ingin anda semak berdasarkan setiap lajur, lihat tangkapan skrin:

menyalin pelbagai lajur 2

4. Kemudian klik OK, setiap lajur telah disusun bergantung pada sekali, lihat tangkapan skrin:

menyalin pelbagai lajur 1


anak panah gelembung kanan biru Isih berbilang baris secara berasingan sekali dengan kod VBA

Sekiranya anda mahu menyusun berbilang baris secara berasingan, di sini juga terdapat kod VBA untuk anda.

1. Pilih data yang ingin anda semak berdasarkan setiap baris.

menyalin pelbagai lajur 3

2. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

3. Klik Memasukkan > Modul, dan tampal kod berikut dalam Modul Tetingkap.

Kod VBA: Susun berbilang baris secara berasingan sekali:

Sub SortIndividualR()
'Updateby Extendoffice 20161123
    Dim xRg As Range, yRg As Range
    If TypeName(Selection) <> "Range" Then Exit Sub
    Set xRg = Selection
    If xRg.Count = 1 Then
        MsgBox "Select multiple cells!", vbExclamation, "Kutools for Excel"
        Exit Sub
    End If
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With
    Application.ScreenUpdating = False
    For Each yRg In xRg.Rows
        yRg.Sort Key1:=yRg.Cells(1, 1), _
        Order1:=xlAscending, _
        Header:=xlNo, _
        Orientation:=xlSortRows
    Next yRg
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With
    Application.ScreenUpdating = True
End Sub

4. Kemudian tekan F5 kunci untuk menjalankan kod ini, data dalam setiap baris telah disusun sekaligus, lihat tangkapan skrin:

menyalin pelbagai lajur 4


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    EVAN · 2 months ago
    I love this, I'm curious as to the functionality of sorting by color for each column individually. I tried this but it didn't work:


    Dim xRg As Range
    Dim yRg As Range
    Dim ws As Worksheet
    Set ws = ActiveSheet
    On Error Resume Next
    Set xRg = Application.InputBox(Prompt:="Range Selection:", _
    Title:="Kutools for excel", Type:=8)
    Application.ScreenUpdating = False
    For Each yRg In xRg
    With ws.Sort
    .SortFields.Clear
    .SortFields.Add Key:=yRg, _
    SortOn:=xlSortOnCellColor, Order:=xlDescending, DataOption:=xlSortNormal
    .SetRange ws.Range(yRg, yRg.End(xlDown))
    .Header = xlNo
    .MatchCase = False
    .Apply
    End With
    Next yRg
    Application.ScreenUpdating = True
    End Sub
  • To post as a guest, your comment is unpublished.
    Kevin · 3 months ago
    ¿Cómo puedo ordenar por color múltiples filas de forma independiente y que las celdas que no tengan color estén a la derecha?
  • To post as a guest, your comment is unpublished.
    Chris · 4 months ago
    When I try to sort the columns it sorts data outside of the sected range! Why is this?