Заменить отрицательные элементы массива нулями. язык VBA

Попробуй это:

Randomize

Dim massiv (10) As Integer

Dim stroka As String

For i = 0 To 10

massiv (i) = Rnd * 100 - 50

Next i

For i = 0 To 10

If massiv (i) < 0 Then massiv (i) = 0

stroka = stroka & massiv (i) & vbCrLf

Next i

MsgBox stroka

Sub Calculate ()

Dim Cols As Variant

Dim begin_row As Integer

Dim end_row As Integer

begin_row = 2

end_row = 6

Cols = Array (1, 2, 3, 4, 5)

For Each Col In Cols

If (Cells (begin_row, Col). Value < 0) Then

Cells (end_row, Col). Value = 0

Else

Cells (end_row, Col). Value = Cells (begin_row, Col). Value

End If

Next Col

End Sub