Zum Sortieren von Excel-Spalte S. T. Zeilen w/ Null/Leer-Spalte Zelle Gehen An der Spitze?

Ich habe mehrere Zeilen mit Daten und 'flags', die ausgelöst werden, neben den Daten, wenn ein makro ausgeführt wird.
Zum Beispiel:

Vorname | Nachname | Flagge

John  | Smith  | Needs a Bath 
Cindy | LuWho  | 
Bob   | Loblaw | Needs a Bath

Ziel:

Ich möchte die Zeilen, die w/o-flags (D. H. wenn Spalte C == NULL/Leer-string) sortiert werden nach oben und dann Sortieren nach Spalte B, die von A->Z, diese zu bekommen:

Cindy | LuWho |
Bob Loblaw | Braucht eine Badewanne
John | Smith |
Muss eine Badewanne

, Was ich Versucht habe:

Mit Excel 2007 ist 'Sortiert' ist, habe ich "Sortieren nach" (Spalte C), Sortieren (Werte) Sortieren (A-Z) und (Z bis A). Sowohl Eine zu Z und Z zu Einem Ergebnis in die markierten Zeilen nach oben, und nicht unten.

Bevor: Zum Sortieren von Excel-Spalte S. T. Zeilen w/Null/Leer-Spalte Zelle Gehen An der Spitze?
Nach:

Ich letztendlich wollen Sie den code, aber ich bin gerade dabei, herauszufinden, wie zu tun Sie es von hand, so kann ich dann den code durch Excel 'Makro Aufzeichnen'.

Sind Sie sicher? Ich habe nur Excel 2010, aber wenn ich diese Art von Z bis A, Leerzeichen sind an der Spitze. Wenn ich Sortieren A bis Z, Leerzeichen am Ende. Ich wäre überrascht, wenn Sie die Art verändert, wie Sort Funktionalität arbeitet.
Ich versuchte es auf 2007 und Sortieren von A bis Z gibt das Ergebnis, die Sie erwarten. Ich bin mir nicht sicher, was Sie Taten, aber du hast es falsch 😀
Ich habe aktualisiert, mit Bildern von Prozess. Lassen Sie mich wissen, wenn du bist irgendwie geht das anders oder habt eine Idee, was mache ich "falsch" hier.
Zemens und @Alexandre, sind Sie beide mit leeren Feldern? Der Unterschied hier ist, dass Kurt ist mit Hilfe einer Formel in Spalte C. Wenn Sie ersetzen Sie leere Zellen mit ="" können Sie das Verhalten Kurt beschreibt.
hmm guter Fang. Sortierung Formeln ist immer ein bisschen problematisch. Eine hilfsspalte ist wahrscheinlich der beste Weg, dies zu tun, wie Sie vermuten.
Tatsächlich, ich bin Art von Hoffnung, jemand nach etwas einfacher. Meine Antwort funktioniert, aber es fühlt sich an wie zu viel.

InformationsquelleAutor Kurt Wagner | 2013-06-24

3

Pro mein Kommentar oben, das problem ist, dass Sie mit einer Formel, ergibt einen leeren string. Wenn das Feld war tatsächlich leer, müsste man das Verhalten, die Sie suchen.

Hier ein dreckig-aber-es-funktioniert Ansatz:
1. Eine neue Spalte auf der rechten Seite. Verwenden Sie die Formel =IF(C2<>"",2,1) und Füllung nach unten.
2. Ausblenden der Spalte vor neugierigen Augen (einfach mit der rechten Maustaste auf die graue Spalte header oben, um es zu verstecken)
3. Nach dieser Spalte Sortieren statt C.
- Gibt es eine Möglichkeit, das Feld "eigentlich leeren", beginnend mit dem, was ich in den Bildern? Ich würde denken, 'löschen' die Daten in der Zelle wäre es "eigentlich leeren", aber das scheint nicht der Fall zu sein, wie ich habe es gerade ausprobiert.
- Ich weiß nicht, von Arbeitsblatt-Funktionen, um eine Zelle leerer als "". Technisch gesehen, könnte man ein makro schreiben, um es für Sie tun, aber dann würden Sie haben, um es zu speichern als .xlsm, es werden makro-Warnungen, etc. Ich empfehle nur tun, den obigen Ansatz. Ich habe es selbst schon angewandt.
- Aber ich würde letztlich in einem makro in eine bestehende .xlsm, also habe ich keine Bedenken, bekommen ein makro zu machen, was "wirklich leer" und dann Sortieren...
InformationsquelleAutor PowerUser
0

Beendete ich kommen mit einer Lösung, die IMO, ist eleganter als @Poweruser 's schaffen eine weitere Spalte ein, füllen Sie es, verstecken Sie es, und verwenden Sie dann Sortieren Sie die versteckte Spalte. Meine Methode nutzt die Schriftfarbe ändert sich basierend auf bedingte Formatierung und die Arten davon.
1. Wählen Sie den gewünschten Bereich der Spalte, die enthält leere Werte Sie Sortieren möchten
2. Verwenden Sie die Bedingte Formatierung>Neue Regel>', Verwenden Sie eine Formel, um zu bestimmen, welche Zellen formatieren " und in das Textfeld mit dem Formel - =IF(INDIRECT("RC",0)="",TRUE,FALSE)
3. Wählen Sie 'Formatieren...', wählen Sie 'Font' Registerkarte und ändern Sie die Schriftart-Farbe zu etwas, das nicht schwarz ist oder 'Automatik', die änderungen gelten
4. Mit 'Sort', hab 'Sortieren nach' die Spalte mit den leeren Zellen, 'Sortiert' werden, 'Font Color' und für die 'Order By' ändern sich automatisch, um welche Farbe Sie ausgewählt habe und es 'On Top'
Mit ein wenig basteln von aufgezeichneten makro, ich habe folgenden funktionierenden code (welcher auch sortiert nach dem Wert einer anderen Spalte nach der Sortierung für die 'leeren' Zellen):
```
For oRow = 2 To iFinalRow
    ActiveWorkbook.ActiveSheet.Cells(oRow, 5).Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=IF(INDIRECT(""RC"",0)="""",TRUE,FALSE)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
Next oRow

'Sort
ActiveWorkbook.ActiveSheet.SORT.SortFields.Clear
ActiveWorkbook.ActiveSheet.SORT.SortFields.Add(Range("E:E"), _
    xlSortOnFontColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(31, 73, 125)
ActiveWorkbook.ActiveSheet.SORT.SortFields.Add _
    Key:=Range("D1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
    :=xlSortNormal
With ActiveWorkbook.ActiveSheet.SORT
    .SetRange Range("A:F")
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
```
InformationsquelleAutor Kurt Wagner

Einer der Lösungen ist zu ersetzen Leerzeichen mit einfachen Anführungszeichen (') vor der Sortierung. Es ist nicht sichtbar, aber es ist nicht NULL. Siehe das code-Beispiel:

Public Sub Sort_blanks()

    Dim lastrow As Integer

    ' The number of the last row
    lastrow = Cells(Rows.Count, 1).End(xlUp).Row

    ' Replace blanks with with single quote
    Range("C2:C" & lastrow).Select
    Application.DisplayAlerts = False
    On Error Resume Next
    Selection.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "'"
    Application.DisplayAlerts = True
    On Error GoTo 0

    ' Sort
    Range("A:C").Sort key1:=Range("C:C"), key2:=Range("B:B"), _
        order1:=xlAscending, order2:=xlAscending, Header:=xlYes

End Sub

InformationsquelleAutor djhurio

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.