excel 如果LOOP函数但出错(语句在类型块外无效)

ie3xauqp 于 12个月前发布在其他

关注(0)|答案(1)|浏览(133)

我正在做一个IF循环函数。我的数据在“AA”列，我想返回“BZ”列的值。
我想找的是，
1.如果“AA”列中的“交付类型”=“ZPS”，则它将在“BZ”列中返回值“5”。
1.如果“AA”列中的“交付类型”=“L4”，则它将在“BZ”列中返回值“20”。
结果将填充到最后一行。
下面是我的代码：

Dim i2 As Long
ZPS As Integer
L4 As Integer
lr2 As Long

Set ws3 = ThisWorkbook.Sheets("AccrualsWorking")

lr2 = ws3.Cells(ws3.Rows.Count, "AA").End(xlUp).Row

For i2 = lr2 To 3 Step -1

    If ws3.Cells(i2, "AA").Value = ZPS Then
            ws3.Range("BZ").Value = 5

    ElseIf ws3.Cells(i, "AA").Value = L4 Then
            ws3.Range("BZ").Value = 20
Next i2

上面是我的代码，但它给了我错误消息：语句在Type块外无效。

excel

来源：https://stackoverflow.com/questions/77286282/if-loop-function-but-error-statement-invalid-outside-type-block

1条答案

按热度按时间

avwztpqn1#

谢谢你的输入，我设法得到了结果。这是我最新的工作代码。

Dim i2 As Long
Dim ZPS As Integer
Dim L4 As Integer
Dim lr2 As Long
 
L4 = 20
ZPS = 5
    
Set ws3 = ThisWorkbook.Sheets("AccrualsWorking")
     
    lr2 = ws3.Cells(ws3.Rows.Count, "AA").End(xlUp).Row
    
        For i2 = lr2 To 3 Step -1
           
            If ws3.Cells(i2, "AA").Value = "L4" Then
                    ws3.Cells(i2, "BZ").Value = 20
            ElseIf ws3.Cells(i2, "AA").Value = "ZPS" Then
                    ws3.Cells(i2, "CA").Value = 5
            End If
        
        Next i2

赞(0）回复(0）举报 12个月前

我来回答

excel 如果LOOP函数但出错(语句在类型块外无效)

1条答案

相关问题

热门标签

最新问答