x行の間隔でExcelの式をコピーする

Question

私は45行の間隔で多くの数式をコピーする必要がある大きなデータセットを持っています。次の式を100行目から145行目にしたいとします。averageifs(methane,date,"<="&A108,date,">="&A100)、145行目以降では、次の式が必要です。averageifs(methane,date,"<="&A153,date,">="A145) どうすればよいですか？ Example of how I want data at the end添付ファイルは、データセットを末尾に（間隔を短くして）表示する方法を示すファイルです。

Answer 1

のplsは、ルック

Sub test() 
    For i = 99 To 1000 Step 45 
     Range("U" & i + 1).Value = Application.WorksheetFunction.CountIfs(methane, Date, "<=" & Range("A" & i + 9), Date, ">=" & Range("A" & i + 1)) 
    Next i 
End Sub