So sortieren Sie die Anzahl numerischer Spalten auf einmal

Question

Ich habe 350 Spalten. Unten sehen Sie eine Teilmenge aller Daten.

Ich habe das Tool „Vom Kleinsten zum Größten sortieren“ verwendet. Es liefert nur Ergebnisse für eine Spalte. Andernfalls kann es die erste Spalte sortieren und die anderen Spalten ändern sich entsprechend der ersten. Aber ich möchte alle Spalten von A bis Z separat sortieren.

Ich möchte die Daten nach Bezirken sortieren.

Answer 1

1.Wählen Sie die Spalte aus, die Sie sortieren möchten. Klicken Sie dann auf „Vom Kleinsten zum Größten sortieren“.

2.Wählen Sie „Mit der aktuellen Auswahl fortfahren“.

Sie sehen, dass nur eine Spalte sortiert wurde.

Wiederholen Sie dies für die restlichen 349 Spalten :)

---

Um alles auf einmal zu erledigen:

1. Öffnen Sie das Blatt, das Sie sortieren möchten.

2. Öffnen Sie den VBA-Editor mit Alt+F11

3. Einfügen > Modul

4. Fügen Sie diesen Code ein:

Unter sort_columns_separately_AZ()
  Dim rngStart As Range
  Dim rngHeaders als Bereich
  Dim c als Bereich
  Setzen Sie rngStart = ActiveSheet.Range("A2")
  Setzen Sie rngHeaders = ActiveSheet.Range(rngStart, rngStart.End(xlToRight)).

  Für jedes c in rngHeaders
    ActiveSheet.Sort.SortFields.Löschen
    ActiveSheet.Sort.SortFields.Schlüssel hinzufügen:=c, _
      SortOn:=xlSortOnValues, Reihenfolge:=xlAscending, Datenoption:=xlSortNormal
    Mit ActiveSheet.Sort
      .SetRange ActiveSheet.Range(c, c.End(xlDown))
      .Header = xlJa
      .MatchCase = Falsch
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Anwenden
    Ende mit
  Nächste
End Sub

5. Ersetzen Sie im Code ActiveSheet.Range("A2")die Adresse der Zelle, an der Ihre Datentabelle beginnt, beispielsweise ActiveSheet.Range("B5").
6. SchlagF5

Ergebnisse:

Hinweis: Wenn Ihre Daten leere Zellen enthalten, muss dieser Code angepasst werden, damit er in den Spalten mit leeren Zellen ordnungsgemäß funktioniert.