vba获取第一行为TAR的列

在VBA中，如果你想要获取包含特定标题"TAR"的第一行数据所在的列，通常你会遍历行，并查找该行。假设你的表格有列标题在A列，你可以编写这样的代码片段：

Sub GetColumnWithTitle()
    Dim ws As Worksheet
    Dim titleRow As Long
    Dim TARColumn As String
    Dim firstCellWithTitle As Range
    
    ' 设置要搜索的活动工作表
    Set ws = ActiveSheet
    
    ' 假设列标题在A列
    titleRow = 1 ' 或者根据实际情况更改行号
    
    ' 遍历列，查找包含"TAR"的单元格
    For Each cell In ws.Cells(titleRow, 1).Resize(ws.Rows.Count, 1)
        If cell.Value = "TAR" Then
            TARColumn = cell.Column ' 获取到"TAR"所在列的字母表示，如"A", "B", 等等
            Exit For
        End If
    Next cell
    
    ' 输出找到的列名
    Debug.Print "The column with the title 'TAR' is in column " & TARColumn
End Sub

这个脚本会在A列查找"TAR"，一旦找到就立即停止循环并返回相应的列字母。