如何将日期格式更改为月份（缩写文本）

Question

我如何将2013年2月25日至2月的合成日期更改为仅？ 意思是在这里，它只提取缩写月份。 我尝试使用此代码，但它简化版，工作，并把它转化2至7月

  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，这是由发现录制一个宏，改变格式，然后查看记录的宏。