ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > E问E答 > 函数与公式 > 如何分别提取一组3位编码的最大数字并重新组合?

如何分别提取一组3位编码的最大数字并重新组合?

作者:绿色风 分类: 时间:2022-08-17 浏览:120
楼主
wjc2090742
Q:如何分别提取一组3位编码的最大数字并重新组合?如下图,A列到O列,是一组由3位数字组成的编码,现要求提取其中每个编码的最大数字,并连接成新的编码在P列。如何实现?

 

A:使用下面的数组公式:
  1. =TEXT(SUM(RIGHT(LARGE(MID(A2:O2,{1;2;3},1)+COLUMN(A:O)*100,3*ROW($1:$15)-2))*10^(ROW($1:$15)-1)),REPT(0,15))

如何提取一组3位数字的最大数字并重新组合?.rar
2楼
piny
感謝wjc2090742 版主告知,下式皆僅適用B2不為000

可以再簡化5至10字元

103字元        
=IF(0-A2,,0)&SUM(RIGHT(LARGE(MID(A2:O2,{1;2;3},1)+COLUMN(A:O)*100,3*ROW($1:$15)-2))*10^(ROW($1:$15)-1))

==============================================================

100字元        
=IF(0-A2,,0)&SUM(RIGHT(LARGE(MID(A2:O2,{1;2;3},1)+COLUMN(A:O)*100,3*ROW($1:$15)-2))*10^ROW($2:$16))%

==============================================================

99字元        
=IF(-A2,,0)&SUM(RIGHT(LARGE(MID(A2:O2,{1;2;3},1)+COLUMN(A:O)*100,3*ROW($1:$15)-2))*10^ROW($2:$16))%

==============================================================

98字元
=IF(-A2,,0)&SUM(RIGHT(LARGE(MID(A2:O2,{1;2;3},1)+COLUMN(A:O)/1%,3*ROW($1:$15)-2))*10^ROW($2:$16))%
3楼
wjc2090742



下面情况出错。


 
4楼
piny
謝謝告知 一時忘了B2也可能是000 哈  全部思緒重來 ^^

104字元
=TEXT(SUM(RIGHT(LARGE(MID(A2:O2,{1;2;3},1)+COLUMN(A:O)/1%,3*ROW($1:$15)-2))*10^ROW($2:$16))%,REPT(0,15))

====================================================================================

101字元
=MID(SUM(RIGHT(LARGE(MID(A2:O2,{1;2;3},1)+COLUMN(A:O)/1%,3*ROW($1:$15)-2))/10^(17-ROW($1:$15))),4,15)

====================================================================================

94字元
=MID(SUM(RIGHT(SMALL(MID(A2:O2,{1;2;3},1)+COLUMN(A:O)/1%,3*ROW($1:$15)))/10^ROW($2:$16)),4,15)
5楼
wjc2090742
只是写法的话,下面的还会短1个、2个。应对O列不是000的情况。1楼的比较直接,也算好套用吧。
  1. =RIGHT(SUM(RIGHT(SMALL(MID(A2:O2,{1;2;3},1)+COLUMN(A:O)/1%,3*ROW($1:$15)))/10^ROW(1:15)),15)
6楼
wqfzqgk
自定义函数,不分单元格有几位数,代码如下:
  1. Function tests(rngg As Range)
  2. Dim rng As Range
  3. For Each rng In rngg
  4. Set d = CreateObject("scripting.dictionary")
  5. arr = rng.Value
  6. For i = 1 To Len(rng)
  7. d(CByte(Mid(arr, i, 1))) = ""
  8. Next
  9. tests = tests & Application.WorksheetFunction.Max(d.keys)
  10. Set d = Nothing
  11. Next
  12. End Function
7楼
wjc2090742
不错不错,piny兄指点之下,公式写短了不少,这是件痛快事,也可见我写帖还不够较真。也多谢止水兄,这代码刚好参照着公式的思路学习。
8楼
悟空师弟
,实践出真知,交流才是硬道理!

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap