- Sub aaa()
- Dim arr, i&, j&, m&, n&, s, cnt&
- arr = Range("b2:c" & [b65536].End(3).Row)
- Do
- For i = 1 To UBound(arr)
- For j = 1 To 2
- If m < arr(i, j) Then
- m = arr(i, j)
- s = Array(i, j)
- End If
- Next j
- Next i
- n = n + 1
- cnt = cnt + m
- m = 0
- arr(s(0), s(1)) = 0
- Loop Until n = [e1]
- [f1] = cnt
- End Sub
复制代码 |