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 

は、おそらくそれはは `false`に評価されていることで働いているマクロ

Option Explicit