İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də birdən çox satır və ya sütunu müstəqil olaraq necə sıralayırsınız?

Excel-də, Sütun funksiyasını sütun aralığına yalnız bir satır və ya sütun sıralamaq üçün tətbiq edə bilərsiniz, lakin bir neçə satır və ya sütunun birbaşa müstəqil olaraq göstərilən aşağıdakı ekran görüntüsünü əldə etmək üçün bir seferde sıralamaq lazımdır. Excel-də bu vəzifəni həll etmək üçün hər hansı bir sürətli yol varmı?

doc bir neçə sütunlu 1 düzəldin

VBA kodu ilə birdən çox sütunu müstəqil olaraq bir araya salın

VBA kodu ilə birdən çox dəfə bir-birinə müstəqil olaraq sırala


arrow mavi sağ bubble VBA kodu ilə birdən çox sütunu müstəqil olaraq bir araya salın


Bir çox sütunu müstəqil olaraq artaraq sıralamaq üçün aşağıdakı VBA kodu sizə kömək edə bilər, xahiş edirik bunu:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: birdən çox sütunun birbaşa müstəqil olaraq sıralanması:

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. Sonra basın F5 bu kodu çalıştırmak üçün düyməsini basın və hər bir sütun əsasında sıralamaq istədiyiniz məlumatların aralığını seçməyi xatırlatmaq üçün bir sorğu qutusu açılır, ekran görünüşünə baxın:

doc bir neçə sütunlu 2 düzəldin

4. Və sonra basın OK, hər sütun birbaşa olaraq sıralanır, ekran görünüşünə baxın:

doc bir neçə sütunlu 1 düzəldin


arrow mavi sağ bubble VBA kodu ilə birdən çox dəfə bir-birinə müstəqil olaraq sırala

Birdən çox satırı müstəqil olaraq sıralamaq istəyirsinizsə, burada da sizin üçün VBA kodudur.

1. Hər satır əsasında sıralamaq istədiyiniz məlumatı seçin.

doc bir neçə sütunlu 3 düzəldin

2. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

3. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: birdən çox sətirləri birbaşa müstəqil olaraq sıralayın:

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. Sonra basın F5 bu kodu çalıştırmaq üçün açar, hər satırdakı məlumatlar bir dəfə sıralanıb, ekran görünüşünə baxın:

doc bir neçə sütunlu 4 düzəldin



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

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 · 10 days 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 · 1 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 · 2 months ago
    When I try to sort the columns it sorts data outside of the sected range! Why is this?