查找，筛选复制以及枢纽分析代码

爱喝酒的流浪猫

有一个分析文件，要求如下，函数功能实在无法达成，VBA代码现在只会基本的功能，此报表有点复杂，涉及到查找，筛选复制以及枢纽分析，看哪个大神能帮忙看看代码该怎么写？
不能给出全部的模块代码，给我几个核心代码也行，万分感谢！






模块1

第一步.确认buy文档是否为空白，如果不是空白，确认H列Item值不为空的时候，V列CODE是否空白？如果V例CODE空白，则以H列Item值去List表寻找A列Item是否有此值，并将相对应的CODE写入Buy文件中的CODE，如果list表中Item不存在，则弹出对话框，第一行：Buy中无CODE的Item值，第二行，请输入CODE，输入完毕后将此Item和CODE写入list表中最后一行，循环查找至将buy中的V列CODE无空白值

第二步：如果buy文档为空白，则复制or报表中，先筛选出Y列为Y的内容，再复制筛选出后的A列到V列的所有内容至buy文档中（W至Y列不用），再执行第一步确认buy中V列是否为空白，直到无空白则第三步

第三步：先筛选PC文档中H列Item为非0值（有具体内容的值），MODD为有具体内容非#N/A的值,平时要交货的值（不交货除外），将全部内容复制到TO文档的C1列


第四步：新建一个excel文件，将第三步复制的值另存当前文档目录下，文件名为N，新文件为关闭状态

第五步：保存此文件但是不关闭


模块2

第一步：RE文档为手工回填数据，如To文档有4行数据，Re该文档可能只会手工回填任意一行或多行，先确认Re文档如只有一行内容，则To文档中非1900以及#N/A的行数是否一致，如果不同，则显示对话框行数不同，请确认。如果相同，则筛选出#N/A的行数，将C例 开始的资料复制至Re文档B列（标题栏不用，A/B辅助列不用复制，Re文档的A列为辅助列，不能动），再次确认两个表格行数否一致，如OK 则进行下一步

第二步：将Re文档的所有资料复制一个新文档，确认B列开始到最后一列，如果单元格有填充黄色的所有行全部删除，列只保留Date，        Item，        Buyer        ,STQ，        RET，        MODD        的内容

第三步：将删除无效资料剩余的列内容复制到P1文档的A1列，按CODE,        Buyer        ，Item，        STQ(求和值），RET（取最大值），将内容填入P2的A3列，P2的标题列为固定值不动，如果缺料数量为0的数据不需要写入

第四步：新建一个excel文件，将P2的第二行开始，A到J列有数据的范围复制到新文档，并另存为NS

第五步：保存此文件但是不关闭

3190496160

基本就是一个匹配问题，但是，涉及到的工作表过多，非常繁琐，
另外，第一步，没有必要像你这般负责复杂的，直接把buy工作表内的item值跟list工作表内的item值比对，在list中不存在的，直接一次性提取到list工作表内即可

爱喝酒的流浪猫

3190496160 发表于 2023-3-15 14:42
基本就是一个匹配问题，但是，涉及到的工作表过多，非常繁琐，
另外，第一步，没有必要像你这般负责复杂的 ...

buy里的item每天都会变的，会是几万笔中会出来几百，几千不等，list中没有办法列出全部的item,只会列出曾经buy中没有后来新增的部分，所以才只能用反查的方法

3190496160

爱喝酒的流浪猫 发表于 2023-3-15 14:50
buy里的item每天都会变的，会是几万笔中会出来几百，几千不等，list中没有办法列出全部的item,只会列出曾 ...

就是呀，如果在list中不存在的有几百个，那你运行一次发现一个，输入一个，那你岂不是要奔溃？？

3190496160

爱喝酒的流浪猫 发表于 2023-3-15 14:50
buy里的item每天都会变的，会是几万笔中会出来几百，几千不等，list中没有办法列出全部的item,只会列出曾 ...

你知道什么叫两表比对吗？

爱喝酒的流浪猫

3190496160 发表于 2023-3-15 14:59
你知道什么叫两表比对吗？

小白，刚学没多久，还不会