循环工作表并删除不符合条件的工作表

Loop through sheets and delete those which do not meet a condition

我正在使用 Excel 模型从 Yahoo Finance 提取股票数据。每只股票的结果都下载到 Excel 工作簿中的不同工作 sheet 中。运行模型后，工作簿有很多sheet，其中一些包含无法使用的数据。

我想创建 VBA 循环遍历每个作品的代码 sheet 并检查条件，即单元格 A66 是否包含日期 12/31/2014。如果不满足此条件，则需要删除sheet。

你可以试试这个宏。

Sub checkSheets()
    For i = ActiveWorkbook.Sheets.Count To 1 Step -1
        If ActiveWorkbook.Sheets(i).Cells(66, 1) <> CDate("12/31/2014") Then
            ActiveWorkbook.Sheets(i).Delete
        End If
    Next
End Sub