将不同的日期格式统一一种格式（0000/0/0）

cherga

liulang0808 发表于 2019-10-7 07:42
Sub changedate()
    r = Cells(Rows.Count, 10).End(3).Row
    Application.ScreenUpdating = False ...

统一时间格式： 可以运行 但可能出现20190918（格式为时间格式）以及有中文字（未体检）这些情况就会提示溢出错误，希望可以解决这些问题，不然错误后整列的数据就被擦除了
固定行高以及框线：之前运行完美，但这个数据库里不知道哪里与之不符，也提示溢出错误。后来把第2583行的体检时间20190918（时间格式）改为常规格式就可以了，这是为什么。
文件是找了一个录的比较差的数据库。
非常感谢版主的帮忙，昨夜版主一席话，今后会更加系统性参考学习。

cherga

liulang0808 发表于 2019-10-7 07:42
Sub changedate()
    r = Cells(Rows.Count, 10).End(3).Row
    Application.ScreenUpdating = False ...

能不能把昨天的问题帮我解决下