Vba 循环中的If语句-Else，Else If_Vba_Loops_If Statement

Vba 循环中的If语句-Else，Else If

vba loops if-statement

Vba 循环中的If语句-Else，Else If,vba,loops,if-statement,Vba,Loops,If Statement,我想知道是否有人可以帮助我完成以下简单的代码： For Each cell In Range(Cells(2, 5), Cells(lastrow1, 5)) If(cell.offset(, -3)=cell.offset(1,-3)) then cell.value = cell.offset(,-1),else if(cell.offset(, -3)=cell.offset(-1,-3),cell.value = 0,else cell.valye = cell.offs

我想知道是否有人可以帮助我完成以下简单的代码：

For Each cell In Range(Cells(2, 5), Cells(lastrow1, 5))
    If(cell.offset(, -3)=cell.offset(1,-3)) then cell.value = cell.offset(,-1),else if(cell.offset(, -3)=cell.offset(-1,-3),cell.value = 0,else     cell.valye = cell.offset(,-1))
Next

我基本上是想复制if语句，根据if语句是否正确，给我3种不同的结果

    If (cell.offset(, -3) = cell.offset(1, -3)) Then
        cell.value = cell.offset(, -1)
    ElseIf (cell.offset(, -3) = cell.offset(-1, -3)) Then
            cell.value = 0
    Else
        cell.valye = cell.offset(, -1)
    End If

如果您不知道有关命令语法的联机帮助，您确实应该熟悉它

如果

大体上

你的代码不工作吗？

For Each cell In Range(Cells(2, 5), Cells(lastrow1, 5))

    If cell.Offset(, -3) = cell.Offset(1, -3) Then
            cell.Value = cell.Offset(, -1)

    ElseIf cell.Offset(, -3) = cell.Offset(-1, -3) Then

        cell.Value = 0

    Else

        cell.Value = cell.Offset(, -1)

    End If
Next