For循环不产生任何结果

Question

我的 for 循环在运行时没有给出错误消息，但是它也没有做任何事情！基本上，我希望它查看第二个选项卡上的第 3 列，以查找该工单编号是否在第一个选项卡（第 2 列）的表中，如果没有将行添加到工作表 one 列表的末尾

Sub If_a_range_contains_a_specific_value()
'declare a variable
Dim ws As Worksheet
Set ws = Worksheets("In Progress Workorders")
Dim ws2 As Worksheet
Set ws2 = Worksheets("MASTER")

 
Dim i As Integer
'lastrow = ws2.UsedRange.Rows.Count
For i = 4 To i = 10
    If Application.WorksheetFunction.CountIf(ws2.Range("B3:B15"), ws.Cells(i, 3)) > 0 Then
   ws.Range("R8") = "In Range"
        Else
        ws2.Cells(lastrow + 1, 2) = ws.Cells(i, 3)
        lastrow = lastrow + 1
    End If
Next
Exit Sub
 
 
 
End Sub

Answer 1

看起来你的 For 语法是错误的，也许你应该从这里开始：

For i = 4 To 10
...
Next i

https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/fornext-statement