求助一个问题

ryoryo66

我有一些数组公式,挺长的
都是这样形式的,
=IF(OR(($AE135=$CAB$49:$CBN$49)*($AD136=$CAA$50:$CBM$50)*($AE137=$CAB$51:$CBN$51)*($AD138=$CAA$52:$CBM$52)*($AE139=$CAB$53:$CBN$53)*($AD140=$CAA$54:$CBM$54)=1),OFFSET($AM141,,MAX(($AE135=$CAB$49:$CBN$49)*($AD136=$CAA$50:$CBM$50)*($AE137=$CAB$51:$CBN$51)*($AD138=$CAA$52:$CBM$52)*($AE139=$CAB$53:$CBN$53)*($AD140=$CAA$54:$CBM$54)*$CAB$55:$CBN$55)),"")

我想在前面加 IFERROR(,后面加   ,"")
不知道有没有办法批量解决,我用VBA写入,又太长了,写不进去.

风筝那根线

这样呢，你改改试试。
注意保存好原始表格

1. Sub ces()
   
2.     Dim gs As String
   
3.     gs = Cells(3, 2).Formula
   
4.     Cells(3, 2).Formula = "=IFERROR(," & Right(gs, Len(gs) - 1) & "," & Chr(34) & Chr(34) & ")"
   
5. End Sub

复制代码

any1009

公式选项卡里点显示公式，然后就用替换功能就可以了，把 = 替换成 =iferror( ，把 )),"") 替换成 )),"")，""），全部替换，替换完毕后再把显示公式关掉。

cemmm

any1009 发表于 2020-5-15 16:31
公式选项卡里点显示公式，然后就用替换功能就可以了，把 = 替换成 =iferror( ，把 )),"") 替换成 )),"")，" ...

=IF替换成=IFERROR(IF

ryoryo66

any1009 发表于 2020-5-15 16:31
公式选项卡里点显示公式，然后就用替换功能就可以了，把 = 替换成 =iferror( ，把 )),"") 替换成 )),"")，" ...

老师,这样替换不成功啊.
替换开头的,还是说我 括号 不全.
替换后面的,还是语法错误.

any1009

这样，先把 "=" 用替换去掉，然后把 if 替换成 iferror(if ,再把后面的替换掉，最后把 iferror 替换成 =iferror

ryoryo66

any1009 发表于 2020-5-25 16:39
这样，先把 "=" 用替换去掉，然后把 if 替换成 iferror(if ,再把后面的替换掉，最后把 iferror 替换成 =ife ...

谢谢老师,这样可以替换成功.
但是以前是数组公式,替换完就变成了普通的公式,接下来要怎么再把它变回数组?

microyip

获取单元格的公式，可以用.Fomula，然后替换一下即可

ryoryo66

microyip 发表于 2020-5-25 19:41
获取单元格的公式，可以用.Fomula，然后替换一下即可

谢谢老师, 那个公式太长了,获取出来也写不进去啊.

any1009

数组公式不知道怎么替换，用vba就是用.FormulaArray，不过既然用VBA了，就不建议再加公式了，表格里公式多会卡顿，如果公式少，那么就一个个地修改吧