Sub 成本外购入库单()
On Error Resume Next
Dim hejihang, zonghang, riqilie, hanshuilie, paixukey
Set s1 = Sheets("外购入库序时簿 (2)")
paixukey = "单据编号"
hejihang = s1.Range("A:A").Find("合计").Row
Rows(hejihang).Delete
zonghang = Range("A10000").End(xlUp).Row
riqilie = s1.Range("A1:Z1").Find("日期").Column
hanshuilie = s1.Range("A1:Z1").Find("含税金额").Column
For i = 2 To zonghang
Cells(i, riqilie) = Format(Cells(i, riqilie), ddddd)
Cells(i, hanshuilie) = Format(Cells(i, hanshuilie), "standard")
Next
Range("A1").Select
Range("A2").Select
ActiveWindow.FreezePanes = True
Range("A1").CurrentRegion.AutoFilter
Set Rng = Range("A1:Z" & zonghang)
Rng.Sort key1:=paixukey, order1:=xlDescending, Header:=xlYes
End Sub
成本-外购入库单
于 2022-10-27 14:21:15 首次发布