Excel'de birden fazla satırı veya sütunu aynı anda bağımsız olarak nasıl sıralayabilirsiniz?
Excel'de, bir dizi sütun içinde yalnızca bir satır veya sütunu sıralamak için Sıralama özelliğini uygulayabilirsiniz. Ancak, aşağıdaki ekran görüntüsünde gösterildiği gibi birden fazla satırı veya sütunu aynı anda bağımsız olarak sıralamanız gerekiyorsa, bu görevi Excel'de çözmek için hızlı bir yöntem var mı?
VBA kodu ile birden fazla sütunu aynı anda bağımsız olarak sıralama
VBA kodu ile birden fazla satırı aynı anda bağımsız olarak sıralama
VBA kodu ile birden fazla sütunu aynı anda bağımsız olarak sıralama
Birden fazla sütunu artan düzende bağımsız olarak sıralamak için aşağıdaki VBA kodu size yardımcı olabilir, lütfen şu adımları izleyin:
1. ALT + F11 tuşlarına basılı tutarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle Insert > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.
VBA kodu: Birden fazla sütunu aynı anda bağımsız olarak sıralama:
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. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve her sütuna göre sıralamak istediğiniz veri aralığını seçmenizi hatırlatan bir uyarı kutusu açılacaktır, aşağıdaki ekran görüntüsüne bakın:
4. Ve sonra Tamam'a tıklayın, her sütun hemen bağımsız olarak sıralanmış olacaktır, aşağıdaki ekran görüntüsüne bakın:
Kutools AI ile Excel Sihirini Keşfedin
- Akıllı Yürütme: Hücre işlemleri gerçekleştirin, verileri analiz edin ve grafikler oluşturun—tümü basit komutlarla sürülür.
- Özel Formüller: İş akışlarınızı hızlandırmak için özel formüller oluşturun.
- VBA Kodlama: VBA kodunu kolayca yazın ve uygulayın.
- Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
- Metin Çevirisi: Elektronik tablolarınız içindeki dil engellerini aşın.
VBA kodu ile birden fazla satırı aynı anda bağımsız olarak sıralama
Birden fazla satırı bağımsız olarak sıralamak istiyorsanız, işte size bir VBA kodu daha var.
1. Her satıra göre sıralamak istediğiniz verileri seçin.
2. ALT + F11 tuşlarına basılı tutarak Microsoft Visual Basic for Applications penceresini açın.
3. Ekle Insert > Module'e tıklayın ve aşağıdaki kodu Module Penceresine yapıştırın.
VBA kodu: Birden fazla satırı aynı anda bağımsız olarak sıralama:
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. Ardından bu kodu çalıştırmak için F5 tuşuna basın, her satırdaki veriler hemen sıralanmış olacaktır, aşağıdaki ekran görüntüsüne bakın:
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin