VBA将数组值传递给预定义的字符串

Question

这是过去问题的延续： VBA Fill cells on multiple sheets with formulas

作为我之前代码的改进版本，我很好奇如何将数组值分配给strFormulas(2)。我尝试使用以下循环将数组分配给循环所在的每张纸。

我希望达到：

表 1 和表 2 是同一工作簿中的不同工作表

如果循环位于表 1（工作表索引 = 2），则 strFormulas(2) = "=IF('Table 1 S'!N1838="S","S","")"

如果循环落在表 2 上（工作表索引 = 3），则 strFormulas(2) = "=IF('Table 2 S'!N1838="S","S","")"

但是，在下面的循环中，nT 不会被数组 nTable 中的值替换。它作为字符串结转并生成公式 -> "=IF(nT!N1838="S","S","")"

 Dim nT As Variant, nTable As Variant

 nTable = Array("'Table 1 S'", "'Table 2 S'")

 Dim w As Long
 Dim strFormulas(1 To 2) As Variant

  For w = 2 To ActiveWorkbook.Worksheets.Count
  With ActiveWorkbook.Worksheets(w)

    strFormulas(1) = "=IF(ISBLANK('Sheet 1'!A4),"""",'Sheet 1'!A4)"
    .Range("A2:AJ2").Formula = strFormulas(1)
    .Range("A2:AJ2000").FillDown
    'I believe here I need to define nT in terms of active sheet, but I can't think of an efficient way to do so...

    For Each nT In nTable
    strFormulas(2) = "=IF(nT!N1838=""S"",""S"","""")"
    .Range("AK2:AR2").Formula = strFormulas(2)
    .Range("AK2:AR2000").FillDown
    next nT

  End With
 Next w

感谢任何帮助！

Answer 1

像这样？感谢@Jeeped 使用字符和文本的公式部分。

Public Sub AddFormulas()
    Dim nTable As Variant, w As Long
    Application.ScreenUpdating = False

    nTable = Array("Table 1", "Table 2") 'assumes these exist otherwise needs error handling

    For w = LBound(nTable) To UBound(nTable)
        With ActiveWorkbook.Worksheets(nTable(w))
                .Range("AK2:AR2000").Formula = "=IF('" & .Name & " S'!N1838=char(83), char(83), text(,))
        End With
    Next w
    Application.ScreenUpdating = True
End Sub