拾取下一层级内容，平行放入上一层级行

c1988138

主题：拾取下一层级内容，平行放入上一层级行

规则说明：
1、A列中B***和Q***编码编码为清单层级，只有B和Q码，W***和M***为清单级下一级，低清单级一级，即定额层级，只有M和W码。
2、其余编码S***及其他编码为标题层级。

目的：
1、希望B***和Q***编码清单层级，对应行的C/D列，能拾取清单定额层级下的W和M编码。如果为Q***编码，由于没有下一个层级，拾取对应的Q编码。
2、希望清单层级、定额层级，对应行的B列，自动拾取清单层级编码。
3、A列空白行及其余编码不处理。


希望使用VBA目的达到，目前使用函数，数据太多，就会卡。希望得到各位大佬帮助。

c1988138

望各位大佬帮助，会及时给各位大佬好评

c1988138

附件在这里

LIUZHU

JSA代码，比较简单，WPS可运行。
一个前提，A列必须有规律，即B**下面必须顺序跟着W**，接着是M**，顺序不能错，否则代码行不通。

LIUZHU

附件在此，WPS测试

c1988138

LIUZHU 发表于 2023-12-19 10:07
JSA代码，比较简单，WPS可运行。
一个前提，A列必须有规律，即B**下面必须顺序跟着W**，接着是M**，顺序不 ...

如果只有W**，没有M**可运行吗？

c1988138

LIUZHU 发表于 2023-12-19 10:07
JSA代码，比较简单，WPS可运行。
一个前提，A列必须有规律，即B**下面必须顺序跟着W**，接着是M**，顺序不 ...

如果想偏移列得出结果在哪个位置改呀？老师

LIUZHU

c1988138 发表于 2023-12-19 10:18
如果只有W**，没有M**可运行吗？

如果W或M缺少了任意一个，那代码，还得修改。

LIUZHU

c1988138 发表于 2023-12-19 10:36
如果想偏移列得出结果在哪个位置改呀？老师

你说的偏移列是什么意思？

c1988138

LIUZHU 发表于 2023-12-19 10:40
你说的偏移列是什么意思？

举例：就是想把B/C/D列数据放到D/E/F列，实际可能放在其他列。