相対参照を使用し、式で固定セルを必要とするExcel VBAループ

Question

私は2つのループをコーディングしています。最初のループは列を14回合計し、すべてが計算されるまでワークブックの各ワークシートを通過します。 2番目のループはより複雑です。手動で入力する場合は、=（OFFSET（N39、-1、0、1、1））/（OFFSET（$ N $ 39、-1、-1,1,1））にする必要があります。この数式は13回ループする必要があります。計算されるたびに、合計バケットの割合が示されるはずです。例として、売掛金の93％が最新のものであることを示すことができます.2％は1〜10日遅れ、次に1.5％ 30日遅れています。私は、各列のパーセンテージを計算しているループをどのようにコードするかを理解できません。以下は私のコードです

Sub Totals() 
     Dim LastCell As Range 
     For Each e In Worksheets 
      e.Activate 
      Range("M1").Select 
       For i = 1 To 14 
        Set LastCell = Cells(Columns.Count, ActiveCell.Column).End(xlUp) 
        LastCell.Offset(1).Value = WorksheetFunction.Sum(Range(LastCell.End(xlUp), LastCell)) 
        ActiveCell.Offset(0, 1).Select 
       Next i 
      ActiveCell.Offset(1, 0).Select 
     Next e 

      For Each d In Worksheets 
      d.Activate 
      Range("N1").Select 
       For g = 1 To 13 
        Set LastCell = Cells(Columns.Count, ActiveCell.Column).End(xlUp) 
        LastCell.Offset(1).Value = "=(Offset(N39, -1, 0, 1, 1))/(Offset($N$39, -1, -1, 1, 1))" 
        ActiveCell.Offset(0, 1).Select 
       Next g 
      Next d 
    End Sub 

最初のループはうまくいきます。しかし、2番目のループはありません。

最終結果：

Answer 1

次へのループを変更するようにしてください：

x = 1 
For g = 14 To 26 
lastrow = ActiveSheet.Cells(Rows.Count, "N").End(xlUp).Row + 1 
ActiveSheet.Cells(lastrow, g).Value = "=R[-1]C/R[-1]C[-" & x & "]" 
x = x + 1 
Next g 

私は今、これをテストしてきたし、それに応じて動作します...