วิธีตรวจสอบอย่างรวดเร็วว่าแผ่นงานว่างเปล่าใน Excel หรือไม่?

หากมีชีตว่างบางส่วนในเวิร์กบุ๊กขนาดใหญ่ คุณจะตรวจสอบว่าชีตนั้นว่างในเวิร์กบุ๊กหรือไม่ แล้วลบออกอย่างรวดเร็วได้อย่างไร ใน Excel มีฟังก์ชันในตัวที่ใช้ตรวจสอบว่าชีตนั้นว่างหรือไม่ แต่ในที่นี้ ฉันจะแนะนำโค้ด VBA ให้คุณใช้เพื่อตรวจสอบว่าชีตนั้นว่างหรือไม่

ตรวจสอบว่าแผ่นงานว่างเปล่าด้วย VBA

ตรวจสอบว่าแผ่นงานว่างเปล่าด้วย VBA

หากต้องการตรวจสอบว่าแผ่นงานว่างหรือไม่คุณสามารถใช้รหัสมาโครด้านล่างเพื่อตรวจสอบได้อย่างรวดเร็วว่าแผ่นงานว่างหรือไม่

1. เปิดใช้งานแผ่นงานที่คุณต้องการตรวจสอบว่าว่างเปล่าให้กด Alt + F11 กุญแจสำคัญในการเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างแล้วคลิก สิ่งที่ใส่เข้าไป > โมดูล เพื่อสร้างใหม่ โมดูล.

2. ในสคริปต์ว่างให้วางโค้ดมาโครด้านล่างลงไป ดูภาพหน้าจอ:

VBA: ตรวจสอบว่าแผ่นงานว่างเปล่า

Sub CheckSheetEmpty()
'UpdatebyExtendoffice20170830
    If WorksheetFunction.CountA(ActiveSheet.UsedRange) = 0 And ActiveSheet.Shapes.Count = 0 Then
        MsgBox "Sheet is empty", vbInformation, "KuTools For Excel"
    Else
        MsgBox "Sheet is not empty", vbInformation, "KuTools For Excel"
    End If
End Sub

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

OR