ワークシート関数 - 範囲比較(AND)

• 概要

EXACTの範囲指定バージョン。
範囲1と範囲2の文字列を比較し、全て一致していれば TRUE を返します。

• 構文

EXACTRA(範囲1, 範囲2)


• 引き数


• 範囲1

比較対象となる範囲1


• 範囲2

比較対象となる範囲2



• 実行例

A1〜C1セルに「A」「B」「C」と入力。
A2〜C2セルに「X」「X」「X」と入力。
A3セルに「=EXACTRA(A1:C1,A2:C2)」と入力。
A3セルには「FALSE」と表示される。

A1〜C1セルのいずれかを「X」に変更する。
A3セルには「FALSE」と表示されたまま。

A1〜C1セルの全てを「X」に変更する。
A3セルには「TRUE」と表示される。

Function EXACTRA(ByRef Range1 As Range, ByRef Range2 As Range) As Boolean

    Dim Row As Long
    Dim Col As Long
    
    For Row = 1 To Range1.Rows.Count
        For Col = 1 To Range1.Columns.Count
            If Range1.Cells(Row, Col).Text <> Range2.Cells(Row, Col).Text Then
                EXACTRA = False
                Exit Function
            End If
        Next
    Next
    EXACTRA = True

End Function