比較列中的單元格 (VBA)

Question

我試圖列出同一列中每兩個單元格的比較。 比如說，我在單元格 A1、A2、A3、..、A11 中有一些值。 我正在嘗試創建一個表格，使得每個單元格中都包含兩個 Ai 和 Aj 的最小值（i 不等於 j）。 即 min(Ai,Aj)=x。 但是，我設法寫了一些東西來幫助我將 A1 與其他 Ai 進行比較。 每次，我都需要更改我寫的內容，以便將 A2 與其他單元格（A1 除外）進行比較。 我怎樣才能設法獲得一次列表？ 提前致謝。

這就是我運行代碼時發生的情況。

這是我想要得到的。

    Sub comparisonfunction2()


    Dim ds As Long  ' number of files
    Dim i As Long   'loop variable



     Range("A1").Select

     ds = 12
     yp = Sheets("Sheet1").Range("a1").CurrentRegion.EntireRow.Count



For i = 2 To ds

If Cells(2, 1) < Cells(i + 1, 1) Then
    Cells(2, 1).Select
    Selection.Copy

Cells(i + 1, 5).Select
    ActiveSheet.Paste

Else
Cells(i + 1, 1).Select
Selection.Copy

Cells(i + 1, 5).Select
    ActiveSheet.Paste

End If


Next
End Sub

Answer 1

只需輸入=MIN($A$2,A3) ，拖動公式