ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[讨论] 划分字母区间(已结贴)

[复制链接]

TA的精华主题

TA的得分主题

发表于 2023-8-16 15:33 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 shaowu459 于 2023-8-24 16:18 编辑

图片.png


图片.jpg

划分字母区间.rar

14.77 KB, 下载次数: 107

评分

14

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-8-16 15:44 | 显示全部楼层
本帖最后由 shaowu459 于 2023-8-17 16:02 编辑

注意:

本帖无法设置回复的公式仅作者可见,发送的公式所有人均可见。所以请在答题期间内自主选择提交公式的时间。

TA的精华主题

TA的得分主题

发表于 2023-8-16 18:53 | 显示全部楼层
  1. =EXPAND(DROP(REDUCE(A2,ROW($1:88),LAMBDA(x,y,LET(b,MID(A2,1,y),IF(OR(MAP(MID(b,SEQUENCE(y),1),LAMBDA(t,ISNUMBER(FIND(t,MID(A2,y+1,99)))))),x,VSTACK(x,IFERROR(TEXTSPLIT(b,IF(ROWS(x)=1,x,DROP(x,1)),,1),A2)))))),1),10,,"")
复制代码
image.png

评分

9

查看全部评分

TA的精华主题

TA的得分主题

发表于 2023-8-16 21:07 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2023-8-16 21:48 | 显示全部楼层
  1. =EXPAND(DROP(REDUCE({1;1},ROW($1:88),LAMBDA(x,y,LET(b,MID(A2,1,y),IF(COUNT(FIND(MID(b,SEQUENCE(y),1),MID(A2,y+1,99)))>0,x,VSTACK(x,IFERROR(TEXTSPLIT(b,DROP(x,1),,1),A2)))))),2),10,,"")
复制代码
image.jpg

评分

3

查看全部评分

TA的精华主题

TA的得分主题

发表于 2023-8-16 22:24 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2023-8-17 09:43 | 显示全部楼层
本帖最后由 丢丢表格 于 2023-8-17 16:42 编辑

写个低版本的公式:


=MID(LEFT(A$2,SMALL(IF(MMULT(MOD(SMALL(FIND(LEFT(MID(A$2,ROW($1:$40),1)&1),A$2&1)%+COLUMN(A:AO)/1%+(ROW($1:$40)>COLUMN(A:AO)),ROW($1:$40)*41-{40,39}),1),{-1;1})>0,ROW($1:$40),44),ROW()-1)),SUM(LEN(B$1:B1))-2,99)


(火车很长,乘客寥寥,浪费不少)


(把 字都打错了,改之)

评分

13

查看全部评分

TA的精华主题

TA的得分主题

发表于 2023-8-17 12:01 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

低版本伤不起头发(其实就是不会),来个365的

本帖最后由 cinlo 于 2023-8-17 12:03 编辑

企业微信截图_16922440263042.png

评分

6

查看全部评分

TA的精华主题

TA的得分主题

发表于 2023-8-17 13:44 | 显示全部楼层
本帖最后由 sucx007 于 2023-8-18 08:32 编辑
  1. =DROP(REDUCE("",ROW(1:99),LAMBDA(x,y,LET(i,SUM(LEN(x)),IF(COUNT(FIND(MID(A2,i+SEQUENCE(y-i),1),A2,y+1)),x,VSTACK(x,MID(A2,i+1,y-i)))))),1)
复制代码
image.png

  1. =EXPAND(DROP(REDUCE("",ROW(1:99),LAMBDA(x,y,LET(i,SUM(LEN(x)),IF(COUNT(FIND(MID(A2,i+SEQUENCE(y-i),1),A2,y+1)),x,VSTACK(x,MID(A2,i+1,y-i)))))),1),99,,"")
复制代码
原来外套expand能处理溢出问题!

点评

需解决刷新产生的溢出问题。  发表于 2023-8-17 13:53

评分

4

查看全部评分

TA的精华主题

TA的得分主题

发表于 2023-8-17 15:42 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
108  下拉。。

  1. =REDUCE(TEXTAFTER(B1&A$2,B1,-1),ROW($1:33),LAMBDA(X,Y,LEFT(X,Y+COUNT(FIND(MID(X,SEQUENCE(Y),1),X,Y+1))*33)))
复制代码


131 溢出

  1. =SCAN(0,A1:A15,LAMBDA(X,Y,REDUCE(TEXTAFTER(X&A2,X,-1),ROW(1:33),LAMBDA(X,Y,LEFT(X,Y+COUNT(FIND(MID(X,SEQUENCE(Y),1),X,Y+1))*33)))))
复制代码


image.png

评分

6

查看全部评分

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

本版积分规则

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

GMT+8, 2025-2-4 02:18 , Processed in 0.039049 second(s), 22 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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