Function HowMany(ByVal iSum As Long, rInp As Range) As Long
Dim i As Long
Dim j As Long
For i = rInp.Cells.Count To 1 Step -1
j = iSum \ rInp(i).Value
iSum = iSum - rInp(i).Value * j
HowMany = HowMany + j
Next i
End Function
A B C D- E F G H I J K L M N O- P- Q- R- S- T- U-
1 A B C D 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
2 1 2 3 4 1 1 1 1 2 2 2 2 3 3 3 3 4 4 4 4
3 1 2 3 5 1 1 1 2 1 2 2 2 3 2 3 3 3 4 3 4
4 1 2 3 6 1 1 1 2 2 1 2 2 2 3 3 2 3 3 3 4
5 1 2 3 7 1 1 1 2 2 2 1 2 2 2 3 3 3 2 3 3
6 1 2 3 8 1 1 1 2 2 2 3 1 2 2 2 3 3 3 4 2
7 1 2 3 9 1 1 1 2 2 2 3 3 1 2 2 2 3 3 3 4
8 1 2 3 10 1 1 1 2 2 2 3 3 3 1 2 2 2 3 3 3
9 1 2 3 11 1 1 1 2 2 2 3 3 3 4 1 2 2 2 3 3
In F2 and copy across and down,
=HowMany(F$1, $A2:$D2)
Bookmarks