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

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的建议，可以通过录制宏，更改格式然后查看录制的宏来找到它。