求助：如何在VB.NET中实现Excel列字母转列序号功能

针对你需要替换大量列常量的场景，这里提供两种实用的实现方式：

方法1：基于Excel Interop组件（类似VBA的思路） #

如果你的程序已经引用了Excel互操作组件，这种方式最接近你熟悉的VBA实现逻辑：

Imports Microsoft.Office.Interop.Excel

Public Function GetColNum(ByVal colLetter As String) As Integer
    ' 统一转换为大写并去除首尾空格
    colLetter = colLetter.Trim().ToUpper()
    
    ' 若已有活跃的Workbook/Worksheet实例，直接使用对应对象可避免创建临时Excel进程
    Using excelApp As New Application()
        Dim targetRange As Range = excelApp.Range($"{colLetter}1")
        Return targetRange.Column
    End Using
End Function

注意事项 #

• 需要在项目中添加对Microsoft.Office.Interop.Excel的引用
• 如果程序本身正在操作Excel文档，建议直接使用已有的Worksheet对象创建Range，避免额外启动Excel进程

方法2：纯字符串计算（不依赖Excel组件） #

如果希望脱离Excel环境实现转换，或者需要更高的执行效率，可以通过26进制转换逻辑实现：

Public Function GetColNum(ByVal colLetter As String) As Integer
    colLetter = colLetter.Trim().ToUpper()
    
    ' 可选：验证输入是否为有效列字母（仅包含A-Z）
    If Not System.Text.RegularExpressions.Regex.IsMatch(colLetter, "^[A-Z]+$") Then
        Throw New ArgumentException("输入不是有效的Excel列字母格式")
    End If
    
    Dim columnNumber As Integer = 0
    For Each c As Char In colLetter
        ' 将字符映射为1-26的数值（A=1，Z=26）
        Dim charValue As Integer = Asc(c) - Asc("A"c) + 1
        columnNumber = columnNumber * 26 + charValue
    Next
    
    Return columnNumber
End Function

使用示例 #

原来的常量定义Const colB As Integer = 2，可以直接替换为GetColNum("B")，所有列常量都能通过这个函数统一获取，彻底消除冗余的常量定义。

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