如何扩展数据区域

季恩

hugeinfo

=TEXTJOIN(",",,DROP(REDUCE("",SUBSTITUTE(TEXTSPLIT(A2,,","),"-",":"),LAMBDA(x,y,VSTACK(x,ROW(INDIRECT(TEXTJOIN(":",,"a"&TEXTSPLIT(y,":",))))))),1))

jivy1212

1. https://club.excelhome.net/thread-1566479-1-1.html?_dsign=cce85ab5

复制代码

Meteor-渣渣

拿人家做题群的题目来论坛问的目的是什么呢？
好歹尊重一下出题人以及参与者

ww87725244

Meteor-渣渣 发表于 2024-9-23 10:59
拿人家做题群的题目来论坛问的目的是什么呢？
好歹尊重一下出题人以及参与者

白嫖的方式有很多种

Meteor-渣渣

ww87725244 发表于 2024-9-23 11:13
白嫖的方式有很多种

这个做题群的答案都是第二天就发，就没想通如何急不可待是为何

hxj119

1. =TEXTJOIN(",",,SORT(DROP(REDUCE("",TEXTSPLIT(A1,","),LAMBDA(x,y,VSTACK(x,IFERROR(ROW(INDIRECT(SUBSTITUTE(y,"-",":"))),y/1)))),1)))

复制代码

yuppice

我就不告诉你答案，

zhangcheng6688

学习一下数组
Sub test()
arr = [a1].CurrentRegion
For i = 2 To UBound(arr)
   s = Split(arr(i, 1), ",")
   For j = 0 To UBound(s)
      If InStr(s(j), "-") > 0 Then
         For k = Split(s(j), "-")(0) To Split(s(j), "-")(1)
            arr(i, 2) = arr(i, 2) & "," & k
         Next
      ElseIf InStr(s(j), ":") > 0 Then
         For k = Split(s(j), ":")(0) To Split(s(j), ":")(1)
            arr(i, 2) = arr(i, 2) & "," & k
         Next
      Else
         arr(i, 2) = arr(i, 2) & "," & s(j)
     End If
   Next
   arr(i, 2) = Mid(arr(i, 2), 2)
Next
[a1].CurrentRegion = arr
End Sub

你是那块小饼干

1. =REDUCE("",TEXTSPLIT(A1,,",",TRUE),LAMBDA(X,Y,LET(T,REGEXP(Y,"\d+")*1,TEXTJOIN(",",1,VSTACK(X,SEQUENCE(SUM(T*{-1,1},1),,INDEX(T,1),1))))))

复制代码