VBA，查找列(C)中的最高值并返回其值和相邻单元格值

Sub FindMaxValue()
    Dim ws As Worksheet
    Dim rng As Range
    Dim maxVal As Double
    Dim maxCell As Range
    
    ' 设置工作表和范围
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为实际的工作表名称
    Set rng = ws.Range("C1:C" & ws.Cells(ws.Rows.Count, "C").End(xlUp).Row)
    
    ' 初始化最大值和最大值所在的单元格
    maxVal = rng.Cells(1).Value
    Set maxCell = rng.Cells(1)
    
    ' 循环比较每个单元格的值
    For Each cell In rng
        If cell.Value > maxVal Then
            maxVal = cell.Value
            Set maxCell = cell
        End If
    Next cell
    
    ' 返回最大值和相邻单元格值
    MsgBox "最高值为：" & maxVal & vbCrLf & "相邻单元格值为：" & maxCell.Offset(0, 1).Value
End Sub