宏在Excel中查找标题

Question

我有2个excel文件。说文件A和文件B.文件A具有以下数据

文件B的数据如下。

现在我希望在文件A中找到文件B中的数据，它应该将文件A中的头部返回到文件B的结果字段中。例如。文件B有Apple然后宏应该搜索整个文件A并在结果字段中给我们标题名称作为FRUIT。此外，如果它没有找到数据，那么它应该返回未找到。请指教。

Answer 1

这是针对您的示例我已将2个文件数据分组到单个工作表中。请看下面的图片。

我创建了一个小型UDF来获取所需的输出。将以下UDF粘贴到Module中，您可以直接从单元格本身调用它。

Public Function searchstring(a As Range, b As Range)
    Dim Header As String
    For i = 1 To a.Columns.Count
        If Not a.Columns(i).Find(b) Is Nothing Then
            Header = a.Cells(1, i)
        End If
    Next i
    searchstring = Header
End Function

<强>输出

修改

在Endif之前使用Exit For获取第一个匹配标题。