我有一个宏,它在一个单元格中添加了一个很长的公式。
我想知道是否有一种方法来打破这个公式在VBA编辑器了,使它更容易查看和编辑其他用户的道路。
下面是代码:
Sheet3.Select
Dim lastrow As Long
Range("D2").Formula = "=SUM(IFERROR(VLOOKUP(E2,Scores[[Values]:[Score]],2,FALSE),0)+IFERROR(VLOOKUP(H2,Scores[[Values]:[Score]],2,FALSE),0)+IFERROR(VLOOKUP(I2,Scores[[Values]:[Score]],2,FALSE),0)+IFERROR(VLOOKUP(J2,Scores[[Values]:[Score]],2,FALSE),0)+IFERROR(VLOOKUP(K2,Scores[[Values]:[Score]],2,FALSE),0)+IFERROR(VLOOKUP(L2,Scores[[Values]:[Score]],2,FALSE),0)+IFERROR(VLOOKUP(M2,Scores[[Values]:[Score]],2,FALSE),0))"
Range("D2").AutoFill Destination:=Range("D2:D" & lastrow), Type:=xlFillDefault
It looks like this:
I'm trying to get it to look more like this:
空格和下划线不起作用。
我可以添加一个回车,但这只是将其添加到公式中,我试图使其更容易在VBA编辑器中查看。
我也试过对它大喊大叫,但也没用。
我想知道是否有某种CONCAT可以做到这一点?我对VBA相当陌生(这是我正在修改的别人的工作),所以我不太熟悉有哪些选项可用。
欣赏任何见解!
2条答案
按热度按时间yzuktlbb1#
简单直接的答案是先自己构建公式。下面是一个人为的例子,但它应该显示出主要思想。
很明显,你最好找到一种不同的方式来写这个公式,因为它看起来重复,这可能意味着有改进它的方法,但我想从这个基本答案开始,回答你的问题,你试图做什么,但没有工作。
如果您更喜欢使用行继续符,这也适用于VBA:
ttisahbt2#
“拆分"长公式
单元格D2编辑栏中的结果