问吧友们一个函数相关的问题

举例说明，没怎么看明白，只能兑换一个，还是以所有积分兑换，从高到低，兑换完为止

建议在第一行添加每个兑换物品积分，如图，D3输入，右拉下拉
=IF(D$2="优惠券",1,IF(D$2="香烟",INT($C3/D$1),IF($C3-SUMPRODUCT(E$1:$H$1*E3:$H3)>=D$1,INT(($C3-SUMPRODUCT(E$1:$H$1*E3:$H3))/D$1),)))
最后设置单元格格式为0不显示

Option Explicit
Sub abc()
　Dim a, b, i, j
　a = [a1].CurrentRegion.Offset(1).Resize(, 3).Value
　b = Array(10, 30, 50, 100)
　ReDim c(1 To UBound(a) - 1, 1 To 5)
　For i = 1 To UBound(a) - 1
　　c(i, 1) = 1
　　For j = UBound(b) To 0 Step -1
　　　If a(i, 3) \ b(j) > 0 Then
　　　　c(i, j + 2) = a(i, 3) \ b(j)
　　　　a(i, 3) = a(i, 3) Mod b(j)
　　　　If a(i, 3) = 0 Then Exit For
　　　End If
　　Next
　Next
　[d2].Resize(UBound(c), UBound(c, 2)) = c
End Sub