変数とオフセット関数に基づいて配列に式を挿入する

Question

データセットに含まれるデータポイントの数に基づいて配列に式を挿入するコードを取得しようとしています。以下のコードはほとんど動作しますが、Xの最初の反復が完了した後では、列のすべての行に数式が挿入されません。

Worksheets(" Branded").Range("C3").Formula = "=COUNTIFS(" & r.Address(ReferenceStyle:=xlR1C1) & ",RC2, " & r2.Address(ReferenceStyle:=xlR1C1) & ",R2C)" 

For Y = 1 To Column_Limit1 - 1 
    Range("C3").Offset(0, Y).Formula = "=COUNTIFS(" & r.Address(ReferenceStyle:=xlR1C1) & ",RC2, " & r2.Address(ReferenceStyle:=xlR1C1) & ",R2C)" 
    For X = 1 To Row_Limit1 - 1 
     Range("C3").Offset(X, 0).Formula = "=COUNTIFS(" & r.Address(ReferenceStyle:=xlR1C1) & ",RC2, " & r2.Address(ReferenceStyle:=xlR1C1) & ",R2C)" 
    Next X 
Next Y 

Answer 1

これに変更します。

With Worksheets(" Branded") 
    .Range(.Cells(3, 3), .Cells(Row_Limit1 + 2, Column_Limit1 + 2)).FormulaR1C1 = "=COUNTIFS(" & r.Address(ReferenceStyle:=xlR1C1) & ",RC2, " & r2.Address(ReferenceStyle:=xlR1C1) & ",R2C)" 
    .Range(.Cells(Row_Limit1 + 3, 3), .Cells(Row_Limit1 + 3, Column_Limit1 + 2)).FormulaR1C1 = "=SUM(R3C:R[-1]C)" 
End With 

R1C1を使用する場合は、ループの必要はありません。