更改存档的所有工作表中的单元格公式-Java 学习之路

我有一个Excel存档，其中包含大约100张我想写VBA宏的表，以便每张表的单元格A1将包含以下公式：

=RECHERCHEV(B2;'SUMUP'!B$1:H478;3;FAUX)

这是我的宏

Sub WorksheetLoop()

     ' Declare Current as a worksheet object variable.
     Dim Current As Worksheet

     ' Loop through all of the worksheets in the active workbook.
     For Each Current In Worksheets

     'Change the formula of cell A1 
        Current.Range("A1").Formula ="=RECHERCHEV(B2;'SUMUP'!B$1:H478;3;FAUX)"
     Next
End Sub

当我执行这个宏时，我得到了执行'1004'的错误，请注意，SUMUP是我的存档的一张

1 回答

VBA非常以EN-US为中心 . Range.Formula property期望输入为EN-US;如果要使用非EN-US Office语言包FR-FR区域，则可以使用Range.FormulaLocal property .

使用以下其中一个：

Current.Range("A1").Formula = "=VLOOKUP(B2,'SUMUP'!B$1:H478, 3, False)"
Current.Range("A1").FormulaLocal = "=RECHERCHEV(B2;'SUMUP'!B$1:H478;3;FAUX)"

Current.Range("A1").FormulaLocal = "=REMPLACER(CELLULE(""filename"";A1);1;TROUVE(""]"";CELLULE(""filename"";A1));"""")"

回复于 2024-05-13T15:23:59+08:00

更改存档的所有工作表中的单元格公式

1 回答

相关问题