Excel VBA根据哪里类的最小值到最大值查找范围内的单元格地址

Question

请协助我处理以下情况

我需要遍历一个范围并找到最小值。如果另一个范围中的对应值匹配，那么我需要找到列号。

我可以使用以下代码；但是，当有多个最小值时，以下代码总是给出第一个最小值列号。即使不满足条件，它也不会移动到下一个最小值列。

这是我想要申请的课程

        MyOrder = 1
        Do Until wksSkill.Cells(MyRow, MyColNum).Value <> "Exclude"
            MyColNum = Application.Evaluate("=CELL(""col"", INDEX(" & MyColRange.Address(0, 0) & ", MATCH(SMALL(" & MyColRange.Address(0, 0) & ",   " & MyOrder & " ), " & MyColRange.Address(0, 0) & ", 0)))")
            MyOrder = MyOrder + 1
        Loop

从另一个 if 语句传递的第一个“MyColNum”值，然后它将获取函数输出。它一直有效，直到范围有一个最小值。

请协助我进行其他选择

Answer 1

好的，所以我可以建议在范围内找到最小值，然后遍历该范围内的每一列，并检查该最小值是否出现在那里以及值“排除”是否出现在MyRow 中。我的代码中有一些示例值：

Sub mac()
Dim minVal As Double
Dim MyColRange As Range, rng As Range
Dim wksSkill As Worksheet

MyRow = 6
Set wksSkill = Sheets("Arkusz1")
Set MyColRange = wksSkill.Range("A1:E5")

minVal = Application.WorksheetFunction.Min(MyColRange)

For Each rng In MyColRange.Columns
    If Not IsError(Application.Match(minVal, rng, 0)) Then
        If wksSkill.Cells(MyRow, rng.Column) = "Exclude" Then
            MsgBox "Column " & rng.Column
        End If
    End If
Next rng

End Sub