范围是G列第七行到AK列第七行

如果您要查找的范围是 G 列第 7 行到 AK 列第 7 行，那么可以将 `searchRange` 变量指定为这个范围，即：

Set searchRange = ws.Range("G7:AK7")

然后将查找代码中的 `searchRange` 参数改为 `searchRange.EntireColumn`，表示在整个列范围内查找，即：

'查找今天日期所在的列号，如果不存在则给出提示并退出
If searchRange.EntireColumn.Find(What:=todayDate, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then
    MsgBox "今天的日期没有找到！"
    Exit Sub
Else
    lastCol = searchRange.EntireColumn.Find(What:=todayDate, LookIn:=xlValues, LookAt:=xlWhole).Column
End If

这样修改后，代码就可以正确地查找指定范围内的日期了。

相关问题

在G7至AK7找到今日日期后 复制B列至今日日期那一列 再加上AL列，第2行至372行 提示复制成功

可以使用以下代码实现：

Sub CopyRange()
    Dim targetDate As Date
    targetDate = Date '要查找的日期，这里先设置为今天的日期
    
    Dim lastColumn As Long
    lastColumn = Cells(7, Columns.Count).End(xlToLeft).Column
    
    Dim foundDate As Range
    Set foundDate = Range("G7:AK7").Find(targetDate, LookIn:=xlValues, LookAt:=xlWhole) '查找日期
    
    If foundDate Is Nothing Then '如果没找到日期
        MsgBox "未找到指定日期！"
        Exit Sub '退出程序
    End If
    
    '找到日期后的操作
    Dim endColumn As Long
    endColumn = foundDate.Column
    
    Range("B2", Cells(372, endColumn)).Copy Destination:=Range("B2").Resize(372, endColumn - 1).Offset(0, 6) '复制指定区域
    
    MsgBox "复制成功！"
End Sub

代码中首先定义了一个变量 `targetDate` 用于存储要查找的日期，然后使用 `Cells` 和 `Columns.Count` 获取第7行最后一列的列号，接着使用 `Range.Find` 函数查找日期，并将结果存储在 `foundDate` 变量中。如果没有找到日期，就使用 `MsgBox` 函数提示用户并使用 `Exit Sub` 退出程序。如果找到了日期，就使用 `Range` 和 `Copy` 复制指定区域，并将复制的内容粘贴到以 B2 为左上角的单元格中，同时使用 `Resize` 和 `Offset` 函数调整粘贴区域的大小和位置，以使其刚好覆盖要复制的区域。最后使用 `MsgBox` 函数提示用户复制成功。

请将结果按顺序挨着放在Ak列

要将结果按顺序挨着放在 AK 列，你可以稍微修改一下代码。以下是修改后的示例代码：

Sub CalculateAveragePrecipitation()
    Dim lastRow As Long
    Dim i As Long
    Dim month As Integer
    Dim period As Integer
    Dim total As Double
    Dim count As Integer
    Dim destRow As Integer
    
    destRow = 2 ' 目标列 AK 的起始行
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row ' 获取最后一行的行数
    
    ' 遍历每一行数据
    For i = 2 To lastRow
        month = Cells(i, 2).Value ' 获取月份
        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
        
        ' 如果当前行的月份与下一行的月份不同，或者已经到达最后一行，则计算平均降水量并写入 AK 列
        If i = lastRow Or month <> Cells(i + 1, 2).Value Then
            Cells(destRow, 37).Value = total / count ' 计算平均降水量并写入 AK 列
            total = 0 ' 重置累加器
            count = 0 ' 重置计数器
            destRow = destRow + 1 ' 下一行
        End If
    Next i
End Sub

在这个示例代码中，我们添加了一个 `destRow` 变量，用于指示结果写入 AK 列的行数。每当计算完一个周期的平均降水量后，`destRow` 会自增 1，以便将下一个结果写入 AK 列的下一行。你可以将这段代码复制到 VBA 编辑器中，并执行它来实现将结果按顺序挨着放在 AK 列的功能。