查找多条匹配记录到新表格，如模板

石家庄星图

mxl800 发表于 2021-4-13 11:46
这个问题需要插入行，所以单纯的用公式肯定不能完成，必须用VBA。试着写了一下：
Sub main()
    Dim 宗 ...

老师 运行不了呢

石家庄星图

mxl800 发表于 2021-4-13 11:46
这个问题需要插入行，所以单纯的用公式肯定不能完成，必须用VBA。试着写了一下：
Sub main()
    Dim 宗 ...

老师 运行时候提升“下表越界”

石家庄星图

mxl800 发表于 2021-4-13 11:46
这个问题需要插入行，所以单纯的用公式肯定不能完成，必须用VBA。试着写了一下：
Sub main()
    Dim 宗 ...

可以运行了  刚刚我忘了改表格名称。谢谢老师  万分感激，

3190496160

石家庄星图 发表于 2021-4-13 10:33
很接近了 就是没有填充正确，还有就是每个号没有分条应该是一个撞号对应一组家庭成员

新表是家庭成员表，自然幢号就是宗地号+F0001-F000X，每一个撞号（f000x）需对应填写一组家庭成员
除非是你这个说明是错误的，如果按你这个说法，结果应该是正确的

mxl800

石家庄星图 发表于 2021-4-13 12:52
可以运行了  刚刚我忘了改表格名称。谢谢老师  万分感激，

不客气，这个表格名字我是用硬编码写进代码的，你使用时需要根据自己需要修改。其实可以写段代码，利用Workbooks.Open()方法来打开指定的工作表，你可以在我代码基础上自己改进。