|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
黑黑,只会循环和判断:
- Sub Fish()
- Dim aa, bb() As Long
- Dim i&, j&, k&, l&, n&
- aa = [a2:d16]
- ReDim bb(1 To UBound(aa) ^ UBound(aa, 2))
- For i = 1 To UBound(aa)
- For j = 1 To UBound(aa)
- For k = 1 To UBound(aa)
- For l = 1 To UBound(aa)
- If i <> j And i <> k And i <> l And j <> k And j <> l And k <> l Then
- n = n + 1
- bb(n) = aa(i, 1) * aa(j, 2) * aa(k, 3) * aa(l, 4)
- End If
- Next l
- Next k
- Next j
- Next i
- MsgBox WorksheetFunction.Max(bb)
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|