求助：日期拆分并统一日期格式

sdytsxd991122

maihh2001

谢谢各位热心帮助！

maihh2001

醉眼看尘世 发表于 2024-8-12 22:51

把它生成在SHEET2,如何更改代码？

醉眼看尘世

maihh2001 发表于 2024-8-13 13:40
把它生成在SHEET2,如何更改代码？

With Sheet2 'Sheet1   设定结果工作表
    .Range("F:H").ClearFormats '清除放置区域
    .[f1:h1] = Arr '放标题行
    .[g2].Resize(jL, 1).NumberFormatLocal = "yyyy-mm-dd" '设日期格式
    .[f2].Resize(jL, 3) = Brr '放结果
End With

maihh2001

醉眼看尘世 发表于 2024-8-13 14:42
With Sheet2 'Sheet1   设定结果工作表
    .Range("F:H").ClearFormats '清除放置区域
&#16 ...

我把你的代码放在最后面，运行后说语法错误。我想把生成的数据放在sheet2,并保持单元格格式不变。因我还是刚学VBA,好多知识都不会，能否给个完整代码.谢谢你！

醉眼看尘世

箭头处改成Sheet2。很难理解？