[第134期]数据整理（已总结）

象山海鲜

一、题目说明：       见问题描述及详细说明，若有不解，请参照结果示例。

二、答题要求：       1、纯函数题目，除录入公式外，不允许其他任何操作。               2、禁止使用常量数组或CHOOSE构成的类似常量数组。               3、每题仅可用一个公式解答，向下填充或用区域数组。               4、仅接受 Microsoft Office 2013 及以下版本答案，代码模式提交。

三、评分规则：       1、第一题，小于130字符（含等号）得技术2分,小于150得技术分1分。               2、第二题，小于130字符（含等号）得技术1分，结果文本或数值均可。               3、两题任选，以得分最高的题为准。

四、竞赛日期：       2022-5-14至2022-6-5

dim麻辣君

题目一算了先弄个无脑的

1. =SUBSTITUTE(SUBSTITUTE(TEXT(,SUBSTITUTE(TEXT(,SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A6,"+",",+"),"-",",-"),"*",",A"),"/",",C")),",","*")),"A","*"),"C","/")

复制代码

题目二

1. =SUM(MOD(IMREAL(IMDIV(TEXT(2-COLUMN(A:C),SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(B6:B8,"*","+"),"/","+"),"+","i;")&"i"),"-1-i"))*2,1))

复制代码

静听溪流

第一题：

1. =TEXT(,SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A6,"/","\/\"),"+","\+\"),"-","\-\"),"*","\*\"),"\\","*"))

复制代码

=TEXT(,SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A6,"/","\/\"),"+","\+\"),"-","\-\"),"*","\*\"),"\\","*"))

第二题：

1. =SUM(MOD(-2*IMREAL(IMDIV(MID(TRIM(MID(SUBSTITUTE(".."&ENCODEURL(B6:B8),"%",REPT(" ",99)),{1,2,3}*99-98,99)),3,99)&"i","1+i")),1))

复制代码

1. =SUM(MOD(-2*IMREAL(IMDIV(MID(TEXT(COLUMN(A:C)-2,""".."&SUBSTITUTE(ENCODEURL(B6:B8),"%","i"";""")&"i"""),3,99),"1+i")),1))

复制代码

cjc209

自定义函数解决
=CONCAT(正则提取(A6,"[-+/.*][.]\d+[\.\d]*|\d+[\.\d]*|[-+/.*]\d+[\.\d]*"))
Function 正则提取(rng, 表达式)
    Dim brr(), arr
    Set regx = CreateObject("vbscript.regexp")
    If TypeName(rng) = "Range" Then
        arr = rng.Value
        If Not IsArray(arr) Then
            ReDim arr(1 To 1, 1 To 1)
            arr(1, 1) = rng.Value
        End If
        k = 0
        With regx
            .Global = True
            .Pattern = 表达式
            For i = 1 To UBound(arr)
                For j = 1 To UBound(arr, 2)
                    x = arr(i, j)
                    Set matches = .Execute(x)
                    For Each aa In matches
                        js = aa.SubMatches.Count
                        If js Then
                            For Each r In aa.SubMatches
                                k = k + 1
                                ReDim Preserve brr(1 To k)
                                brr(k) = r
                            Next
                        Else
                            k = k + 1
                            ReDim Preserve brr(1 To k)
                            brr(k) = aa
                        End If
                    Next
                Next
            Next
        End With
    Else
        k = 0
        With regx
            .Global = True
            .Pattern = 表达式
            arr = rng
            Set matches = .Execute(arr(1))
            For Each aa In matches
                js = aa.SubMatches.Count
                If js Then
                    For Each r In aa.SubMatches
                        k = k + 1
                        ReDim Preserve brr(1 To k)
                        brr(k) = r
                    Next
                Else
                    k = k + 1
                    ReDim Preserve brr(1 To k)
                    brr(k) = aa
                End If
            Next
        End With
    End If
    正则提取 = brr
End Function

问山

130或150个字符的要求
直接废了我的绝招
本来SUBSTITUTE替代四次就OK了

jivy1212

1. =SUM(MOD(-IMREAL(IMDIV(MID(TEXT(COLUMN(A:C)-2,""""&SUBSTITUTE(ENCODEURL(11&B6:B8),"%","i"";""")&"""i"),3,66),"1+i"))*2,1))

复制代码

这是题二的，题一怎么个应用太难了

晨光晞微

1. =TEXT(SUM(MOD(-IMREAL(IMDIV(MID(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(B6:B8,"+","*"),"/","*"),"*",REPT(" ",99)),COLUMN(A:C)*99-98,99)&"i","1+i"))*2,1)),"[h]:m:s")

复制代码

Meteor-渣渣

厚颜无耻的先占个楼

想了几天，都没想到合适的思路，只能第二题先开个火车

1. =SUM(MOD(TRIM(MID(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(B6:B8,"+","-"),"*","-"),"/","-"),"-",REPT(" ",99)),COLUMN(A:C)*2*99-98,99))+1-TRIM(MID(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(B6:B8,"+","-"),"*","-"),"/","-"),"-",REPT(" ",99)),(COLUMN(A:C)*2-1)*99-98,99)),1))

复制代码

灵光一闪，第一题解出来了，虽然还没进150字符

1. =SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(A6,"-"," "))," ","-"),"+"," "))," ","+"),"*"," "))," ","*"),"/"," "))," ","/")

复制代码

补充内容 (2022-5-26 22:00):
题目一
=SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(A6,"+"," "),"-","　"))," ","+"),"　","-"),"*","　"),"/"," ")),"　","*")," ","/")
175字符

补充内容 (2022-5-26 22:00):
题目二
=SUM(MOD(1-IMREAL(IMDIV(TEXT(2-COLUMN(A:C),SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(B6:B8,"+",";"),"*",";"),"/",";"))&"j","1+j"))*2,1))
127字符

补充内容 (2022-5-26 22:05):

1. =SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(A6,"+"," "),"-","　"))," ","+"),"　","-"),"*","　"),"/"," ")),"　","*")," ","/")[code]
3. [b]补充内容 (2022-5-26 22:06):[/b]
4. 题目1
   
5. [code]=SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(A6,"+"," "),"-","　"))," ","+"),"　","-"),"*","　"),"/"," ")),"　","*")," ","/")

复制代码

补充内容 (2022-5-26 22:07):
题目1

1. =SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(A6,"+"," "),"-","　"))," ","+"),"　","-"),"*","　"),"/"," ")),"　","*")," ","/")

复制代码

补充内容 (2022-5-26 22:07):
题目2

1. =SUM(MOD(1-IMREAL(IMDIV(TEXT(2-COLUMN(A:C),SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(B6:B8,"+",";"),"*",";"),"/",";"))&"j","1+j"))*2,1))

复制代码

补充内容 (2022-5-26 22:08):
超过7天再编辑真的是太难了

一步001

第一题答案 c6=CONCAT(IF(MID(A6,ROW($1:$90),1)=MID("?"&A6,ROW($1:$90),1),IF(ISNUMBER(--MID(A6,ROW($1:$90),1)),MID(A6,ROW($1:$90),1),""),MID(A6,ROW($1:$90),1)))  下拉  

swyrlbq

问题一
原以为TEXTJOIN是16版函数，CONCAT是13版函数，于是有了公式，

1. =CONCAT(IF((MID(A6,ROW($1:$35),1)<>MID(A6,ROW($2:$36),1))+(CODE(MID(A6,ROW($1:$35),1))>47),MID(A6,ROW($1:$35),1),""))

复制代码

因公式简单，怀疑CONCAT不是13版函数，经过查询，的确如此。
帖子发了，删除不了。继续探究吧。
想到13版前函数，用常规方法似乎无法实现，于是想到用迭代计算的方法。在365平台下，通过反复探索修改，测试成功。

先设置启用迭代计算，100次，输入公式

1. =IF(C6="00",LEFT(" "&A6,3),C6&MID(A6,SMALL(IF(MMULT(N(SUBSTITUTE(MID(A6,ROW($1:35)+{0,1},1),".",0)<"0"),{1;1})=2,99,ROW($1:35)),LEN(C6)),1))

复制代码

找个07版验证，不运算，多次寻找原因，似乎07版迭代计算不支持数组运算。
还想找个13版试验，安装卸载太麻烦，只好放弃。

又想探究问题2
搞出的公式，实在离要求太远，再没有思路优化了

1. =SUM(MOD(MMULT(SMALL(IF(MID(SUBSTITUTE("/"&B6,".",0),ROW($1:40),1)<"0",ROW($1:40)+IFERROR(MID(B6,ROW($1:40),COLUMN(A:I))/1,)),({1;3;5}+{0,1})*9),{-1;1}),1))

复制代码

虽然两个问题都不能及格，但是参与也就是学习，期待大佬的杰作。