VBA对空白单元格进行排序

Question

我想从excel列中重新获取一些重复的值，但在此之前我需要对其进行排序，以便它不会Remowe出现任何我想拥有的内容。我得到的问题是空白单元格，我希望它们被重新装入，但是它们仍然保留在顶部的任何排序。这是我的排序代码，任何想法？

ABC.Range("A1", "AF" & lngLastRow).Sort key1:=ABC.Range("A1:A" & lngLastRow), _ 
    order1:=xlDescending, key2:=ABC.Range("P1:P" & lngLastRow), _ 
    order2:=xlDescending, MatchCase:=False, Orientation:=xlTopToBottom, Header:=xlNo 

我需要一个解决方案，我可以使用第二个键将它们（空白）排序到底部。我不需要一个解决方案，我删除它们，因为一些重复项在这一列中只有空白值，如果他们没有任何替代项，我仍然需要保留它们。

Answer 1

这涉及删除空白单元格。更改表名和列参数要求：

Dim i As Long 
Dim n As Long 

n = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row 

With Sheets("Sheet1") 
    For i = 1 To n 
     If .Cells(i, 1).Value = "" Then 
      .Cells(i, 1).EntireRow.Delete 
     End If 
    Next i 
End With 

Answer 2

以下是我会做：检查是否我们在指定的列空白，如果是，将整个行至底部，并删除它（所以整个表向上移动一行）。重复，直到指定列顶部有非空单元格。

Sub MoveBlanksToBottom() 
'you have to specify size of your table here 
Dim rows, columns, columnsWithBlanks As Long 
rows = 10 
columns = 4 
columnWithBlanks = 1 
'we will loop until the first row in specified column will be non empty 
Do While IsEmpty(Cells(1, columnWithBlanks)) 
    'copy entire row to the bottom 
    For i = 1 To columns 
     Cells(rows + 1, i).Value = Cells(1, i).Value 
    Next 
    'delete the row 
    Cells(1, 1).EntireRow.Delete 
Loop 

End Sub 

你整理你的表后，您应该使用这个Sub。

您可以通过大小的表作为参数，使之更加灵活：

Sub MoveBlanksToBottom() 
'you have to specify size of your table here 
Dim rows, columns, columnsWithBlanks As Long 
rows = 10 
columns = 4 
columnWithBlanks = 1 

应

Sub MoveBlanksToBottom(rows As Long, columns As Long, columnsWithBlanks As Long) 

更换然后，你可以这样调用：Call MoveBlanksToBottom(10, 4, 1)。