在这里填写初学者，我需要在列中找到最大（最近）日期并将其复制到新的自动生成的工作表中。
使用Application.WorksheetFunction.Max似乎不适用于我。我在做什么错了？
dtrng（日期范围）是一个范围，dtcom（日期完成）和dtcom2是字符串。不确定这是否是应该的。 ws是原始工作表。复制它们的代码是这样的：
Set dtrng = ws.Range("S4:S1000")
dtcom = Application.WorksheetFunction.Max(dtrng)
dtcom2 = CDate(dtcom)
当前它只是给我一个0。
干杯，EJ