如何根据条件在excel中剪切数字

时间:2013-05-14 07:21:37

标签: excel excel-vba vba

我想从右侧切两个单元格中的两个数字,并找到数字相等的点,然后按照图片中的描述在另一个单元格中打印该数字

enter image description here

任何人请帮帮我

1 个答案:

答案 0 :(得分:2)

你实际上并没有比较两个数字,它们是字符串(因为你有一个前导零)。您可以使用Left功能在没有VBA的情况下轻松完成此操作。

enter image description here

以下是显示公式的相同内容:

enter image description here

或者您可以在VBA中执行此操作:

Public Function CompareTwoNumbers(num1 As String, num2 As String) As String

Dim i As Long
Dim temp1 As String, temp2 As String

For i = Len(num1) To 1 Step -1

    temp1 = Left(num1, i)
    temp2 = Left(num2, i)

    If temp1 = temp2 Then
        CompareTwoNumbers = temp1
        Exit Function
    End If

Next

CompareTwoNumbers = "The numbers do not match"

End Function