|
はじめまして。
book1の列A1、A2、A3、、、のセルの値を1つずつbook2の列A1、A2、A3、、、の
セルの値と比較し同じ値なら青色、違うなら赤色にするというような
マクロを作成したいのですが、下記でやってみたところ処理が終わらず
しまいにはエクセルが固まってしまいます。
何かよいやり方がないかご教授していただけるようお願いいたします
Sub test()
Dim i As Integer
Dim J As Integer
Workbooks.Open Filename:="book1.xls"
Worksheets(1).Range("A" & J).Select
Workbooks.Open Filename:="book2.xls"
Worksheets(1).Range("A" & i).Select
J = 1
i = 1
Do While Range("A" & i).Value <> " "
If Range("A" & i).Value = Range("A" & J).Value Then
Range("A" & i).Interior.ColorIndex = 5
Else
Range("A" & i).Interior.ColorIndex = 3
J = J + 1
i = i + 1
End If
Loop
End Sub
|
|