我要计算的是每个周期的平均降水，不是每个月的

非常抱歉，我之前理解错了你的需求。以下是用 VBA 实现每个周期的平均降水的代码：

Sub CalculateAveragePrecipitation()
    Dim lastRow As Long
    Dim i As Long
    Dim period As Integer
    Dim total As Double
    Dim count As Integer
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row ' 获取最后一行的行数
    
    ' 遍历每一行数据
    For i = 2 To lastRow
        period = IIf(Cells(i, 1).Value <= 10, 1, IIf(Cells(i, 1).Value <= 20, 2, 3)) ' 判断周期
        
        ' 累加降水量和计数器
        total = total + Cells(i, 4).Value
        count = count + 1
        
        ' 如果当前行的周期与下一行的周期不同，或者已经到达最后一行，则计算平均降水量并写入 AP 列
        If i = lastRow Or period <> IIf(Cells(i + 1, 1).Value <= 10, 1, IIf(Cells(i + 1, 1).Value <= 20, 2, 3)) Then
            Cells(i, 5).Value = total / count ' 计算平均降水量
            total = 0 ' 重置累加器
            count = 0 ' 重置计数器
        End If
    Next i
End Sub

这段代码会遍历数据表格中的每一行，根据日期判断所属的周期，并累加相应周期的降水量和计数器。当周期发生变化时，或者到达最后一行时，代码会计算该周期的平均降水量，并将结果写入 AP 列。你可以将这段代码复制到 VBA 编辑器中，并执行它来实现你的需求。