Макрос для поиска заголовка в Excel

Question

У меня есть 2 файла Excel. Скажем, файл A и файл B. Файл A имеет следующие данные

Файл B содержит данные ниже.

Теперь я хочу найти данные из файла B в файле A, и он должен вернуть заголовок из файла A в поле результата файла B. Например. В файле B есть Apple, тогда макрос должен найти весь файл A и дать нам имя заголовка как FRUIT в поле результата. Также, если он не нашел данные, он должен вернуть not found. Пожалуйста, сообщите.

Answer 1

Это для вашего примера я сгруппировал 2 файла данных на одном листе. пожалуйста, смотрите ниже снимок.

Я создал небольшой UDF, чтобы получить требуемый вывод. Вставьте приведенный ниже UDF в модуль, и вы можете напрямую вызывать его из самой ячейки.

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

OUTPUT

EDIT:

используйте Exit For before Endif, чтобы получить заголовок первого совпадения.