как изменить оператор for-next на do-loop после 2-ух первых next Public Sub pr() p = 1 Dim c(5, 5) For i = 1 To 5 For j = 1 To 5 c(i, j) = Cells(i,... - вопрос №1077096
j) Next Next For i = 1 To 5 For j = 1 To 5 p = p * c(i, j) Next Next Cells(6, 1) = p End Sub