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

Question

我正在使用Excel模型从雅虎财经中提取股票数据。每个库存的结果将下载到Excel工作簿中的不同工作表中。运行模型后，工作簿有许多工作表，其中一些包含无法使用的数据。

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

Answer 1

你可以尝试这个宏。

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