求助

学生的方式的

求助老师，如果标黄的地方都相同的话怎么把下面的哪一行剪切到上面那一行的下面（ps：两行间隔的行数不一定）

renkangjizhen

用字典取得不重复值（3列并取），然后循环判断，把相应项用cutcopy达到目标

gdfcx

按C列排序即可。

学生的方式的

renkangjizhen 发表于 2019-6-20 06:15
用字典取得不重复值（3列并取），然后循环判断，把相应项用cutcopy达到目标

我直接用cells（i，1）&cells.......这样去判断的就是速度有点慢，老师能否帮忙写个字典？我对字典不太懂

killq

排序轻松解决，干嘛非得用不熟悉的办法？
排序里自己设定好主要关键字和次要关键字，vba的话，我也会选择用这种方案，速度快，代码少，不用考虑bug

学生的方式的

killq 发表于 2019-6-20 10:09
排序轻松解决，干嘛非得用不熟悉的办法？
排序里自己设定好主要关键字和次要关键字，vba的话，我也会选择 ...

排序的话其他的顺序会被打乱，不能用排序

killq

学生的方式的 发表于 2019-6-20 10:36
排序的话其他的顺序会被打乱，不能用排序

变通一下：添加一辅助列，遇到重复项，就把辅助列对应的数字进行交换，最后以这个辅助列为关键字进行排序，最最后删除这个辅助列。
这个思路你先试试自己能不能解决，如果不能再求助吧，没有思路的求助只能临时解决当前问题，不能一通百通的

字典的话，就是createobject("scripting.dictionary")，也没啥神秘的，就是利用的key-item键值对中的key值不会重复的特性

另外，你方法速度慢是因为你在不停的调用对象，建议先把所有内容存成数组放进内存里再进行折腾

renkangjizhen

如果表格中没有合并的单元格，排序应该是最佳选择，不会打乱次序

学生的方式的

renkangjizhen 发表于 2019-6-20 11:17
如果表格中没有合并的单元格，排序应该是最佳选择，不会打乱次序

不能排序的，排序完以后实体单据的位置就对不上了

Lonzo丶

直接排序就可以解决吧