データを並び替えたい時はRange.Sortメソッドを使います。下のコードを実行するとD列の数値をキーとして降順に並び替えます。 Sub test1() With Worksheets("Sheet1").Sort .SortFields.Clear .SortFields.Add Key:=Range("D1"), Order:=xlDescending .SetRange Range("A1:D7") .Header = xlYes .Apply End With End Sub コードの説明 .SortFields.Clear 前回の並び替えの条件が反映されているのでクリアしています。 .SortFields.Add Key:=Range("D1"), Order:=xlDescending 並び替えのキーにD列を指定しています。パラメーターOrderで降順か昇順か指定します。降順が