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

我有一个Excel存档，其中包含约100张我想要写VBAmacros，以便每个工作表的单元格A1将包含此公式：

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

这是我的macros

 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 

当我执行这个macros，我得到了执行错误'1004'，请注意，SUMUP是我的档案表

Answer 1

VBA非常以美国为中心。 Range.Formula属性期望inputEN-US; 如果要使用非EN-US Office语言包FR-FR区域，则可以使用Range.FormulaLocal属性 。

使用其中之一：

 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));"""")"