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.2

merlionXX

Sub keikoku2()
'◆変数名の入力ミスによる動作の不具合を防ぐために変数名を宣言。
Dim KeikokuSearch1 As Range, KeikokuSearch2 As Range, k As Range, kk As Range
'◆Rangeオブジェクトで範囲を選択
With Workbooks("観光地.xls").Sheets("Sheet1")
Set KeikokuSearch1 = .Range(.Range("A1"), .Range("A" & Rows.Count).End(xlUp))
End With
With Workbooks("日本の渓谷.xls").Sheets("Sheet1")
Set KeikokuSearch2 = .Range(.Range("B1"), .Range("B" & Rows.Count).End(xlUp))
End With
'◆For Each...In...Nextステートメントで、データの一致を調べる。
For Each k In KeikokuSearch1
For Each kk In KeikokuSearch2
If k.Value = kk.Value Then
k.Offset(0, 11).Value = kk.Offset(0, -1).Value
End If
Next kk
Next k
End Sub

ご提示のコードを、データの途中に空白があっても良いように一部を変えました。

お礼

うまくいきました！いつもありがとうございます(>_<)
もし、kとkkのデータが一致すれば、kから11列右のL列のデータと、kkから1列左のデータを同じにする、というわけですか～( ゜д゜)
merlionXXさんが修正したのもココ↓
http://www.niji.or.jp/home/toru/notes/8.html
を読み、なんとなく理解できました、下からセルを選択しないと、最終行がどこにあるのかわからないんですね(^_^;)
ただ、Rangeオブジェクトがどうも理解できないのですが・・・A列とB列の全部を選択するのなら、

Set KeikokuSearch1 = .Range("A:A").End(xlUp)
Set KeikokuSearch2 = .Range("B:B").End(xlUp)

でも大丈夫だと思って、書き換えた後に試してみたところ・・・何も起きませんでした(ToT)

オブジェクト.Range(セル範囲)
または
オブジェクト.Range(開始セル, 終了セル)

ですよね？オブジェクトは省略できるらしいのでいいとして、なぜmerlionXXさんの

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

はうまく作動するのに、私が書きかえた方はダメなのでしょうか？
すいません、お暇な時で構いませんので、ご回答いただきたいです。
よろしくお願いします<m(__)m>