ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 3093|回复: 24

[准提方帖]請為各分店會員卡編號列出連續碼

[复制链接]

TA的精华主题

TA的得分主题

发表于 2017-2-12 20:23 | 显示全部楼层 |阅读模式
本帖最后由 准提部林 于 2017-2-14 10:50 编辑

請為各分店會員卡編號列出連續碼
 
E-Home公司在〔廣州.北京.杭州.上海〕都設有分店,
每周各店會將所發出的會員卡〔起始號碼〕及〔結束號碼〕傳回公司,
會員編號以一個〔英文碼〕及4~8位數字組成,且號碼不會有重覆。
 
希望在 E3 寫一公式,可右拉下拉列出各分店的會員卡連續號碼,
當公司人員在A3:C15逐一輸入時,可逐步顯示結果,且不出現錯誤值。

 
A0212-01.gif

~~純公式.一式完成~~  
請各位高手不吝指教,提供智慧結晶供後進觀摩學習,
公式長短及版本不拘(2007以上版本恕無法驗證),
鮮花有限,若有遺漏請包涵!
 
參考附件:

TT20170212-01.rar (2.36 KB, 下载次数: 41)

=========================
<結語>
__本題看似複雜,但其〔不重覆〕編碼是可突破的,
  而且只要平常思路即可解決,以下是個人的〔冷盤〕及〔家常菜〕:
1:=IF(E2="","",IF(OR(ROW()=3,$C$3:$C$15=E2),INDEX($B:$B,SMALL(IF($A$3:$A$15=E$2,ROW($3:$15),4^8),SUM(COUNTIF($C:$C,E$2:E2))+1)),LEFT(E2)&MID((1&MID(E2,2,9))+1,2,9))&"")
2:=IF(E2="","",IF(OR(E2=E$2,$C$3:$C$15=E2),INDEX($B:$B,SMALL(IF($A$3:$A$15=E$2,ROW($3:$15),4^8),SUM(COUNTIF($C:$C,E$2:E2))+1)),LEFT(E2)&MID((1&MID(E2,2,9))+1,2,9))&"")
3:=LOOKUP("z",IF({1,0},"",IF(OR(E2=E$2,$C$3:$C$15=E2),VLOOKUP(E$2,OFFSET($A$1,IF(E2=E$2,,MATCH(E2,$C:$C,)),,99,3),2,),LEFT(E2)&MID((1&MID(E2,2,9))+1,2,9))))
4:=LOOKUP("z",IF({1,0},"",IF(OR(E2=E$2,COUNTIF($C$3:$C$15,E2)),VLOOKUP(E$2,OFFSET($A$1,IF(E2=E$2,,MATCH(E2,$C:$C,)),,99,3),2,),LEFT(E2)&MID((1&MID(E2,2,9))+1,2,9))))
 
__接著〔最精華〕的〔海鮮極品〕,是我最想不到的:
13樓:=IF(MAX(MMULT(COUNTIF(E$2:E2,$A$3:$C15),{1;1;-1}))=2,LEFT(E2)&MID((1&MID(E2,2,9))+1,2,9),LOOKUP(,0/FREQUENCY(1,($A$1:$A15=E$2)-COUNTIF(E$2:E2,$C$1:$C15)),$B:$B)&"")
17樓:=LOOKUP("咗",IF({1,0},LEFT(E2)&MID((1&MID(E2,2,9))+1,2,9),INDEX($B:$B,MATCH(2,FREQUENCY({1,2},MMULT(COUNTIF(E$2:E2,$A$1:$C15),{2;-1;-1})),))&""))
17樓:=IFNA(INDEX($B:$B,MATCH(2,FREQUENCY({1,2},MMULT(COUNTIF(E$2:E2,$A$1:$C15),{2;-1;-1})),)),LEFT(E2)&MID((1&MID(E2,2,9))+1,2,9))&""
19樓:=LOOKUP("咗",CHOOSE(FREQUENCY({1,2},MMULT(COUNTIF(E$2:E2,$A$1:$C15),{2;-1;-1})),LEFT(E2)&MID((1&MID(E2,2,9))+1,2,9),$B$1:$B16&""))
***19樓公式是〔神來之手〕,望之莫及~~
 
__還有.piny版主的進階式:
=IF(-1^SUM(COUNTIF(E$2:E2,$B$3:$C15))+1,LOOKUP(,0/FREQUENCY(1,($A$1:$A15=E$2)-COUNTIF(E$2:E2,$C$1:$C15)),$B:$B)&"",LEFT(E2)&MID((1&MID(E2,2,9))+1,2,9))

~~謝謝各位.獲益良多~~
 
 

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-2-12 20:50 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
這論壇何時可開放以自己擁有的花送人, 而不僅限預設那少得可憐的幾朵?
真是~~
有心送花空折枝,無奈得解沒花簇


TA的精华主题

TA的得分主题

发表于 2017-2-12 21:41 | 显示全部楼层
  1. =IF(ROW(A1)>SUM(IF(E$2=$A$3:$A$15,REPLACE($C$3:$C$15,1,1,"")-REPLACE($B$3:$B$15,1,1,"")+1)),"",CHAR(LEFT(SMALL(IF(IF(E$2=$A$3:$A$15,CODE($B$3:$B$15)&REPLACE($B$3:$B$15,1,1,""))+COLUMN($A$1:$AZ$1)-1<=1*IF(E$2=$A$3:$A$15,CODE($C$3:$C$15)&REPLACE($C$3:$C$15,1,1,"")),IF(E$2=$A$3:$A$15,CODE($B$3:$B$15)&REPLACE($B$3:$B$15,1,1,""))+COLUMN($A$1:$AZ$1)-1),ROW(A1)+13-SUM(1*($A$3:$A$15=E$2))),2))&REPLACE(SMALL(IF(IF(E$2=$A$3:$A$15,CODE($B$3:$B$15)&REPLACE($B$3:$B$15,1,1,""))+COLUMN($A$1:$AZ$1)-1<=1*IF(E$2=$A$3:$A$15,CODE($C$3:$C$15)&REPLACE($C$3:$C$15,1,1,"")),IF(E$2=$A$3:$A$15,CODE($B$3:$B$15)&REPLACE($B$3:$B$15,1,1,""))+COLUMN($A$1:$AZ$1)-1),ROW(A1)+13-SUM(1*($A$3:$A$15=E$2))),1,2,""))
复制代码

拼凑出来的公式,顺序有点不一样
如果07及以上版本应该可以更简单些。。

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-2-12 21:54 | 显示全部楼层
xwcxks48 发表于 2017-2-12 21:41
拼凑出来的公式,顺序有点不一样
如果07及以上版本应该可以更简单些。。

好在可以在2003中順利驗證,
感謝不吝提供貴解!!

TA的精华主题

TA的得分主题

发表于 2017-2-12 22:13 | 显示全部楼层
本帖最后由 丢丢表格 于 2017-2-12 22:16 编辑

AV=SMALL(IF(COLUMN(Sheet1!$A:$X)<(Sheet1!$A$3:$A$9=Sheet1!E$2)*(MMULT(-MID(Sheet1!$B$3:$C$9,2,9),{1;-1})+2),ROW(Sheet1!$3:$9)*100+COLUMN(Sheet1!$A:$X)-1),ROW(Sheet1!A1))

=IFERROR(LEFT(INDEX($B:$B,av%))&MID((1&MID(INDEX($B:$B,av%),2,9))+RIGHT(av,2),2,9),"")

qqp.zip

10.15 KB, 下载次数: 3

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2017-2-12 22:29 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
=IF(COUNTIF($A$3:$A$15,E$2)*(ROW(A1)<=SUM((MMULT(--(0&MID($B$3:$C$15,2,100)),{-1;1})+1)*($A$3:$A$15=E$2))),LOOKUP(ROW(A1),MMULT(N(ROW($3:$15)>COLUMN($C:$O)),(MMULT(--(0&MID($B$3:$C$15,2,100)),{-1;1})+1)*($A$3:$A$15=E$2))+1,LOOKUP(ROW($3:$15),IF($A$3:$A$15=E$2,ROW($3:$15)),LEFT($B$3:$B$15)&TEXT(MID($B$3:$B$15,2,10)+ROW(A1)-LOOKUP(ROW(A1),MMULT(N(ROW($3:$15)>COLUMN($C:$O)),(MMULT(--(0&MID($B$3:$C$15,2,100)),{-1;1})+1)*($A$3:$A$15=E$2))+1),REPT(0,LEN($B$3:$B$15)-1)))),"")

评分

2

查看全部评分

TA的精华主题

TA的得分主题

发表于 2017-2-12 22:34 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
感觉很麻烦,耗时30分钟
1.png

TA的精华主题

TA的得分主题

发表于 2017-2-12 22:39 | 显示全部楼层
缩短一点=IF(COUNTIF($A$3:$A$15,E$2)*(ROW(A1)<=SUM((MMULT(--(0&MID($B$3:$C$15,2,100)),{-1;1})+1)*($A$3:$A$15=E$2))),LOOKUP(ROW(A1),MMULT(N(ROW($3:$15)>COLUMN($C:$O)),(MMULT(--(0&MID($B$3:$C$15,2,100)),{-1;1})+1)*($A$3:$A$15=E$2))+1,LEFT($B$3:$B$15)&TEXT(MID($B$3:$B$15,2,10)+ROW(A1)-LOOKUP(ROW(A1),MMULT(N(ROW($3:$15)>COLUMN($C:$O)),(MMULT(--(0&MID($B$3:$C$15,2,100)),{-1;1})+1)*($A$3:$A$15=E$2))+1),REPT(0,LEN($B$3:$B$15)-1))),"")

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2017-2-12 22:48 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 sqrall900 于 2017-2-12 23:30 编辑

再缩短
  1. =IF(COUNTIF($A$3:$A$15,E$2)*(ROW(A1)<=SUM((MMULT(--(0&MID($B$3:$C$15,2,100)),{-1;1})+1)*($A$3:$A$15=E$2))),LOOKUP(ROW(A1),MMULT(N(ROW($3:$15)>COLUMN($C:$O)),(MMULT(--(0&MID($B$3:$C$15,2,100)),{-1;1})+1)*($A$3:$A$15=E$2))+1,REPLACE((1&MID($B$3:$B$15,2,10))+ROW(A1)-COUNTIF(E$2:E2,"<>"&LEFT($B$3:$B$15,3)&"*"),1,1,LEFT($B$3:$B$15))),"")
复制代码

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-2-12 23:07 | 显示全部楼层
本帖最后由 准提部林 于 2017-2-12 23:09 编辑
丢丢表格 发表于 2017-2-12 22:13
AV=SMALL(IF(COLUMN(Sheet1!$A:$X)


哈! 無法驗證, 有勞其他大大,
感謝參與!!

鮮花剛撒種子, 明天開再送!!


您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-4-24 03:58 , Processed in 0.040175 second(s), 13 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表