VBA内的公式太长如何转换成多行写入

天地一相

感谢帮助！论坛老帖未见答案，这几天我遇到了同样的问题且是同样的函数，头疼于参数的众多，在VBA里1行里录入公式核对查看修改也很头疼，想求个VBA的解决办法未果，只得想着如何能在VBA里便捷清晰地写下一个很长很长的公式。这样就能一目了然地分行写便于核对参数。

例子：太长的公式如何在VBA里拆解成多行录入。
Range("aF3:aF" & Cells(Rows.Count, 4).End(xlUp).Row) = "=IF(OR(RC[-22]=""领料"",LEFT(RC[-28],1)=""s""),"""",IF(LEFT(RC[-28],1)=""c"",SUMPRODUCT((标准产能资料!R2C12:R3000C12=汇总!RC[-21])*(标准产能资料!R2C16:R3000C16<=汇总!RC[-12])*(标准产能资料!R2C17:R3000C17>=汇总!RC[-12])*(标准产能资料!R2C18:R3000C18<=汇总!RC[-10])*(标准产能资料!R2C19:R3000C19>=汇总!RC[-10])*标准产能资料!R2C11:R3000C11), _
      IF(LEFT(RC[-28],1)=""b"",SUMPRODUCT((标准产能资料!R2C12:R3000C12=汇总!RC[-21])*(LEFT(标准产能资料!R2C10:R3000C10,2)=汇总!RC[-20])*(标准产能资料!R2C16:R3000C16<=汇总!RC[-12])*(标准产能资料!R2C17:R3000C17>=汇总!RC[-12])*标准产能资料!R2C11:R3000C11),IF(OR(RC[-19]=""5601"",RC[-19]=""5701""),SUMPRODUCT((标准产能资料!R2C12:R3000C12=汇总!RC[-21])*(LEFT(标准产能资料!R2C10:R3000C10,2)=汇总!RC[-20])*(标准产能资料!R2C15:R3000C15=汇总!RC[-13])*(标准产能资料!R2C16:R3000C16<=汇总!RC[-12])*(标准产能资料!R2C17:R3000C17>=汇总!RC[-12])*标准产能资料!R2C11:R3000C11), _
      IF(OR(RC[-19]=""5801"",RC[-19]=""5802"",RC[-19]=""5803""),SUMPRODUCT((标准产能资料!R2C15:R3000C15=汇总!RC[-13])*(标准产能资料!R2C18:R3000C18<=汇总!RC[-10])*(标准产能资料!R2C19:R3000C19>=汇总!RC[-10])*标准产能资料!R2C11:R3000C11),"""")))))"

洋务德雷

建议不要再用函数公式了。既然用到了vba，就放弃函数公式吧

全党

空格加下划线回车

天地一相

洋务德雷 发表于 2023-6-11 21:49
建议不要再用函数公式了。既然用到了vba，就放弃函数公式吧

谢谢，想用呀，可是还没求助成功，只好还用公式。

洋务德雷

天地一相 发表于 2023-6-11 22:55
谢谢，想用呀，可是还没求助成功，只好还用公式。

直接上附件，说明要求就可以了。

tspliu

每个SUMPRODUCT里面参数是好多条件语句相乘，说白了就是多条件求和。不是有个SUMIFS可用吗?

全党

上附件，说明需求。应该不难。

天地一相

全党 发表于 2023-6-12 09:20
上附件，说明需求。应该不难。

谢谢你了，附件就不上了。昨天按你的说法，我尝试了各种位置的分行，VBA总是红字，估计就是公式参数太多超长了，分号分隔的参数有300个，直接作为公式在表格里使用，返回值也是错的，后来我分段拆分成3个公式处理不同的数据分类，就能正常计算了。公式一旦能计算，就极少修改了。原本公式实现的计算，因为参数多，想求助个VBA实现，结果没成功，只好继续使用公式了。

天地一相

洋务德雷 发表于 2023-6-12 08:47
直接上附件，说明要求就可以了。

谢谢你，前2天发过求助用VBA替代公式的帖子，没成功。时间着急，就先用公式，看什么时候才想办法实现用VBA处理的想法吧。

天地一相

tspliu 发表于 2023-6-12 09:07
每个SUMPRODUCT里面参数是好多条件语句相乘，说白了就是多条件求和。不是有个SUMIFS可用吗?

谢谢，帖子示例是本站其它帖抄来的，问题是一样的，就是分行。我实际用的是VLOOKUP函数，超级长，文本文件里1行都放不下