请教关于组合的问题!

zhouxingyu · 发表于 2011-12-14 20:00

哪位帮忙看看.详见附件,在下先行谢过!

组合.rar (5.67 KB, 下载次数: 21)

zhouxingyu · 发表于 2011-12-14 20:47

回来自己顶顶.

香川群子 · 发表于 2011-12-14 21:42

自认为很漂亮、很简洁的代码：

Sub test()
arr = [a1:b27]
n = UBound(arr)
Set d = CreateObject("Scripting.Dictionary")
For i = 0 To n / 3 - 1
d(arr(i * 3 + 2, 2) & "," & arr(i * 3 + 3, 2)) = d(arr(i * 3 + 2, 2) & "," & arr(i * 3 + 3, 2)) & "," & arr(i * 3 + 2, 1) & "," & arr(i * 3 + 3, 1)
Next
p = d.keys
q = d.items
ReDim brr(1 To n, 1 To 2)
brr(1, 1) = "性别"
brr(1, 2) = "年龄"
For i = 0 To d.Count - 1
k = k + 1
t = Split(q(i), ",")
For j = 1 To UBound(t)
k = k + 1
brr(k, 1) = t(j)
brr(k, 2) = Split(p(i), ",")((k + i) Mod 2)
Next
Next
[d:e] = ""
[d1].Resize(n, 2) = brr
End Sub

复制代码

zhouxingyu · 发表于 2011-12-14 23:11

香川群子发表于 2011-12-14 21:42
自认为很漂亮、很简洁的代码：

你真强.
岂是你自认为,我想所有看过的人都会一致这样认为的.
不光是简洁漂亮,还非常的好用实用.万分感谢!

zhouxingyu · 发表于 2011-12-14 23:30

还想请教下:假如想在Sheet2引用,应该怎么改动一下.
我还是个菜鸟,只会生搬硬套,稍有改变就犯迷糊了.

香川群子 · 发表于 2011-12-15 10:16

zhouxingyu 发表于 2011-12-14 23:30
还想请教下:假如想在Sheet2引用,应该怎么改动一下.
我还是个菜鸟,只会生搬硬套,稍有改变就犯迷糊了.

所有计算都是VBA内存数组运行，所以基本不受影响。

只需更改如下：
第一句，获取原始数据：
arr = [a1:b27]

增加工作表位置参数，改为：
arr = Sheet1.[a1:b27]

最后末尾输出部分：
[d:e] = ""
[d1].Resize(n, 2) = brr

增加工作表位置参数，改为：
Sheet2.[d:e] = ""
Sheet2.[d1].Resize(n, 2) = brr

香川群子 · 发表于 2011-12-15 10:20

zhouxingyu 发表于 2011-12-14 23:11
你真强.
岂是你自认为,我想所有看过的人都会一致这样认为的.
不光是简洁漂亮,还非常的好用实用.万分感谢 ...

本题有趣的地方，在于原始数据是两行一组，在隔开一个空白行……

然后，输出结果，却要求同类合并，没有空行，
但非同类之间，要有空行。

因此，定位参数的高效使用，是关键。

我自认为比较满意的是下面一句：
brr(k, 2) = Split(p(i), ",")((k + i) Mod 2)

用mod 方式来返回词典中同一组的年龄，

由于同组使用相同key数据，分前后，
因此分奇偶可以决定前后……

但是，由于不同key之间要隔开一行……

所以，最后这个判断奇偶的参数，就使用了k+i 参数
很好地完成了一次性判断。

zhouxingyu · 发表于 2011-12-15 19:49

香川群子发表于 2011-12-15 10:20
本题有趣的地方，在于原始数据是两行一组，在隔开一个空白行……

然后，输出结果，却要求同类合并，没 ...

解释的很详尽,条理很清晰.
这么一说明,连我这菜鸟都理解了不少,受益非浅啊.
辛苦你了,再次表示感谢和钦佩.

wlianke · 发表于 2011-12-15 19:57

美女的代码，码如其人，两个字“漂亮”！

zhouxingyu · 发表于 2011-12-15 20:04

wlianke 发表于 2011-12-15 19:57
美女的代码，码如其人，两个字“漂亮”！

三个字:"真漂亮"!

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

[求助] 请教关于组合的问题!

评分

评分

评分