Sub 科目余额表()
Dim rr%, r%, arr
rr = ActiveSheet.UsedRange.Rows.Count
r = rr - 1
Range("d2:k" & r).Replace 0, "", xlWhole
Range("d2:k" & r).NumberFormat = "#,#.00"
Rows(rr).Delete
Cells(1, 1).Select
Cells(2, 1).Select
ActiveWindow.FreezePanes = True
Cells.VerticalAlignment = xlCenter
Columns(1).AutoFit
Range("a1:z" & r).AutoFilter field:=1, Criteria1:=Array("1122", "1221", "2202", "2241"), Operator:=xlFilterValues
End Sub
科目余额表-调整格式
于 2022-10-27 14:12:34 首次发布