值匹配时返回工作表#答案

【问题标题】：Return sheet #'s when value matches值匹配时返回工作表#
【发布时间】：2018-10-10 15:50:19
【问题描述】：

我有一个包含大量工作表的工作簿，我正在尝试构建一个自动搜索功能，以检查所有工作表中的活动工作表中的值。基本上，我想要一个单元格，比如说 O2，在每张纸上返回 A2 的值，其中 A1 的前 15 个字符与活动纸上的 A1 匹配。这些取自 A2 的值希望采用列表形式，用逗号分隔。
这里的任何输入将不胜感激。谢谢。

【问题讨论】：

欢迎来到Stack Overflow! 这是一个程序员编写自己的代码并分享特定的网站i> 问题 在尝试自己解决之后。请务必查看tour（您将获得第一个徽章！）并查看“How to Ask”以及help center，了解有关本网站主题的更多信息。如果您对代码的某个部分有特定问题，您可以edit您的帖子分享minimal reproducible example以及示例数据和一些背景信息.这里有一些来自网站顶级用户的tips。祝你好运！
你有没有尝试过？您在寻找什么样的解决方案？ VBA？公式？手动步骤？

标签： excel list

【解决方案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

【讨论】：