Question

我遇到了一个充满公式错误的工作表。项目本身非常重复，所以我决定编写一些简单的VBA代码以节省一些时间。

问题是我的代码无效。我认为这确实是一个简单的问题，但它一直是我的痛苦。

我已经删除了所有重复的代码片段，以便更容易理解。

Sub corrigirerro()
    Dim r, i As Integer

    For r = 17 To 28
        i = r - 16    
        Worksheets(r).Select    
        Range("D73").ClearContents    
        Range("D73").Formula = "=SEERRO(SOMARPRODUTO('RD - " & i & "'!D266:D268;'RD - " & i & "'!E266:E268)/SOMA('RD - " & i & "'!D266:D268);0)"

Answer 1

您的公式使用系统为区域设置中的列表分隔符设置的分号。无论区域设置如何，VBA都会使用逗号设置Range .Formula property，但会使用区域设置Range .FormulaLocal property。

    Range("D73").Formula = "=SEERRO(SOMARPRODUTO('RD - " & i & "'!D266:D268, 'RD - " & i & "'!E266:E268)/SOMA('RD - " & i & "'!D266:D268), 0)"
    Range("D73").FormulaLocal = "=SEERRO(SOMARPRODUTO('RD - " & i & "'!D266:D268; 'RD - " & i & "'!E266:E268)/SOMA('RD - " & i & "'!D266:D268); 0)"

将公式换成逗号或使用.FormulaLocal属性。

Excel VBA - 循环插入公式

1 个答案: