Nicht die gewünschte Ausgabe in Excel erhalten

Nicht die gewünschte Ausgabe in Excel erhalten
V      A      R      K
12     4      9      12
  1. Ich muss diese Werte von Max bis Min anzeigen
  2. Wie 12,12,9,4
  3. Dann zeigen Sie die entsprechenden Noten entsprechend in separaten Zellen an

Antwort1

Beginnen Sie mit Daten wie:

Bildbeschreibung hier eingeben

Ausführen dieses Makros:

Sub Zort()
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:D2"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:D2")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

wird Folgendes erzeugen:

Bildbeschreibung hier eingeben

Antwort2

Wenn Sie zum Sortieren kein Makro verwenden möchten, wie Gary's Student vorschlägt, können Sie dies auch folgendermaßen im Sortierdialog tun:

Bildbeschreibung hier eingeben

verwandte Informationen