Excel VBA 判斷工作表是否為空或被使用過（比如設置過框線）

IsEmpty 函數
返回 Boolean 值，指出變量是否已經初始化。
【語法】
IsEmpty(expression)
必要的 expression 參數是一個 Variant，包含一個數值或字符串表達式（實際上還可以是單元格）。但是，因為 IsEmpty 被用來確定個別變量是否已初始化，
所以 expression 參數通常是單一變量名。
【說明】
如果變量未初始化或已明確設置為 Empty，則 IsEmpty 返回 True；否則返回 False。如果 expression 含有多個變量，則 IsEmpty 總是返回 False。
IsEmpty 只返回對 variant 表達式有意義的信息。

 

'判斷工作表是使用過自定義函數
Function isUsedSheet(ByVal sheet As Worksheet) As Boolean
    isUsedSheet = IsEmpty(sheet.UsedRange)
End Function
'判斷工作表是為空工作表（即所以單元格的值為空）自定義函數
Function isEmptySheet(ByVal sheet As Worksheet) As Boolean
    If Application.WorksheetFunction.CountA(sheet.Cells) > 0 Then
        isEmptySheet = False
    Else
        isEmptySheet = True
    End If
End Function




Sub shtTest() '測試
    Dim sht1 As Worksheet
    For Each sht1 In Sheets
        Debug.Print sht1.Name & " is empty? " & isEmptySheet(sht1)
        Debug.Print sht1.Name & " is used? " & isUsedSheet(sht1)
    Next
    
End Sub