excel 如何在VBA中拆分长公式？

zf2sa74q 于 2023-01-03 发布在其他

关注(0)|答案(2)|浏览(167)

我有一个宏，它在一个单元格中添加了一个很长的公式。
我想知道是否有一种方法来打破这个公式在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相当陌生（这是我正在修改的别人的工作），所以我不太熟悉有哪些选项可用。
欣赏任何见解!

excel

来源：https://stackoverflow.com/questions/74966177/how-to-break-up-a-long-formula-in-vba

2条答案

按热度按时间

yzuktlbb1#

简单直接的答案是先自己构建公式。下面是一个人为的例子，但它应该显示出主要思想。
很明显，你最好找到一种不同的方式来写这个公式，因为它看起来重复，这可能意味着有改进它的方法，但我想从这个基本答案开始，回答你的问题，你试图做什么，但没有工作。

dim myFormula as string
myFormula = "=SUM("
myFormula = myFormula & "A2"
myFormula = myformula & ",B2"
myFormula = myFormula & ",C2"
myFormula = myFormula & ")"

Range("A3").Formula = myFormula

如果您更喜欢使用行继续符，这也适用于VBA：

Dim myFormula As String
myFormula = _
    "=SUM(A2" _
    & ",B2" _
    & ",C2" _
    & ")"

Range("A3").Formula = myFormula

赞(0）回复(0）举报 2023-01-03

ttisahbt2#

“拆分"长公式

Option Explicit

Sub WriteFormula()
    
    Const LastRow As Long = 20 ' just to make it compile
    
    Dim Formula As String: Formula = "" _
        & "=IFERROR(VLOOKUP(E2,Scores[[Values]:[Score]],2,FALSE),0)" & vbLf _
        & "+IFERROR(VLOOKUP(H2,Scores[[Values]:[Score]],2,FALSE),0)" & vbLf _
        & "+IFERROR(VLOOKUP(I2,Scores[[Values]:[Score]],2,FALSE),0)" & vbLf _
        & "+IFERROR(VLOOKUP(J2,Scores[[Values]:[Score]],2,FALSE),0)" & vbLf _
        & "+IFERROR(VLOOKUP(K2,Scores[[Values]:[Score]],2,FALSE),0)" & vbLf _
        & "+IFERROR(VLOOKUP(L2,Scores[[Values]:[Score]],2,FALSE),0)" & vbLf _
        & "+IFERROR(VLOOKUP(M2,Scores[[Values]:[Score]],2,FALSE),0)"
        
    'Debug.Print Formula
    
    Sheet3.Range("D2:D" & LastRow).Formula = Formula

End Sub

单元格D2编辑栏中的结果

=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)

赞(0）回复(0）举报 2023-01-03

我来回答

excel 如何在VBA中拆分长公式？

2条答案

“拆分"长公式

相关问题

热门标签

最新问答