VBA 错在那里?

On_fire · 发表于 2023-2-1 09:08

VBA 错在那里?

*

Sheet1(2)是源数据,

代码对固定区域Range(“E30:E45)进行中西式升序排名,

在同行F列出结果!

*

问题是,

在Sheet1的情况下, 不能得到正确结果?

问题在那? 如何改正?

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

liulang0808 · 发表于 2023-2-1 09:52

数据区域有出入，就是没有数据部分
arr = Range("e30:e41")

chxw68 · 发表于 2023-2-1 09:52

原程序逻辑混乱，没法修改。重新写了一段供参考。

On_fire · 发表于 2023-2-1 10:04

liulang0808 发表于 2023-2-1 09:52
数据区域有出入，就是没有数据部分
arr = Range("e30:e41")

版主早上好,
原来是这样,
目前是区域Range(“E30:E45”)内有多少个值是变量,
个数有上限, 下限是1个...

liulang0808 · 发表于 2023-2-1 10:06

On_fire 发表于 2023-2-1 10:04
版主早上好,
原来是这样,
目前是区域Range(“E30:E45”)内有多少个值是变量,

你这个区域不确定？
是起始行不确定还是结束行不确定，还是其他的？
现在信息不明确啊

On_fire · 发表于 2023-2-1 10:06

chxw68 发表于 2023-2-1 09:52
原程序逻辑混乱，没法修改。重新写了一段供参考。

褚老师, 新年快乐!
*
又见笑了...
这个代码也是找回来的...感谢帮忙!

tanglf188 · 发表于 2023-2-1 10:07

对当前表E列升序排序，并复制到F对应列。

On_fire · 发表于 2023-2-1 10:12

本帖最后由 On_fire 于 2023-2-1 10:14 编辑

liulang0808 发表于 2023-2-1 10:06
你这个区域不确定？
是起始行不确定还是结束行不确定，还是其他的？
现在信息不明确啊

在Range(“E30:E45”)内,
上限最多有16个值, 最少1个值

On_fire · 发表于 2023-2-1 10:13

chxw68 发表于 2023-2-1 09:52
原程序逻辑混乱，没法修改。重新写了一段供参考。

褚老师, 新年快乐!
看到您的代码, 好有亲切感...

chxw68 · 发表于 2023-2-1 10:26

On_fire 发表于 2023-2-1 10:13
褚老师, 新年快乐!
看到您的代码, 好有亲切感...

新年快乐！

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

[求助] VBA 错在那里?