ふたつのエクセルファイルを比較する・・・。

Sub compare_file()

Dim wb1 As Workbook
Dim wb2 As Workbook

Dim r As Range
Dim rng1 As Range
Dim rng2 As Range


Dim str1 As String
Dim str2 As String

Dim row As Long
Dim col As Long

Set wb1 = Workbooks.open(Filename:="C:\Users\yuba\Documents\vba\file1.xlsx")
Set wb2 = Workbooks.open(Filename:="C:\Users\yuba\Documents\vba\file2.xlsx")


Set rng1 = wb1.Worksheets(1).UsedRange

For Each r In rng1

str1 = r.Value


row = r.row
col = r.Column

Set rng2 = wb2.Worksheets(1).Cells(row, col)

str2 = rng2.Value

If str1 = str2 Then


Else

wb1.Worksheets(1).Cells(row, col).Interior.Color = 65535
rng2.Interior.Color = 65535


End If


Next r


Set rng1 = Nothing
Set rng2 = Nothing


End Sub

ブログ気持玉

クリックして気持ちを伝えよう!

ログインしてクリックすれば、自分のブログへのリンクが付きます。

→ログインへ

なるほど(納得、参考になった、ヘー)
驚いた
面白い
ナイス
ガッツ(がんばれ!)
かわいい

気持玉数 : 0

この記事へのコメント