人民币面值统计张数

准提部林

小數第2位捨去, 第1位不足0.5也捨去//

Sub TEST_A1()
Dim Arr, Brr, R&, TR, V, S
R = [a65536].End(3).Row - 2
If R <= 0 Then Exit Sub
Arr = Range("a3").Resize(R + 1)
ReDim Brr(1 To R, 1 To 7)
TR = Array("", 1000, 500, 200, 100, 50, 10, 5)
For i = 1 To UBound(Arr) - 1
    V = Application.Floor(Arr(i, 1) * 10, 5)
    For j = 1 To 7
        S = Int(V / TR(j)): V = V - S * TR(j)
        If S Then Brr(i, j) = S
    Next j
Next i
[b3].Resize(R, 7) = Brr
End Sub

wengjl

现在发钱都是银行打卡了，本贴只是作学技术而论