Excel VBA出现'else without if'错误，求排查解决（附代码）

你遇到的Else without If错误，根源是VBA的单行If语句规则：当你把If...Then写在同一行（即If 条件 Then 执行语句），VBA会判定这个If语句已经完整结束，后续的Else就找不到对应的If结构，因此报错。

另外你的代码还有一个小问题：Row.Count应该改为Rows.Count，Row是单个行对象，没有Count属性，只有行集合Rows才有这个属性，否则也会触发编译错误。

修正方案1：保留Else（拆分为多行If结构） #

把单行If拆成多行，让Else能和If正确配对：

Sub emptycolumn()

Dim i As Integer
Dim last_row As Integer

' 获取最后一行行号
last_row = Cells(Rows.Count, 1).End(xlUp).Row 

For i = 2 To last_row
    If Range("w" & i).Value <> "" Then
        Range("w" & i).Value = ""
    Else
        ' 空操作，此处无代码可省略Else块
    End If
Next i
End Sub

修正方案2：直接删除Else（更简洁） #

因为你的Else里没有任何操作，完全可以直接去掉Else部分，代码逻辑不受影响：

Sub emptycolumn()

Dim i As Integer
Dim last_row As Integer

' 获取最后一行行号
last_row = Cells(Rows.Count, 1).End(xlUp).Row 

For i = 2 To last_row
    If Range("w" & i).Value <> "" Then Range("w" & i).Value = ""
Next i
End Sub

内容的提问来源于stack exchange，提问作者LibbyB