Добрый день.
Помогите пожалуйста, как правильно организовать цикл в данной ситуации:
Для Cells(5, x) понятно, а вот к Range("D8:AH11") не соображу.
Помогите пожалуйста, как правильно организовать цикл в данной ситуации:
Для Cells(5, x) понятно, а вот к Range("D8:AH11") не соображу.
Код |
---|
If Cells(5, 4) = 0 Then Range("D8:D11").Value = "8" If Cells(5, 5) = 0 Then Range("E8:E11").Value = "8" If Cells(5, 6) = 0 Then Range("F8:F11").Value = "8" If Cells(5, 7) = 0 Then Range("G8:G11").Value = "8" If Cells(5, 8) = 0 Then Range("H8:H11").Value = "8" If Cells(5, 9) = 0 Then Range("I8:I11").Value = "8" If Cells(5, 10) = 0 Then Range("J8:J11").Value = "8" If Cells(5, 11) = 0 Then Range("K8:K11").Value = "8" If Cells(5, 12) = 0 Then Range("L8:L11").Value = "8" If Cells(5, 13) = 0 Then Range("M8:M11").Value = "8" If Cells(5, 14) = 0 Then Range("N8:N11").Value = "8" If Cells(5, 15) = 0 Then Range("O8:O11").Value = "8" If Cells(5, 16) = 0 Then Range("P8:P11").Value = "8" |
Необходимо, при "0" в ячейке D5 и т.д., в нижних ячейках D8-D11 и т.д. вставить "8". При "1" - оставить без изменений.