关于按列判断特定内容出现为10的倍数次，并按另一列排序将多余行单存放的问题

chris901229

各位大侠好，求一个应该很简单的程序。
附件是每天发货用的表，“明细表”内的1行为1台商品，T列为该商品可能的铁路方向（部分只能发公路，已经VLOOKUP好），由于铁路一个车皮至少装10台，因此有这样的原则：
1.按T列所有可能的铁路方向，判断今天该方向一共可以有多少（10的倍数台），余下的行放到一个单独的sheet（名为“铁路剩余运输计划”）
2.按J列销售时间，越早的订单要优先发运（因此上面说的要单独存放的余数行日期越新者优先）。

举例：
12.4的发货表，T列筛选“哈尔滨铁路”，一共46行数据，因此今天只能下达40台铁路计划，剩余6台在“明细表”中删除，并放到“铁路剩余运输计划”sheet中（J列日期最新的是12月3日，所以按日期降序选6台）。


这样“”统计“”sheet刷新后铁路运输的数据都是10的整数倍台了，便于去SAP操作，谢谢！

魂断蓝桥

和你的想法有点出入。
对原始数据的删除不是一个好的办法


增加了一个【铁路发车计划工作表】，符合条件的都在此工作表，其余的在【铁路计划剩余工作表】中。



12.4发货使用表.rar (299.19 KB, 下载次数: 1)

2019-12-17 15:24 上传

点击文件名下载附件

chris901229

魂断蓝桥 发表于 2019-12-17 15:24
和你的想法有点出入。
对原始数据的删除不是一个好的办法

感谢魂断蓝桥，这个论坛真是宝藏啊！意见很好，咳咳，但是有两个小小的问题。

1.明细表中，新增了三列信息，程序执行完后，最后三列的内容丢失了（还挺重要）；
2.针对单个铁路方向，数量连10都没有这种极端情况，所有行应该放在“铁路剩余计划”里面，即今天该方向一台也不能铁路发走。


还请大侠帮助修改，谢谢！！

魂断蓝桥

已经改好了，你试一试。

不到10台的放到了铁路剩余计划表里了。

发货使用表-2.rar (559.58 KB, 下载次数: 2)

2019-12-18 16:06 上传

点击文件名下载附件

chris901229

魂断蓝桥 发表于 2019-12-18 16:06
已经改好了，你试一试。

不到10台的放到了铁路剩余计划表里了。

@魂断蓝桥，一直麻烦实在是不好意思，已经在恶补VBA。

最新表用今天12.19的数据进行测试，发现一个问题：
1.“铁路发车计划”sheet中有数据遗漏，“长沙铁路”的所有行被整体遗漏了。

继续厚颜求助。

chris901229

chris901229 发表于 2019-12-19 13:04
@魂断蓝桥，一直麻烦实在是不好意思，已经在恶补VBA。

最新表用今天12.19的数据进行测试，发现一个问 ...

另外，可否大致标注一下代码对应含义，以便未来在表内增加列，进行内容扩展。。

魂断蓝桥

chris901229 发表于 2019-12-19 13:16
另外，可否大致标注一下代码对应含义，以便未来在表内增加列，进行内容扩展。。

不好意思，有个小bug 现在改好了。

注释这种东西，其实用处不大的，如果感兴趣，可以看一看ado sql语句方面的资料，比vba简单。

select * from [明细$a1:z]

代码中这句就是数据区域，如果扩充后可以更改比如 select * from [明细$a1:ab]

发货使用表-3.rar (582.55 KB, 下载次数: 1)

2019-12-19 13:56 上传

点击文件名下载附件