如何在 Excel 中根据特定行值获取或返回列标题?

ms excelmicrosoft technologiescomputers更新于 2025/2/11 5:00:17

本文包含一个示例，演示如何在 Excel 中返回特定行的列标题。示例基于 VBA 代码。文中提到的 VBA 代码可以成功执行所需的操作。要执行代码，首先打开开发人员部分，然后运行代码编辑器编写所需的 VBA 代码。本文包含分步说明，以准确无误地说明所有步骤的要求。列标题是一个简单的术语，用于表示为任何特定列提供的主要标题。

示例 1:使用 VBA 代码在 Excel 中根据特定行值获取或返回列标题

步骤 1

在本例中，用户将学习如何编写 VBA 代码，以根据 Excel 中特定行的数据值获取列标题。本例将考虑基于三行三列的表格。数据值总数为 9 个，包含 3 个行标题和 3 个列标题。

步骤 2

要执行 VBA 代码，用户需要打开"开发人员"选项卡，然后在代码部分下，选择"Visual Basic"选项。请参考以下快照:

步骤 3

上述步骤将打开"Microsoft Visual Basic for Applications"对话框。此对话框打开时为空白。打开代码编辑窗口。转到"插入"选项，然后选择"模块"选项。考虑

步骤 4

在打开的代码区域中，输入以下代码:

' 函数的标头
Sub GetColumnHeaderForRowValue()
    ' 声明所需变量
    Dim rowNum As Variant
    Dim rowValue As Variant
    ' 提示用户输入行号和值
    rowNum = InputBox("输入行号:")
    rowValue = InputBox("输入行值:")
    ' 检查用户是否输入有效
    If Not IsNumeric(rowNum) Or Not IsNumeric(rowValue) Then
        '显示消息 boc 数据
        MsgBox "Invalid inputs!"
        ' exit method
        Exit Sub
    ' if 表达式结束
    End If
    ' 获取指定行值的列标题
    Dim headerRange As Range
    Dim columnHeader As String
    ' 设置值
    Set headerRange = ThisWorkbook.Worksheets("Sheet1").Rows(rowNum).Find(What:=rowValue, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
    ' if 语句块
    If headerRange Is Nothing Then
        '消息框，显示数据
        MsgBox "The row value was not found in the specified row."
        ' exit expression
        Exit Sub
    ' else block
    Else
        ' column header
        columnHeader = headerRange.EntireColumn.Cells(1, 1).Value
    
    ' if 语句结束
    End If
    ' 在消息框中显示列标题
    MsgBox "第 " & rowNum & " 行中第 " & rowValue & " 行值的列标题为:" & columnHeader
' 子方法结束
End Sub

请使用正确的代码缩进，否则代码肯定会显示错误。请参考以下代码快照: