数字组合填充公式，请老师帮忙看下谢谢

13756108123 · 发表于 2024-10-1 22:23

求助问题如图，请老师帮忙看下

无关岁月 · 发表于 2024-10-1 22:38

=LET(_a,SEQUENCE(LEN(A2)),_b,MID(A2,_a,1),TOROW(IF(_a<TOROW(_a),_b&TOROW(_b),x),2))

复制代码

leepoison · 发表于 2024-10-2 00:10

=TRANSPOSE(LET(b,REGEXP(A2,"."),a,TOCOL(b&TRANSPOSE(b)),FILTER(a,LEFT(a,1)<RIGHT(a,1))))

13756108123 · 发表于 2024-10-2 09:03

无关岁月发表于 2024-10-1 22:38

老师如果是改变一下，这样的方式需要怎么修改下公式呢

无关岁月 · 发表于 2024-10-2 09:33

13756108123 发表于 2024-10-2 09:03
老师如果是改变一下，这样的方式需要怎么修改下公式呢

=LET(_a,SEQUENCE(LEN(A2)),_b,MID(A2,_a,1),TOROW(TOROW(IF(_a<TOROW(_a),_b&TOROW(_b),x),2)+{0;0},,1))

复制代码

13756108123 · 发表于 2024-10-2 10:15

老师我输入您第二次修改的公式后为什么会出现下边的状况呢，请问是我单元格哪里设置不对吗？麻烦指点一下

zhangcheng6688 · 发表于 2024-10-2 10:18

学习一下数组
Sub test()
Arr = [a2].CurrentRegion
ReDim brr(1 To UBound(Arr), 1 To 10000)
For i = 1 To UBound(Arr)
For j = 1 To Len(Arr(i, 1))
   For k = j + 1 To Len(Arr(i, 1))
      c = c + 1
      brr(i, c) = Mid(Arr(i, 1), j, 1) & Mid(Arr(i, 1), k, 1)
   Next
Next
c = 0
Next
[c2].Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub

13756108123 · 发表于 2024-10-2 10:33

13756108123 发表于 2024-10-2 10:15
老师我输入您第二次修改的公式后为什么会出现下边的状况呢，请问是我单元格哪里设置不对吗？麻烦指点一下

这个公式，是不是数字0不能放在第一位呢

无关岁月 · 发表于 2024-10-2 10:45

13756108123 发表于 2024-10-2 10:15
老师我输入您第二次修改的公式后为什么会出现下边的状况呢，请问是我单元格哪里设置不对吗？麻烦指点一下

=LET(_a,SEQUENCE(LEN(A2)),_b,MID(A2,_a,1),TOROW(TEXT(TOROW(IF(_a<TOROW(_a),_b&TOROW(_b),x),2)+{0;0},"00"),,1))

复制代码

你是那块小饼干 · 发表于 2024-10-2 15:50

=REDUCE("",SEQUENCE(LEN(A2)),LAMBDA(X,Y,LET(T,MID(A2,SEQUENCE(LEN(A2)),1),TOROW(VSTACK(X,IFERROR(INDEX(T,Y)&DROP(T,Y),"")),3))))

		自动登录	找回密码
密码			免费注册

[求助] 数字组合填充公式，请老师帮忙看下谢谢

评分

评分

[求助] 数字组合填充公式，请老师帮忙看下 谢谢

评分

评分

[求助] 数字组合填充公式，请老师帮忙看下谢谢