Sub 成本产品入库单()
On Error Resume Next
Dim hejihang, zonghang, riqilie, paixukey
Set s1 = Sheets("产品入库序时簿 (2)")
riqilie = s1.Range("A1:Z1").Find("日期").Column
paixukey = "单据编号"
hejihang = s1.Range("A:A").Find("合计").Row
Rows(hejihang).Delete
zonghang = Range("A10000").End(xlUp).Row
For i = 2 To zonghang
Cells(i, riqilie) = Format(Cells(i, riqilie), ddddd)
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:22:01 首次发布