Excel中的唯一值对于具有公式的列不准确

我目前正在使用此代码从A列中提取B列中不存在的唯一值

在B列中，我有一个替换公式，用于从C列中的值中删除下划线

以前，我让它只处理列A和B中的值，作为从Chrome浏览器粘贴的值。但是，替换项弄乱了我比较唯一值的过程，因为它有时会从A列中提取不唯一的值

我原以为用“粘贴特殊”复制和粘贴这些值可能会奏效，但它仍然会拾取重复的值。我还尝试将该列格式化为文本，但效果也不太好

请注意，这些值是从网页复制的。我觉得这可能是问题的一部分

这是我目前的代码。它适用于没有公式的列，但一旦有了公式，结果就不再准确

Sub PullUniques()
    Dim rngCell As Range
    Dim ws As Worksheet


   Worksheets("Sheet1").Range("D2:D150").Clear
   Worksheets("Sheet1").Range("E2:E150").Clear

    For Each rngCell In Range("A2:A150")
        If WorksheetFunction.CountIf(Range("B2:B150"), rngCell) = 0 Then
            Range("D" & Rows.Count).End(xlUp).Offset(1) = rngCell
        End If
    Next
    For Each rngCell In Range("B2:B150")
        If WorksheetFunction.CountIf(Range("A2:A150"), rngCell) = 0 Then
            Range("E" & Rows.Count).End(xlUp).Offset(1) = rngCell
        End If
    Next

Worksheets("Sheet1").Range("A2:A150").Font.Size = 8
Worksheets("Sheet1").Range("B2:B150").Font.Size = 8
End Sub

所输入的数据是一个从html表中格式化的项目列表

>NAM_Cards_CRS Consumer Service_FR
>NAM_Cards_CRS Consumer Service_ABC
>NAM_Cards_CRS Consumer Service_DEF
>NAM_Cards_CRS Consumer Service_GHI
>NAM_Cards_CRS Consumer Service_THD

---

它被复制到C2中，其余的粘贴在它下面，我将替换代码放在B2和下面的下划线中。

代码看起来不错，所以问题很可能出现在源数据中。如果你能举一个例子说明哪里出了问题，那会有所帮助。B列中的替换公式是什么？替换（C2，““，”）。数据来自html表。手动复制和粘贴。我最初是将其转换为文本，但我不确定我是否做对了。我已经删除了这部分代码。