用于将单元格值与列标题匹配并在循环中返回单元格值的VBA代码

Sub MatchCellValue()
    Dim searchValue As String
    Dim columnRange As Range
    Dim cell As Range
    
    ' 设置要搜索的值
    searchValue = "要搜索的值"
    
    ' 设置要搜索的列范围
    Set columnRange = Range("A1:A10") ' 假设要搜索的列是A列，范围是A1:A10
    
    ' 循环遍历列范围
    For Each cell In columnRange
        ' 判断单元格值是否与搜索值匹配
        If cell.Value = searchValue Then
            ' 如果匹配，则在循环中返回单元格值
            MsgBox cell.Value
            Exit For ' 可选择退出循环，或继续循环查找其他匹配值
        End If
    Next cell
End Sub