求助：数据排序问题

z00287jh

先看图


                             图一

                             图二

背景：
A列和B列的数据是通过数据透视表得到的，C列和D列是将A、B两列的数据做了一个复制。C列对A列进行复制时用了个简答的公式对A列的空白单元格做了填充。D列是原封不动的把B列数据复制了过来。

问题：
通过图一，可以看出，A列和B列，代码1变更的时候，代码2并不一定和代码1相同。比如312行，代码1是“C14000231”，而代码2是“C14000225”，代码2中的“C14000231”出现在313行。同样的，320行，代码1和代码2也不相同，代码2中和320行代码1相同的代码“C14000242”出现在了324行。

需求：
在将B列的数据（代码2）复制到D列（代码2'）时，有没有方法对每一个代码1所覆盖的区域（行）内的代码2进行重新排序，在代码1首次出现时，代码2和代码1保持一致。
这里面有三种情况：
（1）代码1和代码2一致，比如299行和310行，此时就不做处理，直接将代码1所覆盖的区域（行）的B列复制到D列。比如代码1中“C14000226”在299行是首次出现，对应229行的代码2也是“C14000226”，而代码1中的“C14000226”覆盖区域为299-308行，此时只要将代码2中299-308行的数据直接复制到D列中的299-308行即可（行号保持一致）。
（2）代码1和代码2不一致，比如312行和320行，此时在复制过程中就要重新排序，使得复制后的数据，在代码1（代码1'）首次出现时，代码2'和它一致。比如代码1中的“C14000242”在320行首次出现，但320行的代码2（“C14000233”）和它不一样，而和它一样的代码2在324行，此时就需要将代码2中324行的“C14000242”提升到320行，让复制后的320行的代码1'和代码2'都是“C14000242”，将原本320行的代码2“C14000233”排到后面去。
（3）这是一种特殊情况，如图二，即代码2中没有和代码1中的代码相同，那么操作规则参照情况（1），即将此代码1覆盖区域内的代码2直接复制到D列中就行。

还望大神指导，谢谢！

山菊花

写得有点啰嗦了。

z00287jh

山菊花 发表于 2024-4-30 18:11
写得有点啰嗦了。

非常感谢总版主大大的指导。

对于VBA不是很了解，后面也会学习研究。

以后如有问题，还请多指教，谢谢！