引用具有多个条件的表

Question

我会尽量准确地解释我的情况。

    1       2       3       4       5
1   3352    3635    4458    4137    4690

2   3352    3635    4458    4137    4690

3   3352    3635    4458    4137    4690

4   3352    3635    4458    4137    4690

5   3352    3635    4458    4137    4690

所以上表纯粹是为了说明我的问题。我的实际表格将包含不断变化的值。

我有另一个函数为我提供一些值，例如：2 和 5。

所以基本上我只想在编号为 2 和 5 的列中搜索。我想知道最小值。

现在对于棘手的部分，在最小成本旁边，我希望它返回值出现的相应行号（左侧的 1-5）。现在最重要的是。如果有两个值相同，则应选择行号最高的那个。所以最小值将相同，但它会返回最高的行号。

我已经用常规的 excel 函数尝试了几个星期，但没有得到我想要的。这个想法是有一个函数，可以用不同的输入（不同的列来引用）多次向下拖动和计算。虽然所有功能我都可以找到复杂的地方来复制。

我希望有人有想法。我目前正在研究 VBA，但我还没有能够构建有效的东西。

提前致谢！

Answer 1

制作一个要检查的列数组，然后获取这些列的总最小值：

Sub MinFromColumns()
   Dim ColumnsToCheck(1 To 3) As Long
   Dim wf As WorksheetFunction
   Set wf = Application.WorksheetFunction

   ColumnsToCheck(1) = 2
   ColumnsToCheck(2) = 5
   ColumnsToCheck(3) = 7

   overallmin = wf.Min(Columns(ColumnsToCheck(1)))
   For i = 2 To 3
      If wf.Min(Columns(ColumnsToCheck(i))) < overallmin Then overallmin = wf.Min(Columns(ColumnsToCheck(i)))
   Next i
   MsgBox overallmin
End Sub

编辑#1：

以下是从工作表单元格中获取列选择器的示例：

Sub MinFromColumns()
   Dim ColumnsToCheck(1 To 3) As Long
   Dim wf As WorksheetFunction
   Set wf = Application.WorksheetFunction

   ColumnsToCheck(1) = Sheets("Sheet3").Range("K1")
   ColumnsToCheck(2) = Sheets("Sheet3").Range("L1")
   ColumnsToCheck(3) = Sheets("Sheet3").Range("M1")

   overallmin = wf.Min(Columns(ColumnsToCheck(1)))
   For i = 2 To 3
      If wf.Min(Columns(ColumnsToCheck(i))) < overallmin Then overallmin = wf.Min(Columns(ColumnsToCheck(i)))
   Next i
   MsgBox overallmin
End Sub

编辑#2：

星期一比预期来得早。
删除旧代码并将其替换为：

Sub MinFromColumns()
   Dim OverallMin As Variant
   Dim ColumnsToCheck(1 To 3) As Long
   Dim wf As WorksheetFunction, r As Range
   Dim addy As String, rColumn As Range
   Set wf = Application.WorksheetFunction

   ColumnsToCheck(1) = Sheets("Sheet3").Range("K1")
   ColumnsToCheck(2) = Sheets("Sheet3").Range("L1")
   ColumnsToCheck(3) = Sheets("Sheet3").Range("M1")

   OverallMin = wf.Min(Columns(ColumnsToCheck(1)))

   For i = 2 To 3
      Set rColumn = Columns(ColumnsToCheck(i)).Cells
      If wf.Min(rColumn) < OverallMin Then
         OverallMin = wf.Min(rColumn)
         Set r = rColumn.Find(what:=OverallMin)
         addy = r.Address(0, 0)
      End If
   Next i

   MsgBox OverallMin & vbCrLf & addy
End Sub

addy 给出最小值的准确位置，（行和列）