yjyblog

摘要： 1 Sub count_date() 2 '计算所有天数，并对日期去重 3 Dim dic As Object 4 Dim arr() As Variant 5 Dim d As Date 6 Dim cols As Integer 7 8 '选5列：1条件列，2开始日期，3结束日期，4,第一列出现 阅读全文