VBA列号转列标函数对第36列（AJ）返回空值求助

核心问题 #

你的ColumnNumberToColumnString函数依赖Columns(col).Address拆分列标，但如果对应Excel实例的引用样式设置为R1C1，Columns(36).Address会返回R1C36而非$AJ:$AJ。此时用Split(..., "$")(2)拆分后没有索引为2的元素，直接返回空值。这就是仅36列（AJ）出现异常的根源——并非列本身的问题，而是引用样式导致的地址格式不符合预期。

另外你尝试硬编码时无效，也是因为后续用列标操作Range时，R1C1样式下Excel无法识别"AJ"这类A1格式的列标。

修复方案 #

方案1：强制用A1样式获取列标 #

修改ColumnNumberToColumnString函数，指定A1样式生成地址，彻底规避R1C1的影响：

Function ColumnNumberToColumnString(col As Long) As String
    Const MAX_COL_NUMBER As Long = 16384 ' Excel最大列数
    If col > MAX_COL_NUMBER Or col < 1 Then
        ColumnNumberToColumnString = "ERROR"
        Exit Function
    Else
        ' 强制指定A1样式生成列地址
        ColumnNumberToColumnString = Split(Columns(col).Address(ReferenceStyle:=xlA1), "$")(2)
    End If
End Function

方案2：绕开列标转换，直接用Range对象操作 #

既然已经定位到目标单元格rng1，完全不需要转换列标，直接用Range的偏移和插入方法操作，代码更简洁可靠：

Dim rng1 As Excel.Range
Dim strSearch As String

Set rng1 = Nothing
strSearch = "Product Quantity"
    
Set rng1 = xlApp_p.ActiveSheet.UsedRange.Find(strSearch, , xlValues, xlWhole)
If Not rng1 Is Nothing Then
    ' 在目标列右侧插入新列
    rng1.EntireColumn.Offset(0, 1).Insert Shift:=xlToRight
    ' 设置新列表头
    rng1.Offset(0, 1).Value = "Total Quantity"
End If
Set rng1 = Nothing

该方案彻底避免列标转换环节，无论Excel是A1还是R1C1样式都能正常工作，优先推荐使用。

方案3：临时修改引用样式（不推荐） #

如果必须保留列标转换逻辑，可以临时切换Excel实例的引用样式，操作完成后恢复：

Dim originalStyle As XlReferenceStyle
originalStyle = xlApp_p.ReferenceStyle
xlApp_p.ReferenceStyle = xlA1

' 执行列标转换与插入操作
QuantityCol = ColumnNumberToColumnString(rng1.Column)
xlApp_p.ActiveSheet.Range(QuantityCol & ":" & QuantityCol).EntireColumn.Insert Shift:=xlToRight
xlApp_p.ActiveSheet.Range(QuantityCol & "1").Offset(0, 1).Value = "Total Quantity"

xlApp_p.ReferenceStyle = originalStyle

此方法会改动用户的Excel设置，影响操作体验，仅作为备选方案。

验证效果 #

使用方案2的代码测试，可直接在"Product Quantity"列右侧插入"Total Quantity"列，完全符合你预期的表格结构。

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