จะป้องกันไม่ให้แถวว่างพิมพ์ใน Excel ได้อย่างไร

หากเวิร์กชีต Excel ของคุณมีแถวว่าง โดยทั่วไปแถวเหล่านั้นจะพิมพ์ออกมาพร้อมกับข้อมูลอื่นๆ ทำให้สิ้นเปลืองกระดาษและพื้นที่ เพื่อหลีกเลี่ยงปัญหานี้ คุณสามารถใช้โค้ด VBA เพื่อซ่อนแถวว่างโดยอัตโนมัติก่อนพิมพ์ คู่มือนี้จะแสดงวิธีการตั้งค่าและใช้โค้ดนี้เพื่อพิมพ์เฉพาะแถวที่มีข้อมูลเท่านั้น เพื่อให้การพิมพ์ออกมาสะอาดและมีประสิทธิภาพมากขึ้น

ไม่รวมแถวว่างเมื่อพิมพ์เวิร์กชีตด้วยโค้ด VBA

ไม่รวมแถวว่างเมื่อพิมพ์เวิร์กชีตด้วยโค้ด VBA

ด้วยรหัส VBA ต่อไปนี้คุณสามารถพิมพ์แผ่นงานได้โดยไม่ต้องมีแถวว่างโปรดทำดังนี้:

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: หยุดแถวว่างเมื่อพิมพ์:

Sub Print_NonBlank_Rows()
'Updateby Extendoffice
Dim xStr As String
    Dim xRg As Range
    Dim xHideRg As Range
    Dim xTxt As String
    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
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
            If xHideRg Is Nothing Then
                Set xHideRg = xRg.Rows(I)
            Else
                Set xHideRg = Union(xHideRg, xRg.Rows(I))
            End If
        End If
    Next
    xHideRg.EntireRow.Hidden = True
    ActiveSheet.PrintOut Copies:=1
    xHideRg.EntireRow.Hidden = False
    Application.ScreenUpdating = True
End Sub

3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้ กล่องพร้อมท์จะปรากฏขึ้นเพื่อขอให้คุณเลือกช่วงข้อมูลที่คุณต้องการพิมพ์ ดูภาพหน้าจอ:

4. จากนั้นคลิก OKและช่วงที่คุณเลือกถูกพิมพ์พร้อมกันโดยไม่มีแถวว่าง