VBA循环函数报错：Statement invalid outside Type block 求解

错误原因分析 #

• 变量声明违规：原代码中ZPS As Integer、L4 As Integer未使用Dim关键字声明，VBA规定未用Dim声明的变量不能直接出现在普通代码块中（仅允许在Type定义内），这是触发该报错的直接原因。同时，这两个值应是匹配AA列的字符串文本，而非整数类型。
• 单元格引用错误：ws3.Range("BZ").Value = 5会将整列BZ赋值为同一值，需定位到当前循环行的BZ单元格；ElseIf中误用未定义变量i，实际应为循环变量i2。
• 语法不完整：If语句缺少End If闭合，导致循环结构逻辑断裂。

修正后的代码 #

Sub FillDeliveryTypeValue()
    Dim i2 As Long
    Dim lr2 As Long
    Dim ws3 As Worksheet
    
    ' 定义匹配AA列的字符串常量
    Const ZPS As String = "ZPS"
    Const L4 As String = "L4"
    
    Set ws3 = ThisWorkbook.Sheets("AccrualsWorking")
    lr2 = ws3.Cells(ws3.Rows.Count, "AA").End(xlUp).Row
    
    ' 从数据最后一行向上循环至第3行
    For i2 = lr2 To 3 Step -1
        If ws3.Cells(i2, "AA").Value = ZPS Then
            ws3.Cells(i2, "BZ").Value = 5
        ElseIf ws3.Cells(i2, "AA").Value = L4 Then
            ws3.Cells(i2, "BZ").Value = 20
        End If ' 闭合If判断语句
    Next i2
End Sub

关键修正点说明 #

1. 所有变量通过Dim声明，将ZPS、L4定义为字符串常量（Const），精准匹配AA列的文本内容。
2. 将整列赋值改为ws3.Cells(i2, "BZ")，确保仅修改当前循环行的对应单元格。
3. 修正变量名错误，将i替换为循环变量i2。
4. 添加End If闭合If语句，完善语法结构。
5. 封装为标准Sub过程，可直接运行执行逻辑。

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