Как да отпечатате работен лист без празни редове в Excel?
Когато отпечатвате работен лист, празните редове също ще бъдат отпечатани. Някои потребители на Excel са склонни да отпечатват работен лист без празни редове, за да компактират данните и да спестят документи. Но как да отпечатате работен лист без празни редове в Excel. Тази статия предлага два метода за вас.
Скрийте празните редове преди печат с VBA код
Изтрийте празните редове преди печат с Kutools за Excel
Скрийте празните редове преди печат с VBA код
Преди да отпечатате работния лист, можете да изпълните следния VBA код, за да скриете празните редове в определен диапазон. Моля, направете следното.
1. Натисни Друг + F11 за да отворите Microsoft Visual Basic за приложение прозорец.
2. В Microsoft Visual Basic за приложение прозорец, кликнете Поставете > Модули. И след това копирайте и поставете под VBA кода в прозореца на модула.
VBA код: Скрийте празните редове в избрания диапазон
Sub HideBlankRows()
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
Dim I As Long
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "Don't support multiple ranges", , "Kutools for Excel"
Exit Sub
End If
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xRg.Rows.Count
xRg.Rows(I).EntireRow.Hidden = (Application.CountA(xRg.Rows(I)) = 0)
Next
Application.ScreenUpdating = xUpdate
End Sub
3. Натисни F5 клавиш за изпълнение на кода, след това a Kutools за Excel се появи диалогов прозорец, моля, изберете диапазона с празни редове, които не искате да отпечатате, и след това щракнете върху OK бутон.
Тогава всички празни редове в избрания диапазон се скриват веднага. След това можете да започнете да печатате работния лист без празни редове.
Забележка: След отпечатване можете да покажете тези празни редове със следния VBA код.
VBA код: Показване на всички празни редове в избрания диапазон
Sub UnhideRows()
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range to unhide the blank rows", "Kutools for Excel", xAddress, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
xRg.EntireRow.Hidden = False
Application.ScreenUpdating = xUpdate
End Sub
Изтрийте празните редове преди печат с Kutools за Excel
Ако искате да отпечатате работен лист без празни редове, препоръчваме ви да изтриете всички празни редове с Изтриване на празни редове полезност на Kutools за Excelи след това можете да отпечатате работния лист ръчно.
Преди да кандидатствате Kutools за Excel, Моля те първо го изтеглете и инсталирайте.
1. кликване Kutools > Изтрий > Изтриване на празни редове > В избран диапазон/В активен лист/В избрани листове/Във всички листове въз основа на вашите нужди. Вижте екранна снимка:
Забележка: За изтриване на празни редове в диапазон, моля, изберете първо този диапазон и след това приложете функцията.
2. След това се появява диалогов прозорец, за да ви каже колко реда са били изтрити, моля, щракнете върху OK бутон.
Сега всички празни редове са изтрити. Можете да започнете да отпечатвате вашия работен лист.
Забележка: Тази помощна програма поддържа Undo Ctrl + Z.
Ако искате да имате безплатен пробен период (30 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!