学前班算术练习~~~题很简单，每个人都会做，就看谁最短小~~~结贴~~~~ ...

江信一

=ABS(SUM(FILTERXML("<a><b>"&TEXTJOIN("</b><b>",,IFERROR(--MID(IF(LEN(CONCAT(IFERROR(--MID(A2,ROW($1:$99),1),"")))=1,A2&0,A2),ROW($1:$99),1),""))&"</b></a>","//b[not(preceding::b=.)][not(.<../b) or not(.>../b)]")*{-1;1}))

添加一组filterxml火车公式吧~~~~

盘古开天

谢谢，完全正确~~~

白小浪

简化一点点。。。
=LEN(-("."&--CONCAT(1-ISERR(FIND(ROW($1:$10)-1,A2&IF(COUNT(-MID(A2,ROW($1:99),1))=1,0))))))-4

北海姚仔

少了7个字符呢~~~

诡异复苏

=SUM(SMALL(IFERROR(-MID(A2,ROW($1:99),1),),MAX(2,COUNT(-MID(A2,ROW($1:99),1)))^{0,1})*{-1,1})
另一个思路

神秘使者

Sub lll()

  Dim rng As Range
  Dim arr()
  Dim i As Integer
  Dim k, m
  
  Set rex = CreateObject("VbScript.regexp")
  For Each rng In Range("a2:a10")
  With rex
    .Global = True
    .IgnoreCase = True
    .Pattern = "[0-9]"
    For i = 0 To .Execute(rng).Count - 1
      ReDim Preserve arr(1 To i + 1)
      arr(i + 1) = .Execute(rng)(i) * 1
    Next
    k = Application.WorksheetFunction.Max(arr)
    m = Application.WorksheetFunction.Min(arr)
    If .Execute(rng).Count <> 1 Then
      rng.Offset(0, 3) = k - m
    Else
      rng.Offset(0, 3) = k
    End If
  End With
  Next
End Sub
学前班算术练习.zip (18.65 KB, 下载次数: 15)

2021-10-25 11:47 上传

点击文件名下载附件
学前班算术练习.zip

萝呗

崇拜VBA大神～～～花花后补！

中木

没有到大家的奇思妙想层出不穷~~~
又有三秋之叶大佬的FIND()长度判定法和江山社稷大佬的一个SMALL同时取出最大最小值的方法~~~
大佬们大显身手，真的是精彩纷呈~~~谢谢各位大佬~~~~

大拙

=MAX(MMULT(IFERROR(AGGREGATE({15,14},2,-MID(A2,ROW($1:99),1),{1,1;1,2}),),{-1;1}))
不知道一样不

希希乖宝贝

厉害，果然是一样，你上个公式我就觉得差不多了