Нужна функция для ячеки в Excel

[resquimi]

Есть задача:
Множество листов в книге Excel пронумерованных как Лист1, Лист 2, Лист 3.. и т. д. На каждом листе в первом столбце в 20 ячейках разные числа. Нужно чтобы в дополнительном листе (Лист n+1) было также 20 ячеек в которых бы указывалось в каких листах числа в аналогичных ячейках совпадают. Т. е. нужна функция или набор функций для ячейки Excel

[R Dmitry]

Сообщение от resquimi

Есть задача:
Множество листов в книге Excel пронумерованных как Лист1, Лист 2, Лист 3.. и т. д. На каждом листе в первом столбце в 20 ячейках разные числа. Нужно чтобы в дополнительном листе (Лист n+1) было также 20 ячеек в которых бы указывалось в каких листах числа в аналогичных ячейках совпадают. Т. е. нужна функция или набор функций для ячейки Excel

как вариант
не проверял

Sub ggg()
Set dict = CreateObject("Scripting.Dictionary")
For j = 1 To 20
    For I = 1 To Sheets.Count - 1
        If Not dict.exists(Sheets(I).Cells(j, 1)) Then
        dict.Add Sheets(I).Cells(j, 1), Sheets(I).Name
        Else
        stshet = stshet & Sheets(I).Name
        End If
    Next
        Sheets(Sheets.Count).Cells(j, 1) = stshet
        stshet = ""
    
Next
End Sub