Как да скриете няколко празни реда или колони в Excel наведнъж в Excel?
За да скриете или премахнете празните редове или колони, може да ви помогне да съкратите работния лист, в тази статия ще ви представя някои бързи начини за скриване или премахване на празните редове или колони в работния лист на Excel.
Бързо скрийте множество празни редове или колони с VBA код
Бързо изтрийте множество празни редове или колони с Kutools за Excel
Бързо скрийте множество празни редове или колони с VBA код
Следният VBA код може да ви помогне да скриете множество празни редове или колони в работен лист бързо и лесно.
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Кликнете Поставете > Модулии поставете следния код в Модули Window.
VBA код: Скрийте множество празни редове в работен лист
Sub HideEmpties()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For I = 1 To xRg.Row + xRg.Rows.Count
If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
xRg.Rows(I).EntireRow.Hidden = True
End If
Next
End Sub
3. След това натиснете F5 за да изпълните този код и се показва поле за подкана, за да ви напомни да изберете диапазона от данни, който искате да скриете празните редове, вижте екранна снимка:
4, И после щракнете върху OK празните редове се скриват веднага, вижте екранната снимка:
Забележка: За да скриете няколко празни колони, моля, приложете следния VBA код:
VBA код: Скрийте няколко празни колони в работен лист
Sub HideEmpties()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For I = 1 To xRg.Column + xRg.Columns.Count
If Application.WorksheetFunction.CountA(xRg.Columns(I)) = 0 Then
xRg.Columns(I).EntireColumn.Hidden = True
End If
Next
End Sub
Бързо изтрийте множество празни редове или колони с Kutools за Excel
В този раздел ще говоря за това как да изтриете множество празни редове или колони, които сте нежелани в диапазон, работен лист или работна книга. The Kutools за ExcelЕ Изтриване на скрити (видими) редове и колони помощната програма може да ви помогне да разрешите тази задача възможно най-бързо.
Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
След инсталиране Kutools за Excel, моля, направете следното:
1. Изберете диапазона от данни, в който искате да изтриете празните редове или колони, след което щракнете Kutools > Изтрий > Изтриване на скрити (видими) редове и колони, вижте екранна снимка:
2. В Изтриване на скрити (видими) редове и колони изберете диалоговия прозорец В избран диапазон in Погледни вътре падащ списък (можете също да изберете друга опция в този падащ списък, както ви е необходимо), изберете Редове or Колони от Изтриване на типа раздел и изберете Празни редове or Празни колони под Детайлен тип раздел, вижте екранна снимка:
3, И после щракнете върху Ok празните редове или колони в селекцията са премахнати наведнъж. Вижте екранна снимка:
Забележка: С тази функция можете също така да изтриете скрити редове или колони, видими редове или колони в селекцията, работен лист или работна книга, както ви е необходимо.
Щракнете върху Безплатно изтегляне на Kutools за Excel сега!
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!