Excel VBA在自动填充到日历时在非空白和跳过周末之间查找空单元格

我正在尝试构建一个员工假期跟踪器，以自动将数据从一张汇总表填充到Excel中内置的日历中

我有几个问题要问

首先，当填充到日历时，我希望代码跳过周末

第二，如果多个员工在同一天休假。我希望能够找到日期下的下一个空行

日历如下所示：

该日期下还有其他日期，因此我无法使用rows.count查找最后一个空行

以下代码是填充多天的if语句的一部分

我的代码的其他部分可以在这篇文章中找到

我正试图解决上面列出的两个问题

我是编程的初学者。有太多的层，我不知道我的代码出了什么问题

非常感谢你的帮助

 For i = 1 To TotalDaysOff

        If Weekday(startDate + (i - 2), vbMonday) < 6 Then

            With Sheets(sSheet)
                Set R = .Range("A1:H58").Find(startDate + (i - 2))
                If Not R Is Nothing Then

                    If IsEmpty(R.row + 1) Then
                        Sheets(sSheet).Cells(R.row + 1, R.Column).Value = Employee & " " & Reason & " " & Time

                    Else
                        Sheets(sSheet).Cells(R.row + 2, R.Column).Value = Employee & " " & Reason & " " & Time

                    End If


                 End If

            End With

         Else
         End If

   Next i

End If

---

不确定这是否是答案。。但我认为下面的内容会有所帮助

如果可以计数，并且计数返回零，则可能需要找到另一个单元格来填充数据。。

---

如果计数大于零，则可以尝试通过If语句定位单元格，如同一问题中所述。

我知道Rows.count函数用于查找最后一行。我的问题是，我试图在包含文本的行之间找到下一个空单元格。希望我已经解释了我的情况…你有没有可能发布日历的截图，以便我们更好地了解你的结构？嗨，我发布了日历。很抱歉不方便。据我所知，日历表[表示天数]中的数值是作为日期输入的，格式仅显示日期，还是您只是在单元格中输入了天数？您好，日期是使用公式输入的，每月调整=IFANDYEARJanSun1+10=日历年，月1+10=1，月1+10，