VBA将空白单元格排序到底部

Sub SortBlankCellsToBottom()
    Dim rng As Range
    Dim lastRow As Long
    
    ' 设置要排序的范围
    Set rng = Range("A1:A10") ' 将范围修改为你需要的区域
    
    ' 获取最后一行的行号
    lastRow = rng.Rows.Count
    
    ' 使用Excel内置的排序功能，将空白单元格排序到底部
    rng.Sort Key1:=rng, Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    
    ' 清除排序后的选区
    rng.Clear
    
    ' 将空白单元格填充为0或其他值
    rng.SpecialCells(xlCellTypeBlanks).Value = 0 ' 可以修改为其他值
    
    ' 将填充的单元格重新排序到底部
    rng.Sort Key1:=rng, Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub