[[20230710110056]]　『２つのsheetの差異を表示させる』（K）　ページの最後に飛ぶ

『２つのsheetの差異を表示させる』（K）

こんにちは。タイトルの件、更新前データと翌日更新後のデータを比較し、どこに差異が発生しているのか一発で差異を表示させる機能を教えていただきたいです。LOOKUPやSPREADSHEET以外にございますでしょうか。よろしくお願いします。

＜使用 Excel：unknown、使用 OS：unknown ＞

 検査－ファイルの比較 を応用するとか
 https://color-variations.com/excel-inquire/
 ↑参照のこと

（名無し） 2023/07/10(月) 11:33:01

更新後の方が更新前のデータより範囲が広く、データの始点が同じであることが前提で

Sub Sample()

    Dim sh1 As Worksheet
    Dim sh2 As Worksheet
    Set sh1 = ThisWorkbook.Worksheets(更新前データ)
    Set sh2 = ThisWorkbook.Worksheets(更新後データ)

    Dim v1 As Variant
    Dim v2 As Variant
    v2 = sh2.UsedRange.Value
    v1 = sh1.Range(sh2.UsedRange.Address).Value

    Dim r As Long
    Dim c As Long
    sh2.Cells.Interior.Color = xlNone
    For r = 1 To UBound(v2, 1)
        For c = 1 To UBound(v2, 2)
            Select Case v1(r, c) <> v2(r, c)
                Case True: sh2.UsedRange.Cells(r, c).Interior.Color = vbYellow
                Case False
            End Select
        Next c
    Next r
End Sub

を実行したら差異のあるセルが黄色で塗りつぶされます。
必要な部分はご自分で直されてください。
（ 'ふ'） 2023/07/10(月) 14:33:56

コメント返信：

[ 一覧(最新更新順) ]

[[20230710110056]] 『２つのsheetの差異を表示させる』（K） ページの最後に飛ぶ

[[20230710110056]]　『２つのsheetの差異を表示させる』（K）　ページの最後に飛ぶ