не это не то, такое я и сам бы мог написать, чутка погуглив, в практикуме рассказывалось до этого задания только про for и for each соответственно задача должна быть реализована тоже этими же методами, без массивов, вложениями циклов, и плюс не для конкретного столбца, а для любого выделенного диапазона, как в моем файле во вложении, т.е. код должен выглядеть примерно как-то так, только не для минимального, как у меня, а для замены минимального на максимальное:
Код |
---|
Sub Мин()
Dim k, l As Integer
Dim n, m As Integer
Dim i, j As Integer
Dim max, min As Integer
n = Selection.Row
m = Selection.Column
k = Selection.Rows.Count
l = Selection.Columns.Count
For j = m To l
max = Cells(n, j).Value
min = Cells(n, j).Value
For i = n To k
If Cells(i, j).Value <> 0 Then 'перескок через пустую ячейку т.к. по умолчанию пустая ячейка это 0
If Cells(i, j).Value < min Then
min = Cells(i, j).Value
End If
End If
Next i
Cells(i, j) = min
Next j
End Sub |