如何在VBA编辑器中拆分过长的单元格公式？

当然可以在VBA编辑器里拆分超长公式，核心是用字符串拼接（&）加上VBA的续行符（空格+下划线），这样既能在编辑器里分多行显示，又不会把换行符带入最终的Excel公式中。

修正后的代码示例 #

Dim lastrow As Long
With Sheet3
    ' 先获取最后一行的行号（这里假设用E列判断，可根据实际调整）
    lastrow = .Cells(.Rows.Count, "E").End(xlUp).Row
    
    ' 拆分公式为多行，用&拼接，下划线续行
    .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
End With

关键说明 #

• 续行符 _（空格加下划线）：用于在VBA编辑器中换行，告诉编辑器这一行代码未结束，下一行是延续。
• 字符串拼接&：把拆分后的每个公式片段拼接成完整字符串，最终传递给.Formula的是无换行的完整公式，Excel能正常识别。
• 额外优化：移除了不必要的Sheet3.Select，改用With语句直接操作工作表；同时给lastrow赋值（原代码中lastrow未初始化会导致错误）。

可选优化：简化公式本身 #

如果想从根源缩短公式，可用SUMPRODUCT减少重复代码：

.Range("D2").Formula = _
    "=SUMPRODUCT(IFERROR(VLOOKUP({E2,H2:I2,J2:L2,M2},Scores[[Values]:[Score]],2,FALSE),0))"

注：该简化需确保Excel版本支持数组运算，可根据实际引用范围调整。

内容的提问来源于stack exchange，提问作者sixSeven