这个问题我之前也碰到过！Excel太“聪明”了，总喜欢自动把看起来像数值/日期的文本转成数值，导致X轴显示成1-12而不是你要的“一月、二月”这类文本。别担心，只要两步就能搞定，而且分组数据的轴标签也能用同样的方法。

核心解决方案 #

问题的根源是Excel默认将你的月份列识别为数值/日期类型，我们需要强制让X轴使用文本分类轴，同时确保数据源单元格格式是文本（双重保险）。

步骤1：确保X轴数据源为文本格式 #

先给你的月份列（或分组名称列）设置文本格式，避免Excel自动转换类型。假设你的X轴数据在rngX范围内，添加这段代码：

Dim rngX As Range
With ThisWorkbook.Sheets("Graphs")
    ' 替换成你实际的X轴数据范围
    Set rngX = .Range(.Cells(1, A + 1), .Cells(lastRow, A + 1)) 
    ' 强制设置单元格格式为文本
    rngX.NumberFormat = "@"
End With

步骤2：在图表创建后，强制设置X轴为文本分类轴 #

创建完图表并绑定数据源后，找到X轴对象，修改它的AxisType和CategoryType属性，确保是文本分类轴：

' 假设你已经创建了图表对象cht（替换成你实际的图表变量名）
With cht.Chart.Axes(xlCategory)
    .AxisType = xlCategory ' 设置为文本分类轴
    .CategoryType = xlCategoryScale ' 强制按原始顺序显示文本，不自动排序
    ' 可选：调整标签显示样式，避免重叠
    .TickLabels.Orientation = 45
    .TickLabels.Font.Size = 10
End With

结合你现有代码的完整示例 #

把上面的代码插入到你的现有逻辑中，大概是这样：

'Create Range for Y 
Dim rng1Y As Range, rng2Y As Range 
Dim Y_Range As Range 
Dim rngX As Range ' 新增X轴范围变量
Dim cht As ChartObject ' 新增图表对象变量

With ThisWorkbook.Sheets("Graphs")
    Set rng1Y = .Cells(1, A + 7) 
    ' （你的其他Y范围设置代码...）
    Set Y_Range = Union(rng1Y, rng2Y) ' 假设你合并了多个Y系列
    
    ' 设置X轴范围并转为文本格式
    Set rngX = .Range(.Cells(1, A + 1), .Cells(lastRow, A + 1)) ' 替换成你的X列位置
    rngX.NumberFormat = "@"
End With

' 创建柱状图
Set cht = ThisWorkbook.Sheets("Graphs").ChartObjects.Add(Left:=100, Width:=600, Top:=100, Height:=300)
cht.Chart.ChartType = xlColumnClustered
cht.Chart.SetSourceData Source:=Union(rngX, Y_Range) ' 绑定X和Y数据

' 关键：设置X轴为文本轴
With cht.Chart.Axes(xlCategory)
    .AxisType = xlCategory
    .CategoryType = xlCategoryScale
    .TickLabels.Orientation = 45
End With

' 其他图表美化设置（可选）
cht.Chart.ChartTitle.Text = "月度数据柱状图"
cht.Chart.SeriesCollection(1).Name = "系列1"
cht.Chart.SeriesCollection(2).Name = "系列2"

对分组数据的适用性 #

如果是分组数据的轴标签（比如“东部、西部、南部”这类分类名称），完全可以复用这个方法：只要确保分组名称列是文本格式，然后设置X轴的AxisType = xlCategory即可，Excel就会老老实实显示你设置的文本标签，不会转成数值。

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