ник: snipe
ну вот видите - ваш километровый забег превратился в стометровую прогулку
вот только не понятен этот момент
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
сначала некой ячейке А присваивается значение ячейки В
потом условие - а ячейка А отвечает некому условию(условиям) если да то обнуляем
а если нет то снова некой ячейке А присваивается значение ячейки В
кажется что второе присваивание как то лишнее
может этот блок написать вот так
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) = ""
End If
или так
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
else
Cells(i, j) = Cells(i, 59)
End If