0

右側から2つのセルの2つの数字を切り取り、どの時点で数字が等しくなるかを調べ、その数字を別のセルに出力したい

ここに画像の説明を入力

誰でも私を助けてください

4

1 に答える 1

2

実際には 2 つの数値を比較しているわけではありません。それらは文字列です (先行ゼロがあるため)。これは、Left 関数を使用して VBA なしで簡単に実行できます。

ここに画像の説明を入力

そして、ここに式を示す同じものがあります:

ここに画像の説明を入力

または、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
于 2013-05-14T08:20:50.840 に答える