Как да изберете всички клетки с данни в Excel?
Когато данните остават в прекъснати клетки, как избирате и копирате данните? Ще загубите много време, за да изберете всички прекъснати клетки с данни една по една, особено данните остават в почти произволен ред. Следният труден начин ще ви помогне бързо да изберете клетки за повикване с данни в селекциите.
Изберете всички клетки с данни, с изключение на формули, с командата Go to Special
Изберете всички клетки с данни, включително формули с VBA код
Изберете всички клетки с данни, включително формули с едно щракване на Kutools за Excel
Изберете всички клетки с данни, с изключение на формули, с командата Go to Special
Ако няма данни, изчислени с формула, Отидете на Special командата може да ви помогне лесно да изберете всички клетки с данни в селекциите.
Стъпка : Изберете диапазона, с който ще работите, и след това натиснете F5 ключ за отваряне на Отидете в диалогов прозорец.
Стъпка : Кликнете върху Специален бутон за влизане Отидете на Special диалогов прозорец. След това проверете константи опция, вижте екранна снимка:
Стъпка : Щракнете OK, тогава ще видите, че са избрани всички клетки със съдържание, с изключение на клетките с формула.
Забележка: По този начин не можете да изберете клетки с формули.
Изберете всички клетки с данни, включително формули с VBA код
Ако имате клетки, пълни с формули, можете да изберете всички клетки с данни в селекцията със следния VBA код. Моля, направете следното:
Стъпка : Задръжте натиснат Alt + F11 клавиши в Excel, за да отворите Прозорец на Microsoft Visual Basic за приложения.
Стъпка : Щракнете Поставете > Модулии поставете следния макрос в Прозорец на модула.
VBA код: изберете всички клетки с данни, включително формули
Sub SelectNotBlackRange()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim OutRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
If Rng.Value <> "" Then
If OutRng Is Nothing Then
Set OutRng = Rng
Else
Set OutRng = Union(OutRng, Rng)
End If
End If
Next
If Not OutRng Is Nothing Then
OutRng.Select
End If
End Sub
Стъпка : След това натиснете F5 за да изпълните този код и ще изскочи поле за подкана, за да ви каже да изберете диапазон, който искате да изберете клетките с данни.
Стъпка : След като изберете диапазона, щракнете OKи всички клетки с данни, включително формули в диапазона, са избрани.
Изберете всички клетки с данни, включително формули с едно щракване на Kutools за Excel
Ако искате да изберете клетките, съдържащи данни, както стойности, така и формули, само с по-малко стъпки, тук мога да ви представя лесен начин, Kutools за Excel, Със своята Изберете Непразни клетки можете да изберете клетките с данни само с няколко кликвания.
| Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
След инсталиране Kutools за Excel, моля, направете следното:( Безплатно изтегляне Kutools за Excel сега )
Step1: Изберете диапазона, който искате да изберете само клетките с данни.
Step2: Щракнете Kutools > Изберете > Изберете Непразни клеткии след това всички клетки с данни са избрани наведнъж, вижте екранната снимка:
Безплатно изтегляне Kutools за Excel сега
Още по темата:
Изберете несъседни клетки или диапазони
Демаркирайте клетки от избраните диапазони
Обратни селекции на избрани диапазони
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
