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

在VBA中，您可以使用以下函数来查找列C中的最高值及其相邻单元格的值

Function FindMaxValueAndAdjacentCell() As Variant
    Dim ws As Worksheet
    Dim rng As Range
    Dim maxVal As Double
    Dim maxCell As Range
    Dim adjacentCell As Range
    Dim result() As Variant

    ' 设置工作表和要搜索的列范围
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 请根据需要修改工作表名称
    Set rng = ws.Columns("C").Cells.SpecialCells(xlCellTypeConstants, xlNumbers)

    ' 查找最大值及其所在单元格
    maxVal = Application.WorksheetFunction.Max(rng)
    Set maxCell = rng.Find(What:=maxVal, LookIn:=xlValues, LookAt:=xlWhole)

    ' 获取相邻单元格（例如左侧单元格）
    Set adjacentCell = maxCell.Offset(0, -1)

    ' 将结果存储在数组中
    ReDim result(1 To 2)
    result(1) = maxVal
    result(2) = adjacentCell.Value

    ' 返回结果数组
    FindMaxValueAndAdjacentCell = result
End Function

在此示例中，我们首先设置了要搜索的工作表和列范围。然后，我们使用Application.WorksheetFunction.Max函数查找列C中的最大值，并使用Find方法找到最大值所在的单元格。接下来，我们获取最大值所在单元格的相邻单元格（例如左侧单元基）的值。最后，我们将最大值和相邻单元格的值存储在一个数组中并返回该数组。