2020年2月9日
改日期
摘要： Sub zh() For i = 2 To Range("a65536").End(xlUp).Row Range("b" & i) = DateSerial(Left(Range("a" & i), 4), Mid(Range("a" & i), 5, 2), Right(Range("a" & 阅读全文
posted @ 2020-02-09 21:42 星翊 阅读(153) 评论(0) 推荐(0) 编辑