首页 文章

循环显示工作表并删除那些不符合条件的工作[关闭]

提问于
浏览
-1

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

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

1 回答

  • 0

    你可以尝试这个宏 .

    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
    

相关问题