在C#中获取Excel指定列的列索引

嘿，这事儿好办！我给你写个实用的VBA函数，专门解决在Excel首行找目标内容、返回对应列索引的需求，正好匹配你举的例子——输入"Date"返回3，输入"Category"返回8，拿到索引后直接传给你的SaveAsXML方法就行：

因为目标内容都固定在首行，我们只需要遍历首行的所有已使用单元格，找到和输入内容完全匹配的单元格，返回它的1-based列索引（也就是Excel原生的列号，和你要的结果一致）。如果没找到目标内容，可以返回一个默认值（比如0）方便后续判断。

Function GetColumnIndex(targetText As String, targetSheet As Worksheet) As Integer
    Dim currentCell As Range
    
    ' 遍历首行的所有非空单元格（只遍历已使用区域更高效）
    For Each currentCell In targetSheet.Rows(1).SpecialCells(xlCellTypeConstants)
        ' 精准匹配目标内容
        If currentCell.Value = targetText Then
            GetColumnIndex = currentCell.Column
            Exit Function ' 找到就直接退出，不用继续遍历
        End If
    Next currentCell
    
    ' 没找到时返回0，你可以根据需要改成其他默认值
    GetColumnIndex = 0
End Function

在你的主代码里这么用就行，直接拿到列索引再传给SaveAsXML：

Sub UseColumnIndexForXML()
    Dim ws As Worksheet
    ' 替换成你实际的工作表名称
    Set ws = ThisWorkbook.Worksheets("DataSheet")
    
    ' 获取目标列的索引
    Dim dateColumn As Integer
    dateColumn = GetColumnIndex("Date", ws) ' 返回3
    
    Dim categoryColumn As Integer
    categoryColumn = GetColumnIndex("Category", ws) ' 返回8
    
    ' 把索引传入你的SaveAsXML方法
    ' SaveAsXML dateColumn, categoryColumn ' 根据你的方法参数调整调用方式
End Sub

• 如果需要不区分大小写的搜索（比如输入"date"也能匹配"Date"），把判断条件改成：

  If UCase(currentCell.Value) = UCase(targetText) Then
  

• 如果首行有合并单元格，需要调整遍历逻辑，避免漏查：

  If currentCell.MergeArea.Cells(1).Value = targetText Then
  

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