ещё

n = d.Columns.Count

ReDim mas(1 To n)

If viborAll.Value = True Then

Sum = 0

For i = 1 To m

For j = 1 To n

Sum = Sum + d.Cells(i, j)

Next j

Next i

Sred = Sum / n

k = 0

For i = 1 To m

Sum = 0

For j = 1 To n

Sum = Sum + d.Cells(i, j)

Next j

Sum = Sum / n

If sred < Sum Then

k = k + 1

mas(k) =i

d2.Cells(i, 1) = mas(k)

if sredmark.value=true then d2.Cells(i, 2) = Sum

End If

Next i

Else

s = Text.Value

k = 0

For i = 1 To m

Sum = 0

For j = 1 To n

Sum = Sum + d.Cells(i, j)

Next j

Sum = Sum / n

If s< Sum Then

k = k + 1

mas(k) =i

d2.Cells(i, 1) = mas(k)

if sredmark.value=true then d2.Cells(i, 2) = Sum

End If

Next i

For b = 1 To k

d2.Cells(i, b) = mas(b)

Next b

Next i

End If