如何在Excel中打印不含空行的工作表？

不含任何空行的工作表是指不包含任何空行的Excel表格。但在将任何数据映射到现实时，这是不可能的。因此，最好在打印工作表之前从Excel中删除空行。这项任务可以通过两种方式完成，第一种方法是使用VBA代码从Excel表格中删除空行，而第二种方法描述了使用Kutools执行相同任务的过程。本文提供了两个通用的示例，简要演示了实现同一任务的过程。

示例1：在Excel中打印不含空行的工作表。

步骤1

要了解隐藏空行的过程，请参考下图。在下图所示的Excel表格中，我们将向一些单元格输入记录值，并将第3行和第5行的数据留空。

步骤2

在打开的工作表中，右键单击Sheet1选项卡，然后选择“查看代码”选项。请参考下图。

步骤3

上述步骤将打开一个新的对话框，“Microsoft Visual Basic for Applications”。此对话框包含一个空白区域。在提供的区域中键入代码。

步骤4

单击上面显示的空白区域，然后键入以下代码

' define function header
Sub Worksheet_bl()
    ' declare required variables
    Dim g1 As Range
    Dim cell_x As Range
    Dim m As String
    Dim t As Boolean
    Dim I As Long
    ' if any error happen
    ' continue next statement
    On Error Resume Next
    ' acess address
    m = Application.ActiveWindow.RangeSelection.Address
    ' set range for applications
    Set g1 = Application.InputBox("Range to be selected", "Required range", m, , , , , 8)
    Set g1 = Application.Intersect(rang_x, ActiveSheet.UsedRange)
    ' if range is not provided
    If g1 Is Nothing Then Exit Sub
        If g1.Areas.Count < 1 Then
            ' then display message
            MsgBox "Error", , "Kutools"
            ' exit method definition
            Exit Sub
            ' end of if block
            End If
            ' set variable value
            t = Application.ScreenUpdating
            ' set updating to false
            Application.ScreenUpdating = False
            ' use for each loop expression
            For l = 1 To g1.Rows.Count
                ' hidden value
                g1.Rows(l).EntireRow.Hidden = (Application.CountA(g1.Rows(l)) = 0)
            ' next keyword
            Next
            Application.ScreenUpdating = t
' end of method definition
End Sub

请以正确的缩进编写代码，以避免任何错误。

步骤5

在以正确的缩进键入代码后，单击工具栏上提供的“运行”按钮。要获得正确的参考，请单击下面突出显示的“运行”按钮