Excel2013 マクロ（初心者）

質問

こんにちは、

下記のような２つのファイル１，２があり、Excel2013のマクロを使って、以下をしたいのですが、どのようなコードになるでしょうか？

１、 ファイル１とファイル２のA1列とＡ２列の共通の言葉だけを、ファイル１に残す。
例えば、ファイル１の
Ａ１列１行　おサル１号
Ａ１列２行　おサル２号
Ａ１列３行　おサル３号
Ａ１列４行　おサル４号
例えば、ファイル２の
Ａ２列１行　おサル１号
Ａ２列２行　おサル２号
Ａ２列３行　お馬鹿３号
Ａ２列４行　お馬鹿４号
でしたら、
ファイル１の
１行　おサル１号
２行　おサル２号
だけを残したいです。

２、更にファイル１の
１行　おサル１号
２行　おサル２号
のＡ１列とＢ１列の間に、ファイル２のＢ２列（２行のみ）を追加したいです。

ファイル１
　A1,B1
1おサル１号、赤
2おサル２号、黄
3おサル３号、青
4おサル４号、緑

ファイル２
　A2,B2
1おサル１号、竹
2おサル２号、梅
3お馬鹿３号、松
4お馬鹿４号、至

完成ファイル
ファイル１ダッシュ
　A1,B2,B1
1おサル１号、竹、赤
2おサル２号、梅、黄

回答No.1

keithin · ベストアンサー

結論から言うと、いまヤリタイ事は
１．ファイル２のＣ列に、ファイル１から共通する内容を転記したい
２．転記されなかった行は抹消したい
といった内容になります

「ファイル１と２」とか無意味に複雑なだけなので、１冊のブックのSheet1とSheet2にします

sub macro1()
　dim LastRow as long
　lastrow = worksheets("Sheet2").range("A65536").end(xlup).row

’結果シートを準備
　worksheets("Sheet2").copy after:=worksheets("Sheet2")
　activesheet.name = "RESULT"

’ファイル１から転記、不要な行を抹消
　range("C1:C" & lastrow).formula = "=VLOOKUP(A1,Sheet1!A:B,2,FALSE)"
　on error resume next
　range("C1:C" & lastrow).specialcells(xlcelltypeformulas, xlerrors).entirerow.delete
　range("C1:C" & lastrow).value = range("C1:C" & lastrow).value
end sub

お礼

ご回答有難う御座います。
出来ました。
これを、ベースに、作っていきたいと思います。
また、よろしく教えて下さい。