|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
对于Eraser2000文章PartVI中对不重复的清单,我从Excel 2002宝典中看到另一种计算方法:
选定单元格E7:E20输入以下公式($B$7:$B$20已命名为K):
{=INDEX(k,SMALL(IF(MATCH(k,k,0)=ROW(INDIRECT("1:"&ROWS(k))),MATCH(k,k,0),""),ROW(INDIRECT("1:"&ROWS(k)))))}
选定单元格F7:F20输入以下公式可消除单元格E15:E20中的#NUM!:
{=IF(ISERR(SMALL(IF(MATCH(k,k,0)=ROW(INDIRECT("1:"&ROWS(k))),MATCH(k,k,0),""),ROW(INDIRECT("1:"&ROWS(k))))),"",INDEX(k,SMALL(IF(MATCH(k,k,0)=ROW(INDIRECT("1:"&ROWS(k))),MATCH(k,k,0),""),ROW(INDIRECT("1:"&ROWS(k))))))} |
|