Excel 具有重复查找值和多个结果的VBA查找

我是新来的，如果这让人困惑，我很抱歉。我已经尽力解释清楚了，并提供了所有必要的表格

我已经为此挣扎了一段时间，似乎无法让代码正常工作。我正在尝试自动化一些我在电子表格中用数千行完成的工作

我想拿一本有两张纸的工作簿。第一个是“数据”表（在我的代码中标记为“Test1”），第二个是“参考”表（标记为“Test2”）。“数据”表的设置如下所示。它从A列开始，进入D列，E列是我想要报告值的列

# 类型 医生 ID1 ID2 x1 A. B 1337 x1 A. B 1337 x1 A. B 1251 x1 A. B 1343 x1 A. B 1831 x1 A. B 1831 x2 A. B 1337 x2 A. B 1337 x2 A. B 1831 x2 A. B 1831 x3 A. B 1343 x3 A. B 1251 x3 A. B 1831 x3 A. B 1831

---

我不确定你的目标是什么逻辑。这些是你的预期产出吗？

---

是否会使用相同的#编号复制ID1？始终相互跟随？

您可以通过

FILTER（）

和

TEXTJOIN（）

函数使用

Excel365

来实现。欢迎使用堆栈溢出。您发布的代码有几个问题。我建议您将optionexplicit放在模块顶部，并选择Debug/compilevbaproject来识别未定义的变量并定义（“Dim”）它们。然后使用调试器逐行检查代码，检查变量值，确保单元格引用正确。欢迎使用堆栈溢出！当你赢得50个代表时，你可以在任何帖子上留下评论要求澄清，同时请不要为此目的使用答案。我的预期输出将是第二个表格中的ID2信息，在第一个表格中找到所有值。是的，我希望具有相同编号的重复ID1彼此跟随。Nicholas Hunter，请告诉我，当没有足够的信息来回答问题时，我应该使用什么方法来寻求澄清？@Quantic我对此有点陌生，所以我真的不知道如何很好地显示代码。希望您能从中吸取教训。

Sub Insert_ID2（）iLastRow=Cells（Rows.Count，4）。End（xlUp）。如果cl.Value=cl.Offset（-1，0），则范围内每个cl的行（Cells（2，4），Cells（iLastRow，4））。如果cl.Value=cl.Offset（-1，0）。然后值RowOffset=1，否则RowOffset=0结束，如果cl.Offset（0，1）.Value=工作表函数.Index（范围（“MyLookupRange”）、工作表函数.Match（cl.Value、范围（“MyLookupRange”）。列（1），0）+行偏移量，2）下一个端点子项