VBA：如果声明不起作用

Question

我不知道为什么声明不起作用。没有错误发生，但同时在表单中没有结果。

Sub won() 
    Dim ws As Worksheet 
    Dim lastrow As Long 

    Set ws = ThisWorkbook.Sheets("Data imput") 
    lastrow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row 

    For i = 3 To lastrow 
     If ws.Cells(i, 6) = "customer" Then 
     ws.Cells(i, 16) = 1 
     End If 
    Next i 

    MsgBox "done!" 
End Sub 

Answer 1

这可能是因为您正在搜索列1内的LASTROW就做了6列如下：

lastrow = ws.Cells(ws.Rows.Count, 6).End(xlUp).Row 

Answer 2

你忘了定义变量i。

Dim i As Integer 

为防止以后出现此错误把下面的代码行的顶部宏

Option Explicit