新手请问 数据排列再组合 如何实现?

t-ana

新手询问 数据逐步排序再组合:

步骤1: 第一组: A B C D E F 每两字母一组(2字排): AB AC AD AE AF BC BD BE BF CD CE CF DE DF EF 共15组(不要颠倒重复 例如AB BA)

步骤2: 第二组:N O P Q R S 每四字母一组(4字排): NOPQ NOPR NOPS NOQR NOQS NORS NPQR NPQS NPRS NQRS OPQR OPQS OPRS OQRS PQRS 共15组(没有颠倒重复 例如NOPQ ONQP QPON)

步骤3: 第一组+第二组(2字排+4字排): AB+NOPQ  AB+NOPR ... EF+PQRS 共225组(没重复!)

以上步骤 Excel 函数公式 或是 VBA 如何实现?

pengyx

试试

t-ana

pengyx 发表于 2019-4-12 23:25
试试

几个问题 追问一下:

1: 那个代码 x = Split("A B C D E F", " ") 要是括号里面变成 x = Split("A B C D E F") 有没影响? 什么分别?

2.1: For i = 0 To 4 以及 For i = 0 To 2 后面 0 To 4 与 0 To 2 表示什么? 什么作用?
2.2: ReDim cr(1 To 225, 1 To 1) 里面 1 To 1 表示什么? 什么作用?
2.3: Sheet1.Range("a1").Resize(225, 1) = cr 其中 Range后面"a1" 以及 Resize 后面(1) 表示什么? 什么作用?

3: 如果字母 x = Split("A B C D E F", " ") 替换数字 x = Split("1 2 3 4 5 6", " ") 排列再组合后 要使所得全部数据 每行自左至右 每列自上而下 从小到大 按序排列 需要如何改写代码? 例如 x = Split("1 2 5 6 9 0", " ") 与 y = Split("3 4 7 8 1 2", " ") 两组数据 排列再组合后 所得数据 其中包括 1 2 5 3 4 7 与 1 2 0 3 4 7 及 2 5 6 3 4 7 三组数据 要使这三组数据自行排列为: 1 2 3 4 5 7 及 0 1 2 3 4 7 与 2 3 4 5 6 7形式(自左至右 从小到大) 代码需要如何改写?

4: 页面那个"点这试试" 一键按钮 的确方便! 如何添加制作?

5: 上面那是 "2字排+4字排" 据你那代码 依葫芦画瓢 下方改写 "3字排+3字排" 不知有没问题? 尤其"0 To 3"及"Next位置与个数"是否正确? 你给指正一下 如有必要 整个代码 麻烦重新改写!


Sub A()
x = Split("1 2 3 4 5 6", " ")
y = Split("7 8 9 10 11 12", " ")
ReDim ar(1 To 20)
ReDim br(1 To 20)
For i = 0 To 3
    For j = i + 1 To 4
        For k = j + 1 To 5
            n = n + 1
            ar(n) = x(i)＆" "＆x(j)＆" "＆x(k)
        Next
    Next
Next
For i = 0 To 3
    For j = i + 1 To 4
        For k = j + 1 To 5
            m = m + 1
            br(m) = y(i)＆" "＆y(j)＆" "＆y(k)
        Next
    Next
Next
ReDim cr(1 To 400, 1 To 1)
For i = 1 To 20
    For j = 1 To 20
        r = r + 1
        cr(r, 1) = ar(i)＆" "＆br(j)
    Next
Next
Sheet1.Range("a1").Resize(400, 1) = cr
End Sub