VBA自动排序

xanfa

紧急求助各位高手，以下表如何按日期先后顺序自动排列。谢谢！

原数据

最终效果

最终效果
我编写的代码，望指教。谢谢！

1. Range("a3:h" & TR).Sort Key1:=Range("a3"), Order1:=xlAscending, Key2:=Range("e3") _
   
2.         , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
   

复制代码

该贴已经同步到 xanfa的微博

HHAAMM

楼主 你不给个附件 要让别人敲一遍数据吗 {:soso_e114:}

这个录制宏后可以得到代码

xanfa

HHAAMM 发表于 2012-11-3 03:38
楼主 你不给个附件 要让别人敲一遍数据吗

这个录制宏后可以得到代码

实在不好意思，忘了发附件了。望指教。谢谢！
按日期先后排序.7z (3.83 KB, 下载次数: 78)

2012-11-3 10:09 上传

点击文件名下载附件
按日期先后顺序排序

xanfa

首先我讲解下这份表的大体。A列是产品型号，B列是SO交货日期（客户交期），C列是SO号（客户订单号），D列是SO Qty（客户订单数量），E列是PO交货日期（供应商交期），F列是PO号（采购订单号），G列是PO Qty（采购数量），H列Available是结余数量（库存量+PO-SO）。
接着就是问题了。目前是SO交货日期排列后全部在一起，PO交货日期排列后也全部在一起，SO交货日期和PO交货日期不能按日期对应的先后顺序分散排列。
望指教。谢谢！

陇头梅

直接排序不就是了嘛

x007file

So日期为空，则等亍po日期
So日期排序
po日期不为空，删除so日期