时间戳

首页 > 解决方案 > 检查excel是否为空白

excel - 检查excel是否为空白

问题描述

我正在尝试发送系统生成的电子邮件。其中包含一个excel。但我想知道excel是否为空白。我该如何检查？以及如何检查指定范围是否为空白？

标签： excel

解决方案

下面的代码循环所有工作表并检查是否为空：

Sub Empty_Area()
    
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        
        With ws
        
            If WorksheetFunction.CountA(.UsedRange) = 0 And .Shapes.Count = 0 Then
                MsgBox "Empty"
            Else
                MsgBox "Not empty"
            End If
            
        End With
        
    Next ws
    
End Sub

下面的代码检查 sheet1 范围 A1:A10 是否为空：

Sub Empty_Area()
    
    Dim rng As Range
    
    Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A1:A10")
    
                            
    If WorksheetFunction.CountA(rng) = 0 Then
        MsgBox "Empty"
    Else
        MsgBox "Not empty"
    End If
                            
End Sub

推荐阅读