VBA实践技巧精粹007:如何判断工作表为空并删除

①问题提出:如何判断指定工作表为空?

解决方案:利用Excel函数CountA统计指定工作表中的非空单元格,若为0,即为空工作表.

代码:

Sub 判断指定工作表是否为空()
    If Application.WorksheetFunction.CountA(Worksheets(1).UsedRange.Cells) = 0 Then
        MsgBox "空工作表!" & "是否删除?"
        Worksheets(1).Delete
    End If
End Sub
②问题提出:如何批量删除空白工作表?

解决方案:利用上面的代码将其做成一个函数,然后在过程中进行调用.函数用来判断是否为空白表,过程用来循环操作.

Function ShIsBlank(sht As Variant) As Boolean
    If TypeName(sht) = "string" Then
        Set sht = Worksheets(sht) 'sht是工作表对象,完全可以作为Worksheets集合的参数加以利用.
    End If
    If Application.WorksheetFunction.CountA(sht.UsedRange.Cells) = 0 Then
        ShIsBlank = True
    End If
   
End Function
Sub 批量删除空白工作表()
    Dim sht As Worksheet
    Application.DisplayAlerts = False
    For Each sht In Sheets 'Worksheets也可以
        If ShIsBlank(sht) = True Then
            sht.Delete
        End If
    Next sht
    Application.DisplayAlerts = True
End Sub

当然,上述代码也可改写为一个过程就可以解决,利用循环:统计出工作表的个数,然后由后往前逐个统计非空单元格是否为0,为0即删除.

43 Things： Excel, Excel VBA, 字符串
BuzzNet： Excel, Excel VBA, 字符串
del.icio.us： Excel, Excel VBA, 字符串
Flickr： Excel, Excel VBA, 字符串
IceRocket： Excel, Excel VBA, 字符串
LiveJournal： Excel, Excel VBA, 字符串
Technorati： Excel, Excel VBA, 字符串

 这就是 菊子曰啦！