Поиск значения во всём столбце (формула)

[amdbodia]

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

Для чего это нужно:
Есть несколько страниц, на них товары и их цена. Надо, чтоб была сводная страница, на которой для каждого товара будет показываться минимальная цена и с какой он страницы.

Такую вещь реально сделать формулами, или проще написать скрипт на пайтоне, к примеру (с VB Script вообще не знаком)?

[staniiislav]

можно и формулами, можно и макросом... пример нужен и в примере подробное описание что из чего вы хотите получить
а без примера почитайте вот здесь :
http://www.planetaexcel.ru/tips.php
там есть примеры разных решений

[amdbodia]

ВОт пример. Там 3 листа. К каждой колонке - пояснения. Спасибо за помощь.

[staniiislav]

ловите, макрос конечно корявый (только пытаюсь освоить массивы), да и формулы не фантан, но работает )

[staniiislav]

не какой это не массив, а так гав...но
вот проще будет...:

Option Explicit

Sub Primer()
    Dim x_1 As Variant, x_2 As Variant
    Dim numberSheet As Long, i As Long
    Dim activeSheet As Worksheet, n, xxx As Long, sh As String
    
    Set activeSheet = Worksheets("Сводная")
    x_2 = activeSheet.Range("A2:A6")
    
    For xxx = 1 To UBound(x_2, 1)
    n = "."
    sh = ""
        For numberSheet = 1 To 2
            With Sheets(numberSheet)
                x_1 = .Range("A2:B" & .Cells(Rows.Count, 1).End(xlUp).Row).Value
                For i = 1 To UBound(x_1, 1)
                    If x_1(i, 1) Like "*" & x_2(xxx, 1) & "*" Then
                        If x_1(i, 2) < n Then
                            n = x_1(i, 2)
                            sh = Sheets(numberSheet).Name
                        End If
                    End If
                Next i
            End With
        Next numberSheet
        activeSheet.Cells(xxx + 1, "D").Value = n
        activeSheet.Cells(xxx + 1, "E").Value = sh
    Next xxx
End Sub