使用VBA宏将日期转换为“MMM”格式并粘贴为值

方法1：批量直接写入值（最快捷） #

这种方法跳过公式步骤，直接通过Evaluate批量计算并写入月份缩写值，效率最高：

Sub GetMonthAbbreviation()
    Dim targetSheet As Worksheet
    Dim lastDataRow As Long
    Dim dateColumn As Range
    Dim resultColumn As Range
    
    ' 指定目标工作表，可改为具体表名如 Sheets("销售数据")
    Set targetSheet = ActiveSheet
    
    ' 获取日期列（A列）的最后一行数据
    lastDataRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 定义日期数据范围和结果存放范围（假设A1是表头，从A2开始）
    Set dateColumn = targetSheet.Range("A2:A" & lastDataRow)
    Set resultColumn = targetSheet.Range("B2:B" & lastDataRow)
    
    ' 批量生成月份缩写并写入为值（无公式）
    resultColumn.Value = targetSheet.Evaluate("TEXT(" & dateColumn.Address & ",""MMM"")")
    
    ' 可选：将结果列设为文本格式，避免特殊显示问题
    resultColumn.NumberFormat = "@"
End Sub

方法2：先写公式再转值（兼容习惯操作） #

如果更习惯先插入公式再转为值，可用这个版本：

Sub GetMonthAbbrev_Alt()
    Dim targetSheet As Worksheet
    Dim lastDataRow As Long
    
    Set targetSheet = ActiveSheet
    lastDataRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 在B列插入生成月份缩写的公式
    targetSheet.Range("B2:B" & lastDataRow).Formula = "=TEXT(A2,""MMM"")"
    
    ' 将公式结果转为静态值
    targetSheet.Range("B2:B" & lastDataRow).Value = targetSheet.Range("B2:B" & lastDataRow).Value
End Sub

使用提示 #

• 若日期列不是A列、结果列不是B列，修改代码中的列标识（比如把"A"改成"C"，"B"改成"D"）。
• 若没有表头，把代码中的A2:A和B2:B改为A1:A和B1:B。
• 可将宏添加到Excel快速访问工具栏，点击即可一键执行，进一步提升效率。

内容的提问来源于stack exchange，提问作者Shahd Basaleh