如果表二B列下的所有单元格内容是N则在表一的D列二行以下行显示A，如果不是N则显示B

zjminy

如果表二B列下的所有单元格内容是N则在表一的D列二行以下行显示A，如果不是N则显示B


哪位大神帮个忙

谢谢

杨建营

D2=IF(Sheet2!B2="N","A","B"),下拉

盼盼198310

...........

杨建营

Sub iff()
Dim i&, j&
Dim arr
With Sheet2
j = .[B65536].End(3).Row
arr = .Range("b2:b" & j)
End With
With Sheet1
For i = 1 To UBound(arr)
    If arr(i, 1) = "N" Then
        Cells(i + 1, 4) = "A"
    Else
        Cells(i + 1, 4) = "B"
    End If
Next
End With
End Sub

gwjkkkkk

Sub TEST()
    Dim ar, i&
    ar = Range([B2], Cells(Rows.Count, "B").End(xlUp))
    For i = 1 To UBound(ar)
        ar(i, 1) = IIf(ar(i, 1) = "N", "A", "B")
    Next i
    [D2].Resize(UBound(ar)) = ar
End Sub

gwjkkkkk

Sub TEST()
    Dim ar, i&
    ar = Range([B2], Cells(Rows.Count, "B").End(xlUp))
    For i = 1 To UBound(ar)
        ar(i, 1) = IIf(ar(i, 1) = "N", "A", "B")
    Next i
    [D2].Resize(UBound(ar)) = ar
End Sub

gwjkkkkk

请参考。。。