FormulaArray属性出错，请老师们帮忙

mylove60

老师们，我录的两个关于数组的宏，Macro3可以正常运行，但是Macro4不能运行，一直提示无法设置FormulaArrayt属性，请问不能运行的如何解决？

Sub Macro3()

'
' Macro3 Macro
'

'
    Range("A1").Select
    Selection.FormulaArray = _
        "=SUM(IF(COUNTIF($B$4:$B$1008,C5)>1,IF($H$3:$BA$3<>0,IF($B$4:$B$1008=C5,N($H$3:$BA$3<TODAY())*$H$4:$BA$1008)),IF($H$3:$BA$3<>0,N($H$3:$BA$3<TODAY())*OFFSET($H$3:$BA$3,MATCH(C5,$B$4:$B$1008,),))))"
End Sub

Sub Macro4()
'
' Macro4 Macro
'

'
    Range("A1").Select
    Selection.FormulaArray = _
        "=SUM(IF(COUNTIF(Sheet2!$B$4:$B$1008,C5)>1,IF(Sheet2!$H$3:$BA$3<>0,IF(Sheet2!$B$4:$B$1008=C5,N(Sheet2!$H$3:$BA$3<TODAY())*Sheet2!$H$4:$BA$1008)),IF(Sheet2!$H$3:$BA$3<>0,N(Sheet2!$H$3:$BA$3<TODAY())*OFFSET(Sheet2!$H$3:$BA$3,MATCH(C5,Sheet2!$B$4:$B$1008,),))))"
   
End Sub
样件.rar (11.87 KB, 下载次数: 8)

2013-11-18 14:40 上传

点击文件名下载附件

mylove60

是不是这个数组公式超过FormulaArray 的255字节的限制了？
怎么样才能让这个代码运行起来，请老师们帮帮我这个菜鸟！

mylove60

哟，没人吗？

蓝桥玄霜

既然用了Vba，建议不要再用这种公式了，否则还是回到函数。

mylove60

蓝桥老师，用这个也是没有办法呀，做一个工具要用到的

mylove60

{:soso_e109:}{:soso_e109:}{:soso_e109:}{:soso_e109:}{:soso_e109:}{:soso_e109:}