Возврат листа №, когда значение совпадает

Question

У меня есть рабочая книга с большим количеством листов, и я пытаюсь создать функцию автоматического поиска, которая проверяет все их значения на активном листе.По сути, я хочу, чтобы одна ячейка, скажем, O2, возвращала значения A2 на каждом листе, где первые 15 символов A1 соответствуют A1 на активном листе.Эти значения, взятые из A2, должны быть в форме списка, разделенных запятыми.
Любой ввод здесь будет принят с благодарностью.Благодарю.

Answer 1

Вот немного псевдокода или схемы, с которой вы можете начать.Он принимает форму подпрограммы VBA.Начните кодировать его, и когда у вас возникнут проблемы, решите проблему и решите ее самостоятельно.(Или вставьте свой код и попросите о помощи).

dim AnsSheet as string
AnsSheet = "xxx"
For S# = 0 to S#max - 1
    if S#.name = AnsSheet, then bypass
    if S#.Cells(A1).first15char = AnsSheet.Cells(A1).first15char then
        AnsSheet.Cells(O2) = AnsSheet.Cells(O2) & ", " & S#.Cells(A2)
    endif
Next S#
AnsSheet.Cells(O2) strip off leading ", " from the first result