求五个数中取2个数和取0个数的所有组合

lljd808

liulang0808 发表于 2018-9-15 20:57

这回快多了，只是转换的组数还是有点多，我原来设想就是方框里的列数就够了，这个不知道改哪里，告诉一下就行，我自己操作，麻烦了，谢谢！！

lljd808

liulang0808 发表于 2018-9-15 20:50
如果数据多，就改成数组处理吧

要是数组，那表格基本就不动了。还 是得用VBA好些。

liulang0808

lljd808 发表于 2018-9-15 21:07
这回快多了，只是转换的组数还是有点多，我原来设想就是方框两的列数就够了，这个不知道改哪里，告诉一下 ...

不明白什么意思，如果是数据多了，就将E列数据少填写一些

lljd808

liulang0808 发表于 2018-9-15 21:10
不明白什么意思，如果是数据多了，就将E列数据少填写一些

e列数据是固定的，转换e列的前12行的数字就可以。再下面的不用转换，这样省空间，速度也会快些。

lljd808

liulang0808 发表于 2018-9-15 21:10
不明白什么意思，如果是数据多了，就将E列数据少填写一些

就是e列的每行数字不用全转换，只转换上面的12行数字就行，转换到列就是AP：BA这12列，这样速度也快些，应该是改这里吧：    arr = Range([e1], Cells(Rows.Count, "e").End(3))，但不知道怎么改？

liulang0808

arr = Range([e1], [e13])看看这个吧

lljd808

liulang0808 发表于 2018-9-15 21:34
arr = Range([e1], [e13])看看这个吧

可以了，真是太谢谢了！！

lljd808

liulang0808 发表于 2018-9-15 21:34
arr = Range([e1], [e13])看看这个吧

我导入另一表格里，运行很慢，能不能速度再快些，麻烦了！