求单元格数据全排列的vba程序

zhaogang1960 · 发表于 2012-10-6 12:46

本帖最后由 zhaogang1960 于 2012-10-6 21:15 编辑

请看附件

排序2.rar (14.43 KB, 下载次数: 60)

dsmch · 发表于 2012-10-6 13:33

getall程序中，a是如何赋值的？请教赵版

zhaogang1960 · 发表于 2012-10-6 14:12

本帖最后由 zhaogang1960 于 2012-10-6 14:18 编辑

dsmch 发表于 2012-10-6 13:33
getall程序中，a是如何赋值的？请教赵版

通过形式参数a (ByRef a As String)
开始调用时是""：
getall n - 1, n, "", arr, 0'后面的0可以省略
之后是a & i
If InStr(a, i) = 0 Then getall m, n, a & i, arr, count

CAONI · 发表于 2012-10-6 20:27

zhaogang1960 发表于 2012-10-6 12:46
请看附件

这程序的结果与8楼的不一样，而且每点击一次按钮其结果都不一样。。。。

zhaogang1960 · 发表于 2012-10-6 21:14

CAONI 发表于 2012-10-6 20:27
这程序的结果与8楼的不一样，而且每点击一次按钮其结果都不一样。。。。

程序结束后忘记清除模块级变量了:
mm = 0
Erase aStr, crr

CAONI · 发表于 2012-10-6 23:24

本帖最后由 CAONI 于 2012-10-6 23:25 编辑

zhaogang1960 发表于 2012-10-6 21:14
程序结束后忘记清除模块级变量了:
mm = 0
Erase aStr, crr

版主你好，这次加上mm = 0 Erase aStr, crr 就完全对了而且各列数字都在1048576或65536转列，谢谢 !

泥泥excel · 发表于 2019-11-16 04:09

版主好，有新的问题需要请教

CAONI · 发表于 2020-3-21 15:23

zhaogang1960 发表于 2012-10-6 12:43
改进一下，每列填充到最下面一行后，再从下列开始填充：

老师你好，本程序每个数据都是一位数时程序能很好地计算出结果如:6 a d f 4 r,但是如数据中有二位时时程序结果就不对了，从中会有空格参与排列，如：d f 4 rr 23 44,请老师修改一下，谢谢！

yjh_27 · 发表于 2020-3-21 16:30

CAONI 发表于 2020-3-21 15:23
老师你好，本程序每个数据都是一位数时程序能很好地计算出结果如:6 a d f 4 r,但是如数据中有二位时时程 ...

aStr = Split(s)
n=ubound(astr)+1
替换14句，删除18句

试试

yjh_27 · 发表于 2020-3-21 17:38

参见附件。

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

[求助] 求单元格数据全排列的vba程序