Vba 如果NA指示的B列与NA下方的数据不同，则将数据与指示器NA一起使用

我一直在尝试编写代码，说明如何使用N/A行中的相同数据以及下面的数据。我将提供一个例子来进一步解释这个过程。谢谢大家

这应该很快地贯穿A列和B列

Option Explicit

Sub bFromNA()
    Dim i As Long, str As String, e as long

    With Worksheets("sheet2")

        e = .range("A:A").specialcells(xlCellTypeFormulas, xlerrors)(1).row

        For i = e To .Cells(.Rows.Count, "B").End(xlUp).Row
            If IsError(.Cells(i, "A")) Then
                str = .Cells(i, "B").Value2
            Else
                .Cells(i, "A") = str
            End If
        Next i

    End With

End Sub

---

a列的非错误单元格是公式还是文本？它是公式。我使用了vlookup，这就是为什么它有一个可以使用的N/A值：IFERRORvalue，value\u if\u error。如果错误，请将vlookup作为值，将所需值作为值。如果不删除N/A，则可以。我需要的是在B列上有N/A的行下面应该有与提供的图像中相同的数据。