如何在 Excel 中快速选中指定区域内的所有非空单元格？

“定位条件”功能可助您轻松按以下步骤，在所选区域中精准选取非空单元格。

1. 选择要从中选取所有非空单元格的区域，然后按 F5 键打开“定位”对话框，接着点击“定位条件”按钮以打开“定位条件”对话框。

注意：您也可以通过依次点击“开始” > “查找和选择” > “定位条件”，直接打开“定位条件”对话框。

2. 在“定位条件”对话框中，勾选“常量”、“数值”、“文本”、“逻辑值”以及“错误”选项，然后单击“确定”按钮。

现在，您将看到限定区域内所有包含内容的非空单元格均已被选中。请参见下方截图：

一键在 Excel 区域中选择所有非空单元格

Kutools for Excel 的选择非空单元格工具可助您一键快速选中所选区域中的所有非空单元格。

这里我们为您提供了一个 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. 在弹出的对话框中，请指定要仅选择非空单元格的区域，然后单击“确定”按钮。

现在，限定区域内的所有非空单元格均已立即被选中。

Kutools for Excel 的选择非空单元格工具可让您只需单击一次，即可从指定区域中快速选中所有非空单元格。

只需选择包含非空单元格的区域，然后单击 Kutools > “选择” > 选择非空单元格。

现在，限定区域内的所有非空单元格均已一次性选中。