VBA 如果有两个条件

Question

我正在尝试编写一个 vba，它检查 A 列是否为特定字符串以及 B 列是否为特定字符串。如果是的话，B列的单元格应该把它的值改为A列的字符串。我想我离正确的代码还很远。

Sub NomenklaturDatum()

Dim cell As Range
Dim rng As Range

For Each cell In rng:

    if cell.Value in rng("J5:J175") = "2019" and cell.Value in rng("D5:D175") = ("Backlog") Then:

        cell.Value in rng("J5:J175") = "Backlog"

    End If

Next

End Sub

Answer 1

这些行中的内容

Sub NomenklaturDatum()

    Dim cl As Range

    For Each cl In Range("J5:J175")
        If cl.Offset(0, -6).Value = "Backlog" And cl.Value = "2019" Then
            cl.Value = "Backlog"
        End If
    Next
    
End Sub

当然，您可以使其更加通用 - 将范围作为参数传递，或检测最后一行等。

VBA 如果有两个条件

VBA If with two conditions

excel

foreach

vba

if-statement