Excelで空白セルをデータの上に並べ替えるにはどうすればよいですか？

空白セルが含まれているデータリストがあり、すべての空のセルをデータの上に並べ替えたい場合、Excelの並べ替え機能を使用すると、『最小から最大へ』と『最大から最小へ』の両方の並べ替え機能が空のセルをレコードの下に配置します。この場合、次のチュートリアルでは、Excelで行を並べ替え、空白セルを上に配置する方法について説明します。

色付きセルを並べ替えて空白セルを上に配置する
Kutools for Excelを使用して簡単に空白セルを上に配置する
ヘルパーカラムを使用して空白セルを上に配置する
VBAコードを使用して空白セルを上に配置する

色付きセルを並べ替えて空白セルを上に配置する

Excelでは背景色でデータを並べ替えることができます。ここでは、空白セルを特定の色で塗りつぶし、その後その色で並べ替えます。以下の手順で行ってください：

1. データリストを選択し、Ctrl + Gを押して「移動」ダイアログを開き、「特別」ボタンをクリックします。スクリーンショットをご覧ください：

2. 表示された「移動 特別」ダイアログボックスで「空白セル」オプションをチェックし、「OK」をクリックします。

3. これですべての空のセルが選択されました。次に、 ホーム > 塗りつぶし色をクリックして、希望の色を選択してください。スクリーンショットのように操作します：

4. 次に、塗りつぶし色でリストを並べ替えます。値を選択し、データ > 並べ替えをクリックします。表示された 「並べ替え」ダイアログで、並べ替えたい列を選択し、「ソート基準」ドロップダウンリストから 「セルの色」を選択します。次に、空白セルの色をクリックし、最後に「一番上に配置」オプションを選択します。スクリーンショットをご覧ください：

5. 設定が完了したら「OK」をクリックします。これで、色付けされた空白セルが最初に並べ替えられます。その後、並べ替え後に色を削除できます。スクリーンショットをご覧ください：

Kutools for Excelを使用して簡単に空白セルを上に配置する

Kutools for Excelの高度な並べ替え機能を使用すると、Excelで行を簡単に並べ替え、空白セルを上に配置できます。以下の手順で行ってください。

1. 並べ替えたい範囲を選択し、空白セルを上に配置したい場合は、Kutools Plus > 並べ替え > 高度な並べ替えをクリックします。

2. 「高度な並べ替え」ダイアログボックスで、並べ替え条件を選択し、「先頭の空白セル」ボックスをチェックし、最後に「OK」ボタンをクリックします。スクリーンショットをご覧ください：

これで選択した範囲が並べ替えられ、すべての空白セルがすぐに一番上に配置されます。以下のスクリーンショットをご覧ください。

ヘルパーカラムを使用して空白セルを上に配置する

データリストの上に空白セルを並べ替えるには、数式を使用して空白を識別し、その後並べ替え機能を適用します。

1. データの隣にある空白セル（例えばB1）に、この数式 =A1="" を入力します。スクリーンショットをご覧ください：

2. 次に、この数式を含むようにセルの範囲までフィルハンドルをドラッグします。すべての空白セルはTRUEとして表示され、他のセルはFALSEとして表示されます。スクリーンショットをご覧ください：

3. 次に、データ > 最大から最小へをクリックすると、「 並べ替えの警告」ダイアログがポップアップします。「選択範囲を拡張する」をチェックします。スクリーンショットをご覧ください：

4. そして「OK」をクリックすると、すべての空白セルが値の一番上に並べ替えられます。

5. 最後に、必要に応じてヘルパーカラムBの値を削除できます。

VBAコードを使用して空白セルを上に配置する

以下のVBAコードを適用すると、データの一番上に空白セルを迅速に並べ替えることができます。

1. ALT + F11キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2. 挿入 > モジュールをクリックし、 モジュールウィンドウに次のコードを貼り付けます。

VBAコード: データの一番上に空白セルを並べ替える

Sub SortBlankOnTop()
'Update 20140318
On Error Resume Next
Dim WorkRng As Range
Dim xMin As Double
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xMin = Application.WorksheetFunction.Small(WorkRng, 1) - 1
WorkRng.SpecialCells(xlCellTypeBlanks) = xMin
WorkRng.Sort , Key1:=Cells(WorkRng.Row, WorkRng.Column), Order1:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
WorkRng.Replace What:=xMin, Replacement:="", LookAt:=xlWhole
End Sub

3. 次にF5キーを押してこのコードを実行します。ポップアップするダイアログで、並べ替えたいデータ範囲を選択します。スクリーンショットをご覧ください：

4. そして「OK」をクリックすると、空のセルが一番上に並べ替えられます。

関連記事：

• Excelで取り消し線でデータを並べ替えたりフィルタリングしたりするにはどうすればよいですか？
• Excelでデータを最頻値で並べ替えるにはどうすればよいですか？
• Excelでメールアドレスをドメインごとに並べ替えるにはどうすればよいですか？
• Excelで奇数または偶数で行を並べ替えるにはどうすればよいですか？