时间戳

首页 > 解决方案 > 循环工作簿中的工作表以使特定单元格为空白

excel - 循环工作簿中的工作表以使特定单元格为空白

问题描述

我查看了此站点和许多其他站点，但没有在 Excel VBA 中找到我正在寻找的确切代码。可能没有以正确的方式询问。我有一个工作簿，其中包含一年中每一天的工作表，每个标签都像“mmddyy”。我试图找到的是一段代码，它将遍历每个工作表，专门查看单元格位置 D1，直到找到该单元格为空白的第一个工作表。然后运行代码的其余部分，该代码由几个复制/粘贴命令组成，最后在单元格 D1 中粘贴日期，因此当第二天运行脚本时，它现在会越过刚刚粘贴到的工作表。

标签： excelvba

解决方案

sub FindBlank()

Dim ws as worksheet

For Each ws in ThisworkBook.Worksheets
    If ws.Range("D1") = "" Then
        ws.Activate
        Exit For
    End If
Next ws

End Sub

将第一个工作表与 d1 空白作为活动工作表

推荐阅读