VBAブランクセルをボトムに並べ替える

Question

Excelの列から重複した値を再確認したいが、その前に並べ替える必要があるため、必要なものをすべて削除する必要があります。私が得た問題は、空白のセルであり、私はそれらを喚起したいが、彼らはトップのどのソートにもとどまっている。ここで私のソートコードは、任意のアイデアですか？

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 

解決策が必要なのは、2番目のキーを使って（空白）を最下部に並べ替えることができます。私は重複のいくつかがこの列の空白の値しか持たないので、私はそれらを削除するソリューションは必要ありません、そして、彼らは何かalternativを持っていなければそれらを保持する必要があります。

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

をここに私はそれを行うだろう方法は次のとおりです。私たちは、指定された列に空白がある場合は、チェックしている場合は、一番下に行全体を移動し、それを削除（そのテーブル全体1行上に移動する）。指定した列の上部に空でないセルがあるまで繰り返します。

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)。