|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
原帖由 swyrlbq 于 2011-1-26 20:21 发表
楼主发个附件,好理解楼主的方法。感谢参与。
跨工作表排名:
=IF(F2="","",RANK(F2,'14:17'!F$2:F$100))
有并列情况
=IF(F3="","",RANK(F3,'14:17'!F$2:F$100)+COUNTIF(F$1:F2,F3)+COUNTIF('14'!$F$1:$F101,F3)+COUNTIF('15'!$F$1:$F101,F3))
无并列情况。
只用三个名称和一个公式就可解决跨表提取上榜生名单
定义名称如下:
sht =GET.DOCUMENT(76)&T(NOW())
shts =LOOKUP(SMALL(IF(wk<>sht,COLUMN(INDIRECT("C1:C"&COLUMNS(wk),0))),COLUMN(INDIRECT("C1:C"&COLUMNS(wk)-1,0))),COLUMN(INDIRECT("C1:C"&COLUMNS(wk),0)),wk)
wk =GET.WORKBOOK(1)&T(NOW())
上榜表中公式为:
=VLOOKUP($G2,INDIRECT(LOOKUP(1,0/COUNTIF(INDIRECT(shts&"!A:A"),$G2),shts)&"!A:g"),COLUMN()+1,0)
多表同时排序及提取上榜生名单20110126.rar
(21.41 KB, 下载次数: 21)
|
|