把多余的“加减乘除”去掉

summerlcb

A列黄色区域是计算式，输入的时候有错误，可能多写了“+”“-”“*”“/”。

B列如何写函数，才能把多余的加减乘除去掉，调整为正确的计算式呢？

minchar

觉得基础操作比较好！
选中待调整区域→查找"--"替换"-"多次操作直到找到0个，其它符号类似操作

zyhui1961

1.先把*号换成其他字符
2.把要换的多余的符号二换一换一二换一
3.把*号换回来

gwjkkkkk

用正则，写了自定义函数请试用。。。
Function Replacetxt(txt)
Set reg = CreateObject("VBScript.RegExp")
    With reg
      .Global = True
      .IgnoreCase = True
      .Pattern = "([\+\-\*/])+\1"
      Replacetxt = .Replace(txt, "$1")
    End With
End Function

高个子

复制到word，替换完再复制回Excel

丢丢表格

有 CONCAT 合并字符 函数吗 ？？

=CONCAT(IF(TEXT(MID(A2,ROW($1:$30),1),)=MID(0&A2,ROW($1:$30),1),"",MID(A2,ROW($1:$30),1)))

justdoit2003

丢丢表格 发表于 2022-5-9 16:13
有 CONCAT 合并字符 函数吗 ？？

=CONCAT(IF(TEXT(MID(A2,ROW($1:$30),1),)=MID(0&A2,ROW($1:$30),1 ...

高手，太巧妙了，佩服

yibao2

丢丢表格 发表于 2022-5-9 16:13
有 CONCAT 合并字符 函数吗 ？？

=CONCAT(IF(TEXT(MID(A2,ROW($1:$30),1),)=MID(0&A2,ROW($1:$30),1 ...

这个TEXT出神入化

cjc209

=CONCAT(正则提取(A2,".{0,1}\d+"))

cjc209

Function 正则提取(rng, 表达式)
    Dim brr(), arr
    Set regx = CreateObject("vbscript.regexp")
    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
    正则提取 = brr
End Function