基于单元格值放置公式的VBA代码编译错误及单元格选择问题求助

编译错误原因及修复 #

原代码的编译错误源于If语句语法不规范：当Then后的代码与If在同一行时，无法直接接续ElseIf块。必须调整为块结构写法，或优化逻辑避免冗余判断。

单元格选择问题的优化 #

VBA操作单元格无需手动选中，直接通过工作表对象定位单元格赋值即可。选中操作不仅冗余，还易因工作表激活状态导致执行异常。

完整修正后的代码 #

以下代码解决了编译错误，实现了公式插入需求，同时优化了单元格映射逻辑：

Sub placeETA()
    Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("POWER BI")
    Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("Source")
    Dim targetCell As Range
    Dim etaValue As String
    Dim cellMap As Object
    
    ' 建立ETA值与目标单元格的映射，替代冗长的ElseIf判断
    Set cellMap = CreateObject("Scripting.Dictionary")
    With cellMap
        .Add "ETA1", "U6"
        .Add "ETA2", "AB6"
        .Add "ETA3", "AI6"
        .Add "ETA4", "AP6"
        .Add "ETA5", "AW6"
        .Add "ETA6", "BD6"
        .Add "ETA7", "BK6"
        .Add "ETA8", "BR6"
        .Add "ETA9", "BY6"
        .Add "ETA10", "CF6"
        .Add "ETA11", "CM6"
        .Add "ETA12", "CT6"
    End With
    
    etaValue = ws1.Range("H5").Value
    
    ' 校验当前ETA值是否在映射范围内
    If cellMap.Exists(etaValue) Then
        Set targetCell = ws2.Range(cellMap(etaValue))
        
        ' 依次写入三个FormulaR1C1公式
        targetCell.FormulaR1C1 = "=IFERROR(INDEX(CCC_[ETA1],MATCH([@[Purchasing Document50]],CCC_[Purchasing Document38],0)),"""")"
        targetCell.Offset(0, 1).FormulaR1C1 = "=IFERROR(INDEX(CCC_[ETD],MATCH([@[Purchasing Document50]],CCC_[Purchasing Document38],0)),"""")"
        targetCell.Offset(0, 2).FormulaR1C1 = "=IFERROR(INDEX(CCC_[VESSEL],MATCH([@[Purchasing Document50]],CCC_[Purchasing Document38],0)),"""")"
        
        ' 若需选中目标单元格（可选，非必要操作）
        ws2.Activate
        targetCell.Select
    End If
End Sub

关键改进点 #

• 语法规范：用字典映射替代冗余的ElseIf判断，同时修正If语句结构，彻底解决编译错误。
• 高效稳定：直接通过Range对象赋值公式，无需选中单元格，提升代码执行效率与稳定性。
• 公式处理：正确处理公式中的双引号转义（VBA中用两个双引号表示一个双引号），确保公式正常生效。
• 容错性：通过字典Exists方法校验输入值，避免无效ETA值导致的执行异常。

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