Excel'de aynı anda birden çok satırı veya sütunu bağımsız olarak nasıl sıralayabilirim?
Excel'de, bir sütun aralığında yalnızca bir satırı veya sütunu sıralamak için Sırala özelliğini uygulayabilirsiniz, ancak aşağıdaki ekran görüntüsünü elde etmek için birden çok satırı veya sütunu aynı anda bağımsız olarak sıralamanız gerekiyorsa. Excel'de bu görevi çözmenin hızlı bir yolu var mı?
VBA kodu ile aynı anda birden fazla sütunu bağımsız olarak sıralayın
VBA kodu ile aynı anda birden fazla satırı bağımsız olarak sıralayın
VBA kodu ile aynı anda birden fazla sütunu bağımsız olarak sıralayın
Birden çok sütunu bağımsız olarak artan bir sırada sıralamak için aşağıdaki VBA kodu size yardımcı olabilir, lütfen şu şekilde yapın:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Birden çok sütunu aynı anda bağımsız olarak sıralayın:
Sub SortIndividualJR()
'Updateby Extendoffice
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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve her sütuna göre sıralamak istediğiniz veri aralığını seçmenizi hatırlatmak için bir istem kutusu açılır, ekran görüntüsüne bakın:
4. Ve sonra tıklayın OK, her sütun aynı anda bağımsız olarak sıralanmıştır, ekran görüntüsüne bakın:
VBA kodu ile aynı anda birden fazla satırı bağımsız olarak sıralayın
Birden çok satırı bağımsız olarak sıralamak istiyorsanız, burada sizin için bir VBA kodu da var.
1. Her satıra göre sıralamak istediğiniz verileri seçin.
2. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
3. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Birden çok satırı aynı anda bağımsız olarak sıralayın:
Sub SortIndividualR()
'Updateby Extendoffice
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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar, her satırdaki veriler bir kerede sıralanmıştır, ekran görüntüsüne bakın:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!