归纳与总结，以备自查！

youxixiao · 发表于 2016-4-14 09:46

好东西，虽然没看懂，make一下，慢慢研究！

13925099527 · 发表于 2016-7-19 10:32

本帖最后由 13925099527 于 2016-7-19 15:02 编辑

版主，我最近在学习您的这个帖子，受益匪浅
与此同时想求助下：关于多个excel在进行自动汇总前的统一标准化问题。
我遇到最多最麻烦的问题是：
几个excel的表头不同，尤其是同一类数据的列名不同。
比如打算汇总“数量”，但在工作簿1是“数量明细”，工作簿2是“使用数量”
有帖子可以让我细化学习么，我是新人

suifeng4675 · 发表于 2016-7-19 10:34

学习了，谢谢！！！

liaotian1 · 发表于 2016-8-6 21:34

要求：请用VBA语言，按照“总评分”（即附件中的黄色部分）对各年级各学科进行降序排名，把名次放到红色部，谢谢
请不要告诉我用L6=RANK.EQ(K6,K$6:K$92)这类公式

按总评分降序排名.rar (25.83 KB, 下载次数: 8)

liaotian1 · 发表于 2016-8-15 16:15

楼主弃楼了？

ctp_119 · 发表于 2016-8-15 16:28

liaotian1 发表于 2016-8-15 16:15
楼主弃楼了？

明天有时间帮你看一下！！！

wzsy2_mrf · 发表于 2016-8-15 19:03

liaotian1 发表于 2016-8-6 21:34
要求：请用VBA语言，按照“总评分”（即附件中的黄色部分）对各年级各学科进行降序排名，把名次放到红色部 ...

我帮你做一下：
调用快速排序而已。

liaotian1 · 发表于 2016-8-15 19:23

wzsy2_mrf 发表于 2016-8-15 19:03
我帮你做一下：
调用快速排序而已。

我说的可能有误，应该是总分高的排在第一名，分最少的排在最后一名

wzsy2_mrf · 发表于 2016-8-15 19:49

liaotian1 发表于 2016-8-15 19:23
我说的可能有误，应该是总分高的排在第一名，分最少的排在最后一名

将 arr(i, 1) = WorksheetFunction.Match(arr(i, 1), brr, 1)
改为：

arr(i, 1) = UBound(arr) - WorksheetFunction.Match(arr(i, 1), brr, 1) + 1

wzsy2_mrf · 发表于 2016-8-15 20:05

以后求助应该做出事例，这样帮助者才不会误解。

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

[原创] 归纳与总结，以备自查！

评分