试试以下代码：
Public Function RealDe(startdate As Date, LT As Integer, holiday As Range)
Dim i, b, r
i = 1
Do While i < LT
startdate = startdate + 1
b = Application.WorksheetFunction.CountIf(holiday, startdate) 'countif 要求holiday为range引用，所以要定义为range
If b = 0 Then
i = i + 1
End If
Loop
RealDe = Format(Date, startdate) ' 转换为日期格式
End Function
这个函数的目的是什么？为什么无法使用这个函数是什么意思？是不能用，还是函数得出错误值？
是放在标准模块内吗？
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024