2つのブックの列と列を比較し、一致すれば、片方のブックのA列にある番号を転記したい

質問

いつもお世話になっております。
また、Excelで悩んでしまいまして(>_<)
今、『観光地.xls』というブックのA列には、以下のようなデータが記載されています。

夏井川渓谷
オルチャ渓谷
御岳渓谷
ハラワ渓谷
福知渓谷
イアオ渓谷
チャリン渓谷
ワイメア渓谷
羽山渓谷
ヴァッハウ渓谷

そしてもう一つの、『日本の渓谷.xls』というブックのB列には、

夏井川渓谷
ウェルサンピア京都
御岳渓谷
昭和記念公園レインボープール
福知渓谷
大磯ロングビーチ
羽山渓谷

と、日本の渓谷のデータと日本のプールのデータが混ざって並んでおりまして、隣のA列には、渓谷のデータにのみ、k1,k2・・・と、番号を振っております。プールのデータの隣は、空白になっています。

この状態から、『観光地.xls』のA列と、『日本の渓谷.xls』のB列を比較し、データが一致すれば、『日本の渓谷.xls』の渓谷データのすぐ隣、A列に記載してある番号を、『観光地.xls』のL列に、転記したいのです。

『観光地.xls』のB～K列には、他の観光地のデータがずらりと記載されているので、空白のL列に、『観光地.xls』のA列の日本の渓谷データ(＝『日本の渓谷.xls』のB列の渓谷データ)に、対応する番号を付したいのです。

データが膨大ですので、マクロを使うのが最も合理的だと思うのですが、以前、似たような質問↓
http://okwave.jp/qa5015030.html
を解決してくださいまして、この時の応用で何とかなる、「一致したら斜線を引くのではなく、同シートのL列に、『日本の渓谷.xls』のA列のデータを転記するよう、指示すればいいのかな」と思い、マクロを書いてみました。

Sub keikoku()
◆変数名の入力ミスによる動作の不具合を防ぐために変数名を宣言。
Dim KeikokuSearch1 As Range, KeikokuSearch2 As Range, k As Range, kk As Range

◆Activateメソッドを実行。
With Workbooks("観光地.xls")
.Activate
.Sheets("Sheet1").Activate
End With

◆Rangeオブジェクトで範囲を選択
With Workbooks("観光地.xls").Sheets("Sheet1")
Set KeikokuSearch1 = .Range(.Range("A1"), .Range("A1").End(xlDown))
End With

With Workbooks("日本の渓谷.xls").Sheets("Sheet1")
Set KeikokuSearch2 = .Range(.Range("B1"), .Range("B1").End(xlDown))
End With

◆For Each...In...Nextステートメントで、データの一致を調べる。
For Each k In KeikokuSearch1
For Each kk In KeikokuSearch2
If k.Value = kk.Value Then

・・・

と、この辺りで立ち往生してしまいました(;_;)

If Then～Else～End Ifステートメントで、KeikokuSearch1とKeikokuSearch2のデータが一致すれば、条件を満たす場合の処理として、KeikokuSearch2(『日本の渓谷.xls』のB列)の隣にあるA列のデータを、KeikokuSearch1(『観光地.xls』のA列)から11マス隣のL列にコピーする、という風に指示したいのですが・・・ココから先のコードが、おぼつかない状況です(>_<)

やはりマクロは難しいです。皆様のお力をお借りいただければ幸いです。
よろしくお願いします<m(__)m>

回答No.4

merlionXX · ベストアンサー

merlionXXです。

> 何かRangeの中にRangeが入ってて不思議です( ゜д゜)

Rangeの中にRangeが入るのはちっとも不思議ではありません。

Range("A1:A10").Select　は
Range("A1", "A10").Select　とも書けます。（ただし　Range("A1, A10").Selectだと別な意味になりますので注意）
Range(Cells(1, 1), Cells(10, 1)).Select　とも書けるし
Range(Cells(1, "A"), Cells(10, "A")).Select　でも
Range(Range("A1"), Range("A10")).Select　でもOKなんです。

> 「A:A」みたいにコロンを間に入れて全選択みたいなこと、できないんですかね・・・

End(xlUp)やEnd(xlDown)って、何をするコードかわかります？
End(xlUp)はCtrl+↑　End(xlDown)はCtrl+↓で飛ぶ先のセルを取得しているんです。
Rows.Countは全行数ですからエクセル2000や2003 の場合は65536です。（バージョンにより行数が変わるのできめ打ちせず、Rows.Countを使用しています。）

つまり、Range("A" & Rows.Count).End(xlUp))　とは、A65536セルからCtrl+↑　で飛んだ先のセルです。
だから、Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))は、A1セルからA列のデータのある最終セルの範囲ということになります。
この場合、Ctrl+↑　で飛ばす基点を定めなければなりませんので、基点となるセルが指定されないRange("A:A").End(xlUp)や、Range("A60000,A1").End(xlUp)という書き方では意味がないのです。
もちろん範囲をRange("A:A")のように列全部を指定することも可能ですが、総当りで検索させたいわけですから、そんな指定をするととんでもない時間をかけて、空白の範囲を無駄な検索をし続けることになります。

お礼

なるほど、すごくわかりやすいです、ありがとうございます！
でも一つだけ疑問が残ります、最後に一つだけ、お聞きしてよろしいでしょうか(>_<)

.Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))

を、

.Range(Range("A1"), Range("A1" & Rows.Count).End(xlUp))

に書きかえると、うまく動作しませんでした(ToT)
もちろん、merlionXXさんの説明のおかげで、意味は把握したつもりです。

.Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))

は、「A1というセルと、A列の全行数(Rows.Count)の内、最も下の行から飛んで(xlUp)最初にデータがあるセル、その2つのセルが繋ぐ範囲を選択する」という意味のコードだと・・・(^_^;)

そう考えると、Range("A" & Rows.Count)における「"A"」は、書き換えたマクロがエラーになったことからも、「A1」とは別物みたいだと解釈しました。ただ、Range("A" & Rows.Count)における「"A" &・・・」というコードの書き方に関する説明は、私が持っているマクロの本や、ネットでいろいろ検索してみたのですが、見つかりませんでして・・・この「"A" &」の意味を、お暇な時で構いませんので、教えていただければ幸いです(>_<)