怎样按总和最小值每列各抽取一个不同行的数据？

AACC88 · 发表于 2013-1-4 20:45

本帖最后由 AACC88 于 2013-1-4 21:54 编辑

30楼的网友用阶乘n!算的结果，组合数的确够大。
不知道有没有省事的方法解决这个问题？

AACC88 · 发表于 2013-1-4 23:36

本帖最后由 AACC88 于 2013-1-4 23:36 编辑

新的附件只抽取7个数据，有办法用数组公式按总和最小值每列抽取一个不同行数据吗？

抽取7个数据组成总和最小值.rar (1.51 KB, 下载次数: 5)

yangyangzhifeng · 发表于 2013-1-5 01:48

AACC88 发表于 2013-1-4 23:36
新的附件只抽取7个数据，有办法用数组公式按总和最小值每列抽取一个不同行数据吗？

VBA可以实现

Dim arr()
Sub pailie2(ParamArray x())
Dim i As Integer, j As Integer, Num As Long, n As Integer
Dim a() As Integer '记载数组下标
Dim b() As Integer '记载使用标识
n = UBound(x) + 1
ReDim a(1 To n)
ReDim b(1 To n)
i = 1
a(1) = 0
Do While i <= n
a(i) = a(i) + 1
If a(i) <= n Then
If b(a(i)) = 0 Then
If i = n Then '达到数组末，则输出组合情况
Num = Num + 1
For j = 1 To n
arr(Num, j) = x(a(j) - 1)
Next
i = i - 1
b(a(i)) = 0 '清空使用标识
Else
b(a(i)) = 1 '标记已使用
i = i + 1
a(i) = 0 '重查
End If
End If
Else
i = i - 1
If i = 0 Then Exit Do '回溯至数组前则结束
b(a(i)) = 0
End If
DoEvents
Loop
End Sub
Private Sub Command1_Click()
Dim br, i&, j&, x, t, st
x = 2 * 10 ^ 26
ReDim arr(1 To WorksheetFunction.Fact(7), 1 To 7)
pailie2 1, 2, 3, 4, 5, 6, 7
br = Range("a1:g7")
For i = 1 To UBound(arr)
t = 0
For j = 1 To UBound(arr, 2)
t = t + br(j, arr(i, j))
Next
If t < x Then x = t: st = br(1, arr(i, 1)) & "+" & br(2, arr(i, 2)) & "+" & br(3, arr(i, 3)) & "+" & br(4, arr(i, 4)) _
& "+" & br(5, arr(i, 5)) & "+" & br(6, arr(i, 6)) & "+" & br(7, arr(i, 7)) & "="
Next
MsgBox st & x
End Sub

复制代码

yangyangzhifeng · 发表于 2013-1-5 01:50

请见附件

抽取7个数据组成总和最小值.rar (9.67 KB, 下载次数: 12)

yangyangzhifeng · 发表于 2013-1-5 01:51

最小值是268

AACC88 · 发表于 2013-1-5 07:26

本帖最后由 AACC88 于 2013-1-5 08:06 编辑

谢谢。
1．我想知道每一列抽取的是第几行数据，如A6、B5、C2、D4、E7、F3、G1，或数据上有色彩也可以。
2．有点得寸进尺的设想，如果像这样按总和最小值7列抽取7个不同行数据，8列抽取8个不同行数据，10列抽取10个不同行数据……，这种方式最多能计算出抽取多少列的多少个不同行数据？

补充：
点击按钮后已发现从上面第1行向下有“33+32+42+41+44+36+40=268”的显示，因而第1个问题已不存在。

AACC88 · 发表于 2013-1-5 07:47

本帖最后由 AACC88 于 2013-1-5 08:22 编辑

新的附件抽取13个数据，能用这种方式按总和最小值每列抽取一个不同行数据吗？

抽取13个数据组成总和最小值.rar (1.74 KB, 下载次数: 4)

也附上一个经过简化的抽取26个数据的新附件，看是否有办法解决。

抽取26个数据组成总和最小值.rar (2.4 KB, 下载次数: 12)

AACC88 · 发表于 2013-1-5 10:00

新的附件抽取13个数据，请问能用这种方式按总和最小值每列抽取一个不同行数据吗？

AACC88 · 发表于 2013-1-5 20:57

33楼网友的VBA是按总和最小值7列抽取7个不同行数据，请问如果10列抽取10个不同行数据，应该怎么修改？

		自动登录	找回密码
密码			免费注册

[已解决] 怎样按总和最小值每列各抽取一个不同行的数据？

评分

评分