我正在使用Excel模型从雅虎财经中提取股票数据 . 每个库存的结果将下载到Excel工作簿中的不同工作表中 . 运行模型后,工作簿有许多工作表,其中一些包含不可用的数据 .
我期待创建循环遍历每个工作表的VBA代码并检查条件,即单元格A66是否包含日期 12/31/2014 . 如果不满足此条件,则需要删除工作表 .
12/31/2014
你可以尝试这个宏 .
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
1 回答
你可以尝试这个宏 .