[已解决]EXCEL VBA 提取日期時為何變數字

dou10801

Sheets(2).Range("B1") = Sheets(1).Range("B1")
Sheets(1).Range("B1")的原有格式是日期(2020/8/14)
拷貝到Sheets(2).Range("B1") 時變成(44057)
如何拷貝時直接變成原有日期格式(2020/8/14)

最佳答案

月排行榜 / 总排行榜

pjiang

2020-8-18 14:53

Sub test()
    Columns("B:B").Select
    Selection.NumberFormatLocal = "yyyy""年""m""月""d""日"";@"
    Sheets(2).Range("B1") = Sheets(1).Range("B1")
End Sub

跳转到最佳答案楼层

pjiang

Sub test()
    Columns("B:B").Select
    Selection.NumberFormatLocal = "yyyy""年""m""月""d""日"";@"
    Sheets(2).Range("B1") = Sheets(1).Range("B1")
End Sub

zjdh

只要将Sheets(2).Range("B1") 设置为“日期格式”即可。