VBA 查找n列最大值

以下是 VBA 代码，可以查找指定范围内的 n 列最大值：

Sub FindMaxValues()
    Dim rng As Range
    Dim n As Integer
    Dim maxValues() As Double
    Dim i As Integer, j As Integer
    
    '设置范围和列数
    Set rng = Range("A1:E10")
    n = 3
    
    '初始化数组
    ReDim maxValues(1 To n)
    For i = 1 To n
        maxValues(i) = -1E+20
    Next i
    
    '查找最大值
    For i = 1 To rng.Rows.Count
        For j = 1 To n
            If rng.Cells(i, j).Value > maxValues(j) Then
                maxValues(j) = rng.Cells(i, j).Value
            End If
        Next j
    Next i
    
    '输出结果
    For i = 1 To n
        MsgBox "第 " & i & " 列最大值为 " & maxValues(i)
    Next i
End Sub

在上述代码中，我们首先设置了范围和列数，然后初始化了一个数组来存储最大值。接着，我们使用嵌套的循环遍历指定范围内的所有单元格，查找每一列的最大值，并将其存储到相应的数组元素中。最后，我们输出每一列的最大值。