Excel 在工作簿中的工作表中循环指定为空白的单元格

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

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为空）保留为活动工作表

Private Sub SearchSheet()

    Dim Sheet As Worksheet
    Dim Output As String

    For Each Sheet In Worksheets
        Output = Sheet.Cells(1, 4) ' Cell D1

        If Output = vbNullString Then
            MsgBox "Sheet: " & Sheet.Name
            Sheet.Activate
            Exit Sub
        End If
    Next

    ' Clean
    Set Sheet = Nothing

End Sub

将第一张工作表（d1为空）保留为活动工作表

Private Sub SearchSheet()

    Dim Sheet As Worksheet
    Dim Output As String

    For Each Sheet In Worksheets
        Output = Sheet.Cells(1, 4) ' Cell D1

        If Output = vbNullString Then
            MsgBox "Sheet: " & Sheet.Name
            Sheet.Activate
            Exit Sub
        End If
    Next

    ' Clean
    Set Sheet = Nothing

End Sub