Question

我已经在这个主题上找到了很多，并且是VBA的新手，所以我试图找到A列中的特定文本（最多10个），如果找到，则用“”中的文本替换相邻的B列。我不知道如何让它继续循环直到它完成。获取编译错误结束IF没有阻止如果它没有做任何事情。

实施例

Sub Check()
    Dim ColRange As Range
    Dim cl As Range
    Set ColRange = Range("A1:A500")
    For Each cl In ColRange.Cells

        If cell.Value = "AEO" Then cell.Offset(0, 1).Value = "02553E106"
    Next
        If cell.Value = "IMAX" Then cell.Offset(0, 1).Value = "45245E109"
    End If
End Sub

Answer 1

您的语法不正确。

If *conditions here* Then

  // Put stuff here

Else

  // More stuff here

End If

每个if块都需要自己的End If

如果为true，则查找多个不同的值替换相邻的单元格

1 个答案: