凭证-调整格式

舟心ty

已于 2022-10-27 22:09:52 修改

阅读量64

点赞数

分类专栏： VBA 文章标签：算法数据结构

于 2022-10-27 14:13:24 首次发布

本文链接：https://blog.csdn.net/sx01117/article/details/127551436

版权

VBA 专栏收录该内容

9 篇文章 0 订阅

订阅专栏

Sub 凭证()
Dim rr%, r%, arr
rr = ActiveSheet.UsedRange.Rows.Count
r = rr - 1
Range("j2:k" & r).Replace 0, "", xlWhole
Range("i2:k" & r).NumberFormat = "#,#.00"

arr = Range("a1:c" & r)
For i = 1 To UBound(arr)
    If IsEmpty(arr(i, 1)) Then
        arr(i, 1) = arr(i - 1, 1)
        arr(i, 2) = arr(i - 1, 2)
        arr(i, 3) = arr(i - 1, 3)
    End If
Next i
Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr

Rows(rr).Delete
Cells(1, 1).Select
Cells(2, 1).Select
ActiveWindow.FreezePanes = True
Cells.VerticalAlignment = xlCenter
Range("a:c").AutoFit
Range("a1:ag" & r).AutoFilter

End Sub