Как выбрать все непустые ячейки в заданном диапазоне Excel?

Функция «Перейти к» → «Выделить» позволяет выбрать непустые ячейки в указанном диапазоне. Выполните следующие шаги:

1. Выделите диапазон, из которого нужно выбрать все непустые ячейки, и нажмите F5, чтобы открыть диалоговое окно «Перейти к». Затем нажмите кнопку «Выделить», чтобы открыть диалоговое окно «Выделить».

Примечание: вы также можете сразу открыть диалоговое окно «Выделить», последовательно выбрав на ленте команды «Главная» > «Найти и выделить» > «Выделить».

2. В диалоговом окне «Выделить» установите флажки напротив параметров «Значения», «Числа», «Текст», «Логические значения» и «Ошибки», после чего нажмите кнопку «OK».

Теперь в ограниченном диапазоне выбраны только непустые ячейки с содержимым. См. снимки экрана ниже:

Один клик для выбора всех непустых ячеек в диапазоне в Excel

Утилита Kutools для Excel Выбрать непустые ячейки позволяет одним щелчком мыши быстро выбрать все непустые ячейки в заданном диапазоне.

Ниже приведён макрос VBA для выбора всех непустых ячеек в ограниченном диапазоне. Выполните следующие действия:

1. Нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.

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 для Excel Выбрать непустые ячейки позволяет одним щелчком мыши выделить все непустые ячейки в заданном диапазоне.

Выделите диапазон, из которого нужно выбрать только непустые ячейки, и последовательно нажмите «Kutools» > «Выделить» > «Выбрать непустые ячейки».

Теперь все непустые ячейки в ограниченном диапазоне выделены одновременно.