Матрицы

[Hugo121]

Я правда вроде коды все на работе забыл
Дома только 6 вариантов - так что сегодня ещё файла не будет. Завтра обобщу, если звёзды правильно встанут
Но я кому-то высылал Minimax8,5.xls - можете поработать и показать.
Только я не знаю, как их поперемешивать?

[IgorGO]

записываешь код в колонку В
в колонку А случайные числа от 1 до 10000
сортирушь по А, фильтруешь В от пустых, публикуешь В сюда

[Hugo121]

Жестоко.

[IgorGO]

и для Roky такая игра будет интересна)))
и код опубливовали, а добыть...???

[Hugo121]

Что-то мне кажется, что из этой каши добыть - проще заново написать
Правда пока не пробовал... в смысле перемешать

[Hugo121]

9 вариантов - два похожих, поэтому можно считать, что 8,5

    Next j
Sub CommandButton1_Click() 'Doober
If r1 > r Then Set r = r1
Next
With Application
    x = .WorksheetFunction.Min(.Index(a, i, 0))
End With

Dim a, b, c, i As Long, x, y, z
For i = 1 To UBound(a)
  Next
        If a(i, j) < m1 Then m1 = a(i, j): r1 = i: c1 = j
For i = 1 To UBound(a)
MsgBox "Максиминное значение " & a & vbCrLf & _
    If cl.Column = rg.Column + rg.Columns.Count - 1 Then

        With .Rows(i)
Adr = n & ":" & 1
    m1 = a(i, 1): r1 = i: c1 = 1
  Const n = 10, m = 5
MsgBox "Максиминное значение " & r & vbCrLf & "строка " & _

b(i, 1) = Application.Min(Application.Index(a, i, 0))
Next
    : cl = .WorksheetFunction.Match(x, .Index(a, i, 0), 0)
Sub MaxOfMin2(rg As Range) 'IgorGo
For Each a In rng
Sr = dd(n, m)

End Sub
Cells(CInt(Split(Adr2, ":")(0)), CInt(Split(Adr2, ":")(1))).Interior.ColorIndex = 3
For Each a In [a1].CurrentRegion
    End If

    For j = 2 To UBound(a, 2)
    If cl.Column = rg.Column Then Set mi = cl
Next

Dim dd(), Adr As String, Sr As Double, Adr2 As String, Sr2 As Double
Next
c = Application.Transpose(b)
b(i, 2) = Application.Match(b(i, 1), Application.Index(a, i, 0), 0)
  MsgBox "Максимальный из минимальных: строка = " & y & ",  столбец = " & z & ",  значение = " & x
Dim coord(1 To 2, 1 To 1) As Long
    Next
Sub maximin() 'MCH
MsgBox "Максиминное значение " & r & vbCrLf & "строка " & _
      If a(i, j) < a(i, mi) Then mi = j
End Function
For m = 1 To 5 'ширина
For n = 1 To 10 'высота
    Set r = .Find(What:=a, LookAt:=xlWhole)
End If
    For j = 1 To m
  For Each cl In rg
coord(2, 1) = c0
    If a(i, mi) > a(ma, mn) Then ma = i: mn = mi
    Next i
      If ma Is Nothing Then Set ma = mi Else If mi > ma Then Set ma = mi
    If a.Column = rng.Columns.Count Then
    If i = 1 Then ma = 1: mn = mi
    If cl < mi Then Set mi = cl
Dim x&, tmp&, cl&, lr&, i&, a
End Sub

Sub MaxOfMin2Help(): MaxOfMin2 [a1].CurrentRegion: End Sub
ReDim b(1 To UBound(a), 1 To 2)
    If a.Row > 1 And a.Column = 1 Then
a = [a1:e10]
End Sub
    x = .Value
    r.Row & vbCrLf & "столбец " & r.Column

Sr = dd(n, 1)
Sub max_min_arr() 'R Dmitry
    If x >= tmp Then tmp = x: lr = i _
Dim rng As Range, x, i&, a#, r As Range
End If
    If a.Column = 1 Then Set r1 = a Else If r1 > a Then Set r1 = a
        If a.Row = 1 Then Set r = r1 Else If r1 > r Then Set r = r1
Application.ScreenUpdating = False
If Sr2 < Sr Then
dd = Range("A1:E10")
End Sub
Application.ScreenUpdating = True
  For i = 1 To n
  Dim mi As Range, ma As Range, cl As Range
End Sub
Dim i&, j&, r1&, c2&, r0&, c0&, m1&, m0&
Sr2 = Sr
    For i = 1 To .Rows.Count
  Dim a, mi, ma, mn
Sub maximin2() 'MCH
If Sr > dd(n, m) Then

With rng
    End If
End Sub
       "строка " & r.Row & vbCrLf & _
    If i = 1 Or m1 > m0 Then m0 = m1: r0 = r1: c0 = c1
'n-высота, m - ширина
x = Application.Max(Application.Index(c, 1, 0))
  a = Range("A1:E10").Value
y = Application.Match(x, Application.Index(c, 1, 0), 0)
Sub ttt() 'Hugo
End Sub
  Next
    r.Row & vbCrLf & "столбец " & r.Column
        End With
    .Sort Key1:=.Cells(1), Order1:=xlDescending, Orientation:=xlSortColumns
z = c(2, y)
Set rng = [a1].CurrentRegion
Dim r1 As Range, r As Range
Next
Next
Adr2 = Adr
Dim a As Range, rng As Range
    mi = 1
Function minimax(a As Variant) 'MCH
End Sub
    If i = 1 Then tmp = x
Sub MaxOfMin() 'IgorGo
MsgBox "строка : " & lr & "    столбец : " & cl & "    значение : " & tmp
        If a.Row = 2 Then Set r = r1 Else If r1 > r Then Set r = r1
End With
    a = .Cells(1).Value: .Value = x
       "столбец " & r.Column
ActiveSheet.Sort.Orientation = xlSortRows
Dim r1 As Range, r As Range
a = [a1].CurrentRegion.Value
            .Sort Key1:=.Cells(1), Order1:=xlAscending
coord(1, 1) = r0
minimax = coord
Sub ertert() 'nilem
Set rng = [a1].CurrentRegion
 Sr2 = -10000000
    If a.Column = 1 Then Set r1 = a Else If r1 > a Then Set r1 = a
    End If
  MsgBox "Максимальный из минимальных: строка = " & ma & ",  столбец = " & mn & ",  значение = " & a(ma, mn)
  MsgBox ma.Address(ReferenceStyle:=xlR1C1) & " = " & ma
Adr = n & ":" & m

Next i
Dim a As Range
For i = 1 To UBound(a, 1)

Прилагаю и файл с данными - там один из кодов UDF, требует листа.
Но мне кажется, что проще заново написать, чем эту кучу разгрести

[R Dmitry]

Осталось написать код который это все рассортирует как надо