Compare as células sem registrar vba

Question

Eu tenho 2 células

Células (1,1) contém: ABC

Células (1,2) contém: Abc_AR

As células têm comprimentos diferentes. Eu preciso comparar as três primeiras letras dessas duas células sem registro. Eu tentei escrever, mas não funciona.

Sub faaa()
       Dim TestComp As Integer
       TestComp = StrComp(Left(Cells(1, 1),3), Left(Cells(1, 2),3) CompareMethod.Text)
       If TestComp = 0 Then MsgBox ("Equal!")

 End Sub

    

Answer 1

Aqui está outra maneira:

Sub AreTheyCloseEnough()
    If UCase(Left(Cells(1, 1).Value, 3)) = UCase(Left(Cells(1, 2).Value, 3)) Then
        MsgBox "pretty close"
    Else
        MsgBox "not close"
    End If
End Sub

    

Answer 2

Você pode experimentar este código:

Sub faaa()
   Dim TestComp As Integer
   TestComp = StrComp(UCase(Left(Cells(1, 1), 3)), UCase(Left(Cells(1, 2), 3)), vbTextCompare)
   If TestComp = 0 Then MsgBox ("Equal!")
End Sub