VBA EXCEL 对于范围内的每个单元格

Question

how to move to next cell without doing anything if condition is not met

For Each Cel In Range("F22:F3000")
If IsEmpty(Cel.Value) = True Or Not IsDate(Cel.Value) Then
End If
Next Cel
If DateAdd("m", 2, Cel.Value) = Date Then
'Cel.Row(sRow).Select
ws_1.Rows(Cel.Row).EntireRow.Copy ws_2.Range("A" & Rows.Count).End(xlUp).Offset(1)
notify.Toast "My Title", "Message"
MsgBox "regarder la colonne Annotation", vbExclamation
End If
Next

error of compilation next without for

Answer 1

As you seem to be a beginner, let me show you how your code might look like, corrected and indented:

For Each Cel In Range("F22:F3000")
  If IsEmpty(Cel.Value) = True Or Not IsDate(Cel.Value) Then
  End If

  If DateAdd("m", 2, Cel.Value) = Date Then
    'Cel.Row(sRow).Select
    ws_1.Rows(Cel.Row).EntireRow.Copy ws_2.Range("A" & Rows.Count).End(xlUp).Offset(1) notify.Toast "My Title", "Message"
    MsgBox "regarder la colonne Annotation", vbExclamation
  End If
Next Cel

As you see, I have removed the first Next Cel , you only can have one Next in a For -loop.