vba Excel VBA编译错误Else没有If

Excel VBA Compile Error Else without If

提问by user3006276

I try to run a code when column "L" and column "V" stated "Completed" on both. Then column "W" will show "Completed" else it will show "incompleted" but it show compile error "Else withou if".

当“L”列和“V”列均表示“已完成”时，我尝试运行代码。然后列“W”将显示“已完成”，否则它将显示“未完成”但它会显示编译错误“Else withoutou if”。

Below is my code

下面是我的代码

Sub OverallStatus()

Dim x As Long
Dim lastrow As Long

With Sheet1
    If Application.WorksheetFunction.CountA(.Cells) <> 0 Then
         lastrow = .Cells.Find(What:="*", _
                     After:=.Range("A1"), _
                     Lookat:=xlPart, _
                     LookIn:=xlFormulas, _
                     SearchOrder:=xlByRows, _
                     SearchDirection:=xlPrevious, _
                     MatchCase:=False).Row
    Else
        lastrow = 1
    End If
    For x = 2 To lastrow
        If .Range("L" & x) = "Completed" And .Range("V" & x) = "Completed" Then
        .Range("W" & x) = "Completed"
        Else: .Range("W" & x) = "Incomplete"
        End If
    Next
End With
End Sub

采纳答案by PatricK

Things to change on your code:

更改代码的内容：

1. New line characterafter Then, or move this back up at end of the If
2. Insert End Ifbefore the Next
3. Replace End Ifabove the End Subwith End With

1. 之后的换行符Then，或在结尾处将其移回If
2. 在End If前面插入Next
3. 替换End If上述End Sub用End With