как изменить оператор 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