Excel で範囲内の空白でないセルを選択する方法は？

「ジャンプ(Go To) 特殊」機能を使えば、以下の手順で「選択範囲内の空白でないセル」を簡単に選択できます。

1．空白でないセルをすべて選択する範囲を選択し、F5キーを押して「ジャンプ」ダイアログボックスを開きます。次に、特殊ボタンをクリックして「ジャンプ(Go To) 特殊」ダイアログボックスを開きます。

注：ジャンプ(Go To) 特殊ダイアログボックスは、直接ホーム > 検索と選択 > ジャンプ(Go To) 特殊をクリックしても開くことができます。

2．「ジャンプ(Go To) 特殊」ダイアログボックスで、定数、数値、テキスト、論理値、およびエラーの各オプションをチェックし、OKボタンをクリックします。

これで、制限された範囲内で内容のある空白でないセルのみが選択されていることを確認できます。下記のスクリーンショットをご参照ください。

Excel で範囲内のすべての空白でないセルをワンクリックで選択する

Kutools for Excel の空白でないセルを選択ユーティリティを使えば、範囲を選択した後、わずか1 クリックでその中にある空白でないセルをすべて素早く選択できます。

ここでは、指定範囲内から空白でないセルをすべて選択する VBA マクロをご紹介します。以下の手順に従ってください：

1．Alt+F11キーを押して、「Microsoft Visual Basic for Applications」ウィンドウを開きます。

2．挿入>標準モジュールをクリックし、開いたモジュールウィンドウに次の VBA コードを貼り付けてください。

VBA：範囲から空白でないセルを選択する

Sub SelectNonBlankCells()
Dim Rng As Range
Dim OutRng As Range
Dim InputRng As Range
Dim xTitle As String
On Error Resume Next
xTitle = Application.ActiveWindow.RangeSelection.Address
Set InputRng = Application.InputBox("Range :", "KutoolsforExcel", xTitle, Type:=8)
Set InputRng = Application.Intersect(InputRng, Application.ActiveSheet.UsedRange)
For Each Rng In InputRng
If Not Rng.Value = "" Then
If OutRng Is Nothing Then
Set OutRng = Rng
Else
Set OutRng = Application.Union(OutRng, Rng)
End If
End If
Next
If Not (OutRng Is Nothing) Then
OutRng.Select
End If
End Sub

3．F5キーを押すか、実行ボタンをクリックして、この VBA を実行します。

4．表示されたダイアログボックスで、空白でないセルのみを選択する範囲を指定し、OKボタンをクリックします。

これで、指定された範囲内の空白以外のすべてのセルが瞬時に選択されます。

Kutools for Excel の空白でないセルを選択ユーティリティを使えば、特定の範囲内の空白でないセルをすべて、わずか1 クリックで瞬時に選択できます。

空白でないセルのみを選択したい範囲を指定し、Kutools > 選択 > 空白でないセルを選択をクリックします。

これで、制限された範囲内の空白でないセルを一括で選択できます。