如何排序Excel列ST行与空/空列单元格在顶部？

Question

运行宏时，我有几行具有数据和“标志”的行，这些行与数据相邻。 例如：
名字 | 姓氏 | 旗

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

目标：
我希望行w / o标志（即列C == NULL /空字符串）排序到顶部，然后按B列排序A-> Z得到这个：

辛迪| LuWho |
鲍勃| Loblaw | 需要洗个澡
约翰| 史密斯| 需要洗个澡

我试过的：
使用Excel 2007的“排序”，我完成了排序依据（C列），排序（值）排序依据（A到Z）和（Z到A）。 A到Z和Z到A都会导致顶部而不是底部的标记行。

之前： 后：

我最终想要代码，但我现在正试图弄清楚如何手动完成它，以便我可以通过Excel的“记录宏”获取代码。

Answer 1

根据我上面的评论，问题是您使用的计算结果为空字符串。 如果该字段实际上是空的，那么您将拥有所需的行为。

这是一种肮脏但却有效的方法：

1. 在右侧创建一个新列。 使用公式=IF(C2<>"",2,1)并填写。
2. 从窥探中隐藏列（只需右键单击顶部的灰色列标题即可隐藏它）
3. 按此列排序而不是C.

Answer 2

我结束了IMO的解决方案，比@Poweruser创建另一个列，填充它，隐藏它，然后在隐藏列上使用sort更优雅。 我的方法使用基于条件格式的字体颜色更改并对其进行排序。

1. 选择包含要排序的空白值的所需列范围
2. 使用条件格式>新规则>'使用公式确定要格式化的单元'并在文本框中使用公式=IF(INDIRECT("RC",0)="",TRUE,FALSE)
3. 选择“格式化...”，选择“字体”选项卡并将字体颜色更改为非黑色或“自动”，应用更改
4. 使用'Sort'，'Sort By'是带有空白单元格的列，'Sort On'是'Font Color'，对于'Order By'，将Automatic更改为您选择的任何颜色并将其设置为'On Top'

通过对录制的宏进行一点修补，我得到了以下工作代码（在对'空'单元格进行排序后，它还按值排序另一列）：

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

Answer 3

其中一个解决方案是在排序之前用单引号（ ' ）替换空格。 它不可见但不是NULL 。 请参阅代码示例：

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