ник: Гоблин
Ничего более суперовского не придумал, но из моего километрового получилось во что.
For i = 10 To 45
For j = 4 To 34
If i = 12 Or i = 20 Or i = 35 Or i = 39 Then
Else
If Cells(3, j) = 6 Or Cells(3, j) = 7 Then
Cells(i, j) = ""
Else
Cells(i, j) = Cells(i, 59)
If j = 32 Or j = 33 Or j = 34 Then
If Cells(8, j) < Cells(8, 31) Then
Cells(i, j) = ""
Else
Cells(i, j) = Cells(i, 59)
End If
End If
End If
End If
Next j
Next i
Хоть хвастать нечем, но работает и все меняет. (график напряженности зависящий от календаря). Мой первый макрос в экселе. Снип, 