查找最小行值的最大列值的公式

我正在寻找一个公式来查找一行的最小值的最大值，看看这个图像的例子：

正如你所看到的，现在我正在做每行的min ，而不是min的列的max ，但我的问题是，我需要这样做一个表填充外部数据连接，每当我刷新数据的行数变化，所以我不能插入分钟列，因为我不知道我需要多less行（并且，反正，最好不要插入另一列）…所以我需要一个公式来获得使用表引用的结果。
我也需要一分钟的时间 。

我不熟悉数组公式，我不知道如何指定公式，它必须首先评估行（a，b，c，d）获得min，然后评估数组为获得最大值 （或平均值）而获得的分数。

任何帮助赞赏

埃托雷

编辑：
我忘了说表中有更多的列，其中一些必须在min的评估中跳过，请考虑下图：

Answer 1

考虑下面的UDF（） ：

 Public Function MiniMax(r As Range) As Variant Dim wf As WorksheetFunction, i As Long, j As Long Dim nLastRow As Long, nLastColumn As Long Dim nFirstRow As Long, nFirstColumn As Long Dim numrow As Long, numcol As Long, k As Long nLastRow = r.Rows.Count + r.Row - 1 nLastColumn = r.Columns.Count + r.Column - 1 nFirstRow = r.Row nFirstColumn = r.Column numrow = r.Rows.Count numcol = r.Columns.Count With Application.WorksheetFunction k = 1 ReDim ary(1 To numrow) For i = nFirstRow To nLastRow ary(k) = .Min(Range(Cells(i, nFirstColumn), Cells(i, nLastColumn))) k = k + 1 Next i MiniMax = .Max(ary) End With End Function 

如果您希望自动扩展或收缩范围，可以通过几种不同的方式来适应。

用户定义的函数（UDF）非常易于安装和使用：

1. ALT-F11调出VBE窗口
2. ALT-I ALT-M打开一个新的模块
3. 粘贴东西，closuresVBE窗口

如果保存工作簿，则UDF将随之保存。 如果您在2003年以后使用的是Excel版本，则必须将该文件另存为.xlsm而不是.xlsx

要删除UDF：

1. 如上所示调出VBE窗口
2. 清除代码
3. closuresVBE窗口

从Excel中使用UDF：

= myfunction的（A1）

要了解有关macros的更多信息，请参阅：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

有关UDF的具体信息，请参阅：

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

macros必须启用这个工作！