LibreOffice Calc宏公式异常显示及批量填充技术求助

问题根源分析 #

• 单元格显示TRUE而非VLOOKUP结果，大概率是宏代码错误地将布尔值而非公式文本赋值给了单元格，或是公式字符串未正确处理导致被解析为逻辑判断。
• 批量填充需循环遍历目标行，动态拼接对应行号的D、E列引用，避免重复编写代码。

修正后的完整宏代码 #

Sub FillVLOOKUPFormula()
    Dim oSheet As Object
    Dim oCell As Object
    Dim i As Integer
    Dim sFormula As String
    
    ' 获取当前活动工作表
    oSheet = ThisComponent.CurrentController.ActiveSheet
    
    ' 循环遍历I13到I43的行
    For i = 13 To 43
        ' 动态拼接公式：D和E列使用当前行号i，替换为实际VLOOKUP参数
        sFormula = "=VLOOKUP(D" & CStr(i) & ", $A$1:$B$100, E" & CStr(i) & ", FALSE)"
        
        ' 获取当前行的I列单元格（列索引从0开始，I列是第8位；行索引从0开始，故i-1）
        oCell = oSheet.getCellByPosition(8, i-1)
        
        ' 设置单元格公式（必须用Formula属性，而非Value）
        oCell.Formula = sFormula
    Next i
End Sub

关键细节说明 #

• 用Formula属性赋值：若之前用oCell.Value = ...，会直接赋值公式的计算结果（若公式被误解析为布尔值则显示TRUE），必须使用Formula属性才能让单元格保留公式并自动计算。
• 动态拼接行号：通过CStr(i)将循环变量转为字符串，与列标识拼接成D13、E13这类匹配当前行的引用。
• 调整VLOOKUP参数：把代码中的$A$1:$B$100替换为你实际的查找数据范围，返回列等参数按需修改。

测试验证 #

1. 保存宏后，将按钮绑定到FillVLOOKUPFormula宏
2. 点击按钮后检查I13到I43：
   • 单元格应显示VLOOKUP计算结果，而非TRUE
   • 按Ctrl+查看单元格公式，确认每行的D、E列行号与当前行一致

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