Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
楼主: 张雄友

[已解决]双条件排序

[复制链接]
发表于 2015-5-24 08:39 | 显示全部楼层
19楼这样写对不对?brr6 = [{"2G","C";"",""}]  发表于 2015-5-24 08:14
在本附件中没有影响,因为都是文本,如果是文本和数字交错,肯定会提示错误。把brr6直接并入上一个数组不行吗?

点评

23楼文本与数字交错会下标越界。  发表于 2015-5-24 14:45
回复

使用道具 举报

 楼主| 发表于 2015-5-24 08:48 | 显示全部楼层
dsmch 发表于 2015-5-24 08:39
19楼这样写对不对?brr6 = [{"2G","C";"",""}]  发表于 2015-5-24 08:14
在本附件中没有影响,因为都是文本 ...

直接并入上一个数组是可以的!如果是文本与数字交错怎么才对?用一维数组那样吗?

点评

也许只有极个别的选择用一维数组,别太钻牛角尖  发表于 2015-5-24 08:56
回复

使用道具 举报

 楼主| 发表于 2015-5-24 08:57 | 显示全部楼层
dsmch 发表于 2015-5-24 08:39
19楼这样写对不对?brr6 = [{"2G","C";"",""}]  发表于 2015-5-24 08:14
在本附件中没有影响,因为都是文本 ...

的确,文本与数字交错会下标越界,用第一种方法就可行。

brr6 = [{"2G","C";"",""}]  这种方法会下标越界        crr(s, j) = arr(n, j)

双条件排序多个数组4.rar

13.44 KB, 下载次数: 1

回复

使用道具 举报

 楼主| 发表于 2015-5-24 08:58 | 显示全部楼层
早上好,请不要见怪,因为知其一而不知其二,是不懂的。
回复

使用道具 举报

 楼主| 发表于 2015-5-24 19:26 | 显示全部楼层
dsmch 发表于 2015-5-24 08:39
19楼这样写对不对?brr6 = [{"2G","C";"",""}]  发表于 2015-5-24 08:14
在本附件中没有影响,因为都是文本 ...

是我粗心了,没有将对应的ABC,改成123,brr6 = [{"2G", "3";"",""}]  测试通过。

双条件排序多个数组4.rar

13.11 KB, 下载次数: 3

点评

数字不需要加双引号,加双引号的都是文本格式  发表于 2015-5-24 21:17
回复

使用道具 举报

 楼主| 发表于 2015-5-29 18:04 | 显示全部楼层
dsmch 发表于 2015-5-24 08:39
19楼这样写对不对?brr6 = [{"2G","C";"",""}]  发表于 2015-5-24 08:14
在本附件中没有影响,因为都是文本 ...

今天在工作中实践了,发现如果排序区域中有公式的话,公式会变成数值的?怎么令它不变成数值??

点评

直接赋值数组  发表于 2015-5-29 20:28
回复

使用道具 举报

 楼主| 发表于 2015-5-29 20:37 | 显示全部楼层
dsmch 发表于 2015-5-23 18:32
For i = 0 To UBound(brr6) - 1
    zf = brr6(i) & "," & brr6(i + 1) '一个
    If d.exists(zf) Then  ...

如:F 列的公式变成数值了。怎么办?

双条件排序自定义多个数组公式不要变数值.rar

12.57 KB, 下载次数: 3

点评

数值再改为公式,纯属画蛇添足,vba最忌公式和代码混用,用代码填充公式其实非常简单  发表于 2015-5-29 20:48
回复

使用道具 举报

 楼主| 发表于 2015-5-29 21:07 | 显示全部楼层
dsmch 发表于 2015-5-22 19:47
也可以写入两个数组

附件中的公式只是一个例子,因为有些公式不是那么简单的,是引用多个单元格,所以不方便再输入公式。

点评

把所有的公式都用代码预处理,只要公式能解决的,代码应该没有问题  发表于 2015-5-29 21:16
回复

使用道具 举报

 楼主| 发表于 2015-5-29 21:25 | 显示全部楼层
看来公式要用录制宏解决。
回复

使用道具 举报

发表于 2015-5-29 21:48 | 显示全部楼层
张雄友 发表于 2015-5-29 21:25
看来公式要用录制宏解决。

公式这步就省略了,直接用代码生成结果
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-7 10:09 , Processed in 0.285476 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表