[已解决]排序问题

yunsin1015 · 发表于 2013-4-23 13:24

排序.rar (8.46 KB, 下载次数: 10)

su45 · 发表于 2013-4-23 13:41

思路有问题！假如说某日收了256，但发出时是分三次发出的分别是165、80、11，怎么排序？建议调整下思路。

hwc2ycy · 发表于 2013-4-23 13:43

hwc2ycy · 发表于 2013-4-23 13:43

本帖最后由 hwc2ycy 于 2013-4-23 13:45 编辑

分别排序，选当前选定区域排序就成了。

yunsin1015 · 发表于 2013-4-23 14:05

hwc2ycy 发表于 2013-4-23 13:43
分别排序，选当前选定区域排序就成了。

谢谢您，但是这个我知道的，现在就是想用VBA解决这种问题，万一我有一百列数据我设置半天和点下鼠标是有很大区别的！

yunsin1015 · 发表于 2013-4-23 14:09

su45 发表于 2013-4-23 13:41
思路有问题！假如说某日收了256，但发出时是分三次发出的分别是165、80、11，怎么排序？建议调整下思路。

恩确实是有着种问题出现，我的想法是第一步解决大部分能找到对应的，第二步把不相等的以活动单元格方式往下移动到找的到的地方，再来匹配。确实是很复杂啊！目前也想不到更好的办法……请问您有什么想法没有呢？

大灰狼1976 · 发表于 2013-4-23 14:15

请试试以下代码：
Sub Macro1()
Columns("A:A").Sort Key1:=Range("A2"), Header:=xlYes
Columns("B:B").Sort Key1:=Range("B2"), Header:=xlYes
End Sub

大灰狼1976 · 发表于 2013-4-24 13:56

你可以增加一个关键字（增加一列），比如批号，单号等，便于对应。

yunsin1015 · 发表于 2013-4-27 12:22

在大家的指点下，我基本完成一点，分享一下。先排序然后活动单元格下移找到相同的金额，不同的金额在实际情况中很少，手动匹配下基本就能找到未达账项了！最终完成银行余额调节表的制作！

		自动登录	找回密码
密码			注册