如何将date格式更改为月（缩写文本）

我如何将2013年2月25日至2月的合成date更改？ 意思是在这里，它只提取缩写月份。 我尝试使用这个代码，但它并没有工作，它将二月到七月

Sheet1.Range("A2:A9") = Format(Date, "mmm") 

Answer 1

 Sheet1.Range("A2:A9") = Application.text(Date, "mmm") 

Answer 2

你可以尝试：

 Sheet1.Range("A2:A9").NumberFormatLocal = "mmm" 

正如@ user3271518所build议的，这是通过录制一个macros，改变格式，然后查看logging的macros来find的。