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

CAONI · 发表于 2020-3-21 18:40

yjh_27 发表于 2020-3-21 16:30
aStr = Split(s)
n=ubound(astr)+1
替换14句，删除18句

老师你好，我按你的说的改了一下其结果还是与原来一样，只要数据大于1位，排序后就会出现重复数据或中间有零存在，谢谢你

yjh_27 · 发表于 2020-3-21 18:56

CAONI 发表于 2020-3-21 18:40
老师你好，我按你的说的改了一下其结果还是与原来一样，只要数据大于1位，排序后就会出现重复数据或中间 ...

下载20L附件。满足你的要求

CAONI · 发表于 2020-3-21 20:22

yjh_27 发表于 2020-3-21 17:38
参见附件。

老师你好，你这个程序真牛，能否请老师按主题要求修改一下程序，谢谢！
1、在b2开始的b列各单元格中分别填有不同的数据、各数据间空一格，
2、写出b列各单元格每组数据的全排列并依次输入到从d2开始的d列各单元格中且各数据间空一格，当d列填写完后就自动换列到从e2开始的e列，依次类推，
3、例如：b2单元格的数据:1 2 3 的全排列填在d2开始的d2-d7单元格，那么b3单元格的数据：4 5 6 7 的全排列就从d8开始填直到d31，b4单元格的数据：3 1 3 5 7 的全排列就从d32开始填直到d91，当d列填写完后就自动换到从e2开始的e列，

CAONI · 发表于 2020-3-21 20:43

yjh_27 发表于 2020-3-21 18:56
下载20L附件。满足你的要求

老师你好，能给个20l附件的下载地吗，谢谢！

yjh_27 · 发表于 2020-3-21 21:02

CAONI 发表于 2020-3-21 20:22
老师你好，你这个程序真牛，能否请老师按主题要求修改一下程序，谢谢！
1、在b2开始的b列各单元格中分别 ...

参见附件。

rangevba01 · 发表于 2020-3-21 22:11

yjh_27 发表于 2020-3-21 21:02
参见附件。

老师你好，程序经测试满足要求，先学习一下，不懂之处在请教老师，谢谢！

rangevba01 · 发表于 2020-3-21 22:34

yjh_27 发表于 2020-3-21 18:56
下载20L附件。满足你的要求

老师你好，我将程序放入后，程序不能循环运行，只计算b2，我把附件传上来，麻烦你看看，谢谢！

数据全排序.zip (53.08 KB, 下载次数: 1)

yjh_27 · 发表于 2020-3-21 22:52

rangevba01 发表于 2020-3-21 22:34
老师你好，我将程序放入后，程序不能循环运行，只计算b2，我把附件传上来，麻烦你看看，谢谢！

按19L改
要将首尾空格删除

yjh_27 · 发表于 2020-3-21 22:53

CAONI 发表于 2020-3-21 18:40
老师你好，我按你的说的改了一下其结果还是与原来一样，只要数据大于1位，排序后就会出现重复数据或中间 ...

要将首尾空格删除
s = Trim(brr(i, 1))
aStr = Split(s)
n = UBound(aStr) + 1

rangevba01 · 发表于 2020-3-21 23:13

yjh_27 发表于 2020-3-21 22:53
要将首尾空格删除
s = Trim(brr(i, 1))
aStr = Split(s)

老师你好，谢谢你的指导，程序改后满足要求，谢谢！

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

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

评分

评分