EXCEL2007のマクロで２つのBOOKを比較

質問

EXCEL2007のマクロでABook,BBookと２つのBookのセルを比較して、数値が違うセルがある場合、BBookの方に新しいsheetを作成して、このsheetのA列に数値が違うセルの番地を、新しいsheetのA1、A2・・・と埋めていくマクロは作成する事は出来るでしょうか？因みに新しいsheetを作成するマクロまでは、出来ました。しかし、新しいsheetのA1、Ａ２と書き込んでいくと、クリップボードの値がＡ１、Ａ２、・・・入ってしまいます。
Dim ws1 As Object
Dim ws2 As Object
Dim ws3 As Object
Dim co As Integer, ro As Integer, e As Integer
Set ws1 = Workbooks(bookname1).Worksheets("明細")
Set ws2 = Workbooks(bookname2).Worksheets("明細")
Set ws3 = Workbooks(bookname2).Worksheets("エラーセル")
If ws1.Cells(y, x).Value = ws2.Cells(y, x).Value Then
Else
ws3.Cells(e).Select
ActiveCell.FormulaR1C1 = "A,e+1"
End If
マクロの骨格はこんな感じですけど、後は、Forループで回せば良いと考えております。
ActiveCell.FormulaR1C1 = "A,e+1"の部分が良く分かりません。
どの様にすれば、新たに作成したsheetのＡ１に数値が違うセルの番地例えばＥ５と入れる事が出来るのでしょうか、それもＥ５一つだけではなく沢山あります。Ｇ７とか・・・
どなたか、ご教授願います。宜しくお願い申し上げます。

回答No.1

keithin · ベストアンサー

落ち着いて，やるべき事を淡々とやっていきます。

sub macro1()
　dim ws1 as worksheet
　dim ws2 as worksheet
　dim ws3 as worksheet
　dim target as range
　dim r as long, c as long
　dim rx as long, cx as long
　dim n as long

　set ws1 = workbooks("book1.xls").worksheets("明細")
　set ws2 = workbooks("Book2.xls").worksheets("明細")
　set ws3 = workbooks("Book2.xls").worksheets("エラーセル")

’範囲を確定する
　rx = ws1.cells.specialcells(xlcelltypelastcell).row
　rx = application.max(rx, ws2.cells.specialcells(xlcelltypelastcells).row)
　cx = ws1.cells.specialcells(xlcelltypelastcell).column
　cx = application.max(rx, ws2.cells.specialcells(xlcelltypelastcells).column)

’比較する
　for c = 1 to cx
　for r = 1 to rx
　　if ws1.cells(r, c).value <> ws2.cells(r, c).value then
　　’違うときは記録する
　　　n = n + 1
　　　ws3.cells(n, "A") = cells(r, c).address
　　end if
　next r
　next c
end sub

皆さんから寄せられたアイデア（サンプルマクロ）を参考に，もう一度ご自分なりに「何をしたらいいのか」考えを箇条書きにしてみると良いかもしれませんね。
たとえば「どこの範囲を調べたらいいのかの決め方」とか「どこは/どういう状況のセルは調べなくて良いからスキップして高速化しよう」の工夫とか。

お礼

ご回答頂きまして、大変有難う御座います。さっそく落ち着いて考えてみます。また、実行したいと考えております。結果は明日にあるかも知れません。とにかくご回答頂き本当に有難う御座います。田の方も、こうせればと言うのがあれば、投稿を宜しくお願い申し上げます。