求助大神，怎么提取一行单元格中不连续数值区间的上下限先

yileida

求大神解决，上传的示例工作表中，C1:AG1中有不连续的几段数值，怎么在A1单元格中提取显示各段数值分别的上下限。函数公式或者VBA解决都可以，感谢大家帮忙解决。

良良

=TEXTJOIN("，",,TEXTSPLIT(TRIM(CONCAT(IFERROR(MID(" - ",3-MMULT({1,2},COUNTIF(C1:AG1,C1:AG1+{-1;1}%%)),1)&1/C1:AG1^-1/1%&"%",""))),," "))

魚。。

1. =SUBSTITUTE(TRIM(SUBSTITUTE(CONCAT(TEXT(C1:AG1,IF(B1:AF1,IF(C1:AG1,IF(D1:AH1,";","-0.##%")," ;"),IF(C1:AG1,"0.##%",";")))),".%","%"))," ","，")

复制代码

hugeinfo

一火车   =TEXTJOIN(",",,BYROW(LET(a,IFERROR(--TEXTSPLIT(TEXTJOIN(",",0,IF(C1:AG1<>"",C1:AG1,";")),",",";",TRUE,,""),""),b,TAKE(a,,1),c,BYROW(a,LAMBDA(x,MAX(x))),CHOOSE({1,2},b,IF(b=c,"",c))),LAMBDA(y,TEXTJOIN("-",,y))))

yileida

良良 发表于 2024-5-6 18:04
=TEXTJOIN("，",,TEXTSPLIT(TRIM(CONCAT(IFERROR(MID(" - ",3-MMULT({1,2},COUNTIF(C1:AG1,C1:AG1+{-1;1}%% ...

谢谢帮助，我试了下，貌似不行，出现#NAME？错误

yileida

魚。。 发表于 2024-5-6 18:10

感谢帮助，输入代码，三键回车解决问题了，不过公式的原理我还不懂，我自己先研究下那几个函数。还有个不情之请，就是这个函数公式怎么转化下能用在VBA代码里呢，能不能帮我解惑下，感谢了。

yileida

hugeinfo 发表于 2024-5-7 07:40
一火车   =TEXTJOIN(",",,BYROW(LET(a,IFERROR(--TEXTSPLIT(TEXTJOIN(",",0,IF(C1:AG1"",C1:AG1,";")),"," ...

感谢帮助，但是提示公式有问题，定位在公式“TAKE(a,,1),c”  的c上面，不知道什么原因。

hugeinfo

yileida 发表于 2024-5-7 10:16
感谢帮助，但是提示公式有问题，定位在公式“TAKE(a,,1),c”  的c上面，不知道什么原因。

应该是版的事  使用365或者最新版本的wps

魚。。

yileida 发表于 2024-5-7 10:13
感谢帮助，输入代码，三键回车解决问题了，不过公式的原理我还不懂，我自己先研究下那几个函数。还有个不 ...

代码可以这样写：

1. Sub Fish()
   
2.     Dim aa, i&
   
3.     Dim Vstr$
   
4.    
   
5.     aa = Range("b1:ah1")
   
6.    
   
7.     For i = 2 To UBound(aa, 2) - 1
   
8.         If aa(1, i) <> "" Then
   
9.             If aa(1, i - 1) = "" And aa(1, i + 1) = "" Then
   
10.                 Vstr = Vstr & "，" & aa(1, i) * 100 & "%"
    
11.                 i = i + 1
    
12.             ElseIf aa(1, i - 1) = "" And aa(1, i + 1) > 0 Then
    
13.                 Vstr = Vstr & "，" & aa(1, i) * 100 & "%-"
    
14.             ElseIf aa(1, i - 1) > 0 And aa(1, i + 1) = "" Then
    
15.                 Vstr = Vstr & aa(1, i) * 100 & "%"
    
16.             End If
    
17.         End If
    
18.     Next
    
19.    
    
20.     [a1] = Mid(Vstr, 2)
    
21. End Sub

复制代码

然后根据自己的情况，可以把数据区域写灵活一点

yileida

hugeinfo 发表于 2024-5-7 10:24
应该是版的事  使用365或者最新版本的wps

好的，感谢帮助。