VBA - 爲兩列中的每一列找到最大值和最小值

Question

我有兩列，數據爲雙列。 我想創建一個這樣做的vba腳本：

創建一個臨時的第三列，存儲每行的較低值。

輸出第三列的最小值和最大值。現在

問題不是創建這個第三列，我想在內存中完成此操作。

請幫 感謝

Answer 1

這將顯示與最小和最大價值一個消息框，一個消息框，假設兩列A和B.

Sub MinMax() 

    ' Count the number of rows in the first column 
    ' Assuming that number of rows in second column equals those in the first column 
    HowFar = WorksheetFunction.CountA(Range("A:A")) 

    ' Declare an array to store the minimums 
    Dim Arr() As Double 
    ReDim Arr(HowFar - 2) 
    Dim Index As Integer 
    Index = 0 

    ' Loop through the first and second columns and store the minimums for each row in the array 
    Dim i As Integer 
    For i = 2 To HowFar 

     Minimum = Application.WorksheetFunction.Min(Range("A" & i & ":B" & i)) 

     Arr(Index) = Minimum 
     Index = Index + 1 

    Next i 

    ' Get the minimum value in the array 
    Min = Application.WorksheetFunction.Min(Arr) 

    ' Get the maximum value in the array 
    Max = Application.WorksheetFunction.Max(Arr) 

    ' MsgBox the two values 
    MsgBox ("Minimum = " & Min) 
    MsgBox ("Maximum = " & Max) 

End Sub