在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
方法找到最大值所在的单元格。接下来,我们获取最大值所在单元格的相邻单元格(例如左侧单元基)的值。最后,我们将最大值和相邻单元格的值存储在一个数组中并返回该数组。
领取专属 10元无门槛券
手把手带您无忧上云