我开发了一个模块，用于过滤由15个项目组成的数据库，并按项目名称对它们进行分组。
代码在通过VBA项目应用程序运行时工作正常，它会调用所有变量并将其粘贴到项目名称下。
但是，当分配一个按钮来运行模块时，它会运行相同的操作，并且不会复制和粘贴数据库中的所有记录数据。
例如，如果项目1在数据库中有5条记录，则通过VBA项目运行代码将复制并粘贴项目名称下的所有五条记录。但是通过按钮运行代码只会复制并仅过去记录。
下面是我的代码，我知道它很长，但每个项目重复一次，我是初学者，我的编码方法不太好。
如果您有任何缩短代码的建议，我们将不胜感激。
{{1}}