能否把公式A2+B2或者A222+B222精简为A+B便于核对？

路校风

2024-8-5
工作中需要核对各车间报送的数据是否正确，特别是合计等公式。各车间里各产品的合计方法又有所不同，无法直接用第一行的公式下拉套用。


我现在是用替换功能删除公式里的等号，再复制到Word里，用通配符把数字替换删除（此法会将0.8删除，且此处不确定是0.8还是0.7，想保留着它）。最后复制回表格，筛选进行观察。

想寻求一种方法，能把A2+B2*0.8或者A222+B222*0.8精简为A+B*0.8从而便于核对,且不误伤*0.8。不限于VBA、Word之类的，或者经过多个步骤能达到此目的。
最后简化为文本即可，行次不变，我再放原表格里，筛选出来不一致的，逐条处理。

2024-8-6
感谢大家提供的函数公式，使用复杂合计公式进行了测试，已更新附件。

jerrike

1. =TEXTJOIN("+",,REGEXP(FORMULATEXT(E2),"[A-Z]+"))&"*"&TEXTAFTER(FORMULATEXT(E2),"*")

复制代码

hxj119

不明白的路过，看似很清楚，但合计列是公式还是这样的文本？，你是简化显示文本还是简化公式？

qwer401245

=REGEXP(FORMULATEXT(E2),"[A-Z]\K\d+",2)

inrever

1. =MAP(FORMULATEXT(E2:E15),LAMBDA(n,REGEXP(n,"=|(?<=[A-Z])[0-9]+",2,"")))

复制代码

路校风

hxj119 发表于 2024-8-5 15:16
不明白的路过，看似很清楚，但合计列是公式还是这样的文本？，你是简化显示文本还是简化公式？

最后简化为文本即可，行次不变，我再放原表格里，筛选出来不一致的，逐条处理。

hxj119

参考公式：=REGEXP(D1,"(?<=[A-Z])\d+",2,"")
更新公式：=REGEXP(FORMULATEXT(C1),"(?<=[A-Z])\d+",2,"")

ww87725244

=REGEXREPLACE(FORMULATEXT(E2),"=|(?<=[A-Z])\d+","")

ww87725244

或者VBA

1. Sub aa()
   
2. Dim rng
   
3. For Each rng In Sheet1.[e2].Resize(Sheet1.UsedRange.Rows.Count)
   
4.   rng.Offset(0, 1) = Replace(Replace(rng.Formula, "=", ""), rng.Row, "")
   
5. Next
   
6. End Sub

复制代码

悠扬的旋律

正则 替换