VBA通过归类信息实现自动分组

白鹰之约

山菊花 发表于 2020-1-11 20:49
看你给出的结果，以为你不要最后的组合。
如果要，可以在末尾加上一个：
nRow = Range("b1048576").End ...

版主，你在写代码前的思路是啥，给我借鉴下呗

我一开始的想法是：
1.通过left&right&len来判断是否包含相同的SA信息；
2.判断前面如果为AA，里面如果RR相同则进行组合；
3.要从AA开始组合，因为数组循环实际是一行一行来遍历的；
4.找到首行和尾行的表示方法

山菊花

白鹰之约 发表于 2020-1-11 21:03
版主，你在写代码前的思路是啥，给我借鉴下呗

我一开始的想法是：

写代码前的思路就是之后的代码，看到的代码就是之前的思路。
从上到下遍历数据，如果遇到非“AA”，就要考虑是否可以组合，另一个条件是上一个“RR"或”SA“行到现在的距离，如果符合两个条件就组合。

白鹰之约

山菊花 发表于 2020-1-11 21:14
写代码前的思路就是之后的代码，看到的代码就是之前的思路。
从上到下遍历数据，如果遇到非“AA”，就要 ...

好的，谢谢