删除与排序（排序待优化）

Sub 删除精简版()
'
' Macro3 Macro
'剔除不必要：精简版 5-22

'
 Columns("O:O").Select
    Selection.Copy
    Columns("S:S").Select
    ActiveSheet.Paste
'以上用来留存交货日期
Columns("BD:BD").Select
    Selection.Copy
    Columns("AM:AM").Select
    ActiveSheet.Paste
 '以上两步，用来留存小纸板入库数
    Range("BK:BL,AN:BI,AI:AL,AC:AD,X:AA,T:V,N:R,H:L,C:F").Select
Selection.Delete Shift:=xlToLeft

Columns("E:E").Select
 Selection.NumberFormatLocal = "m""月""d""日"";@"
    Columns("E:F").Select
    Selection.NumberFormatLocal = "m""月""d""日"";@"

End Sub
 

Sub 总表排序()
'
' 排序 Macro
'总表排序（在t：送货地址，z：业务员，av审核人）

'
 Columns("J:J").Select
    Selection.Cut
    Columns("O:O").Select
    ActiveSheet.Paste
    Columns("L:L").Select