☰

不使用寄存器 vba 比较单元格

tag-icon • tag-icon vba
不使用寄存器 vba 比较单元格

我有 2 个手机

单元格（1,1）包含：ABC

单元格（1,2）包含：Abc_AR

单元格的长度不同。我需要使用 vba 比较这两个单元格的前三个字母，而无需寄存器。我尝试写类似的东西，但没有用。

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

答案1

这是另一种方法：

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

答案2

你可以尝试这个代码：

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

相关内容