使用strcomp比较vba中单元格中的文本

Question

我有一个行和列的矩阵，数据为字符串而不是整数。我有一个参考单元格，我想与每行中的特定单元格进行比较。我有以下代码。

`Worksheets("Sheet2").Activate
With Sheets("Sheet1")
str2 = Cells(1, 14).Value
For j = 1 To .Cells(.Rows.Count, 2).End(xlUp).Row
           str1 = Cells(j, 2).Value
           result = StrComp(str1, str2, vbBinaryCompare)
           If result = 0 Then
             .Range(.Cells(j, 1), .Cells(j, 12)).Copy
             ActiveSheet.Cells(2, 14).PasteSpecial Transpose:=True
           End If
Next j
End With`

问题是它告诉我每一次比较都是真的。我哪里错了？