У меня есть эти данные, чтобы сгруппировать диапазон доходности, если существует определенное значение. Я пишу код ниже, но это только возвращаемое значение иначе, если другая ячейка пуста, если меньше 60%. Может помочь посоветовать, что не так с приведенным ниже кодом? Прилагается диапазон данных и результат в столбце M после выполнения кода. какая пустая ячейка должна заполниться значением, но это не так.
Sub FillIF()
Dim w2 As Worksheet
Dim lastrow1 As Long
Dim lastN As Long
Application.ScreenUpdating = False
Set w2 = Sheets("DataCompile")
On Error Resume Next
lastrow1 = w2.Cells(Cells.Rows.Count, "A").End(xlUp).Row
lastN = Range("N" & lastrow1).End(xlUp).Row + 1
For Each cell In w2.Range("M" & lastN & ":M" & lastrow1)
If cell.Value > 0 And cell.Value <= 0.3 Then
cell.Offset(0, 1).Value = "=<30% Yield"
ElseIf cell.Value > 0.3 And cell.Value <= 0.6 Then
cell.Offset(0, 1).Value = "=<60% Yield"
Else
cell.Offset(0, 1).Value = "60%><=100% Yield"
End If
Next
On Error GoTo 0
Application.ScreenUpdating = True
End Sub
