Excel VBA报Else without if错误，需用IF函数区分单元格处理场景

看起来你的代码有两个核心问题：语法结构不完整导致的"Else without If"错误，以及循环逻辑设计错误，没法正确遍历目标区域。我来一步步帮你修正：

错误原因分析 #

1. 语法问题：你的代码里Els...明显是输入截断，应该是Else，而且缺少闭合的End If，这直接触发了编译错误。
2. 循环逻辑错误：内层的For Each Cell In Tabelle3.Range("A" & lastrow2)只指向A列的最后一行单个单元格，不是你要遍历的从第2行到lastrow2的整个区域；另外手动修改i = i + 1会打乱For循环的自动计数，很容易出bug。

修正后的完整代码 #

Sub IfFunction()
    Dim lastrow2 As Long
    Dim myrange2 As Range
    Dim i As Long
    Dim cell As Range
    
    ' 获取Tabelle3中A列最后一行的行号
    lastrow2 = Tabelle3.Range("A" & Rows.Count).End(xlUp).Row
    ' 定义要遍历的A列区域（从第2行到最后一行）
    Dim targetRange As Range
    Set targetRange = Tabelle3.Range("A2:A" & lastrow2)
    
    Set myrange2 = Tabelle8.UsedRange ' 保留你原有的变量，假设后续会用到
    
    ' 方式1：用For Each遍历单元格（更直观）
    For Each cell In targetRange
        If cell.Value = "" Then
            ' 场景B：空单元格，直接跳过
            Continue For ' VBA中用Continue For跳过当前循环迭代
        Else
            ' 场景A：非空单元格，执行你的代码逻辑
            ' 这里替换成你要执行的代码，比如：
            Debug.Print "处理单元格：" & cell.Address & "，值为：" & cell.Value
        End If
    Next cell
    
    ' 方式2：用For i遍历行（如果你需要行号做其他操作）
    ' For i = 2 To lastrow2
    '     If Tabelle3.Range("A" & i).Value = "" Then
    '         Continue For
    '     Else
    '         ' 执行你的代码
    '         Debug.Print "处理行：" & i & "，值为：" & Tabelle3.Range("A" & i).Value
    '     End If
    ' Next i
End Sub

关键改动说明 #

• 补全了If...Else...End If的完整结构，解决语法错误。
• 正确定义了要遍历的目标区域A2:A" & lastrow2，确保遍历所有需要处理的单元格。
• 使用Continue For跳过空单元格，替代手动修改循环变量i的危险操作，让逻辑更清晰。
• 提供了两种遍历方式，你可以根据需求选择（需要行号就用For i，单纯处理单元格用For Each更方便）。

额外提示 #

• 尽量明确声明所有变量（比如Dim cell As Range），开启Option Explicit可以帮你避免变量名拼写错误。
• 如果你的"执行代码"需要用到myrange2，直接在场景A的代码块里调用即可。

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