VBA 一维转二维 ( 有难度 )

On_fire · 发表于 2023-2-19 00:56

VBA 一维转二维 ( 有难度 )

*

Sheet1是源资料, 暂时删掉不参加处理的数据

Range (“AA:AN”)是要处理的数据, 行数是变量

*

代码逻辑如下,

1. AB对应AM列, 同行是一组数据

2. 以AB列的同值为一个区域, 输出对AM列的西式升序排名到AN列

>> >

3. AA列转成标题行, AB列转成标题列

4. 分别取同行的AC, (, AE, AK, AM 及AN, ), 共5列的对应值到矩阵

*

部分模拟西式升序排名结果在Sheet1(2)

部分模拟最终结果在Sheet1(3)

*

恳请大神, 老师出手帮忙…谢谢!

清风竹- · 发表于 2023-2-19 11:02

请看附件。

蓝桥玄霜 · 发表于 2023-2-19 11:21

数组的例子：

On_fire · 发表于 2023-2-19 11:25

清风竹- 发表于 2023-2-19 11:02
请看附件。

老师早上好,
感谢老师帮忙…
但您的代码逻辑 , 好难, 看不懂?
可以帮忙注释吗?
*
原本的逻辑是AN列一次性做完排名赋值,
再将结果, 一起性输出到矩阵….

On_fire · 发表于 2023-2-19 11:26

蓝桥玄霜发表于 2023-2-19 11:21
数组的例子：

蓝版早上好,
感谢帮忙…

清风竹- · 发表于 2023-2-19 11:57

On_fire 发表于 2023-2-19 11:25
老师早上好,
感谢老师帮忙…
但您的代码逻辑 , 好难, 看不懂?

本人代码逻辑其实很简单, 与其说是写的，也可以说是录的，代码与手工操作一致。很大篇幅都是进行排序。只有后10行是进行输出到矩阵的。

准提部林 · 发表于 2023-2-19 13:25

排序+輔助列公式//簡單快速/

Xl0000525.rar (29.25 KB, 下载次数: 14)

fzxba · 发表于 2023-2-19 14:36

本帖最后由 fzxba 于 2023-2-19 17:23 编辑

参与.rar (64.28 KB, 下载次数: 17)

On_fire · 发表于 2023-2-19 18:17

准提部林发表于 2023-2-19 13:25
排序+輔助列公式//簡單快速/

老师好,
结果好像有点问题?

准提部林 · 发表于 2023-2-19 18:59

On_fire 发表于 2023-2-19 18:17
老师好,
结果好像有点问题?

修下//以AB列為群組//排名升序

Xl0000525-1.rar (29.15 KB, 下载次数: 13)

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

[求助] VBA 一维转二维 ( 有难度 )