摘要: '日期添加 Sub addDate(d) Dim rg As Range, dd As Date d = Split(d, "-")(0) d = Replace(d, ".", "/") dd = CDate(d) r = ActiveSheet.Range("a65536").End(xlUp).Row '[d2] = dd ... 阅读全文
posted @ 2016-09-29 19:13 lunawzh 阅读(1111) 评论(0) 推荐(0) 编辑