excel - 同じ単語バリアントを持つ2つのセルを比較する

Question

誰かがExcelの数式で私を助けて、テキストの文字列を持つ1つのセルが、同じテキストの文字列を持つが位置/配置が異なる他のセルと比較して同じであるかどうかを確認できますか？

たとえば、以下を参照してください。

セルA1：apple orange grape

セルA2：orange grape apple

A1同じかどうかを確認する式が必要ですA2

ありがとう

Answer 1

添付のコードをモジュールに入れ、ワークシートから関数として呼び出します。
=sCompare(A1,A2)

コード

Public Function sCompare(s1 As String, s2 As String) As Boolean
Dim vArr1, vArr2, lLoop As Long, lLoop2 As Long, bMatch As Boolean

vArr1 = Split(trim(s1), " ")
vArr2 = Split(trim(s2), " ")

If UBound(vArr1) <> UBound(vArr2) Then Exit Function

For lLoop = 0 To UBound(vArr1)
    bMatch = False
    For lLoop2 = 0 To UBound(vArr2)
        If vArr1(lLoop) = vArr2(lLoop2) Then
            bMatch = True
            Exit For
        End If
    Next lLoop2

    If bMatch = False Then Exit Function
Next lLoop

sCompare = True
End Function