Vba 以x行为间隔复制excel公式

我有一个很大的数据集，其中我需要复制很多45行间隔的公式。假设我想要第100行到第145行的以下公式：

averageifs（甲烷，日期，“=”&A100）

从第145行开始，我想要以下公式：

averageifs（甲烷，日期，“=”A145）

。 我该怎么做？ 附件是一个文件，显示了我希望我的数据集在结尾的样子（间隔较小）

请看一看

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

子测试（）
对于i=99至1000，步骤45
范围（“U”和i+1）.值=应用程序.工作表函数.计数（甲烷，日期，“=”和范围（“A”和i+1））
接下来我
端接头

到目前为止，您研究了什么。因此，这不是代码编写服务，而是代码问题/错误的问答场所。您想将这些公式应用于哪一列？@Karthick，我想将这些公式应用于我的数据表中的U列什么是甲烷，日期？你能告诉我吗explain@Karthick，谢谢你迄今为止的帮助！甲烷是以百万分之一为单位测量的甲烷，日期是以d-m-jj u:mm为单位的日期和时间。