Excel2013 マクロ（初心者）２

質問

こんにちは
下記マクロ
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
を、一部変更して
１、Sheet2をコピーして、resultを作り←上記マクロで既に出来上がり
２、Sheet１とのNo.を比較して、共通な番号を残し、（この場合、a1とa2）
　後の行は削除して
３、Sheet１の科目の列を追加する。
方法を教えて下さい。

sheet1
No. 科目 難易度
f2 物理 9
f2 数学 10
a1 化学 2
a2 生物 2

Sheet2
番号 No. 人気度 参考図書 時間
1 c4 Ｂ ４冊 ２０時間
2 c5 Ｂ ４冊 ３５時間
3 a1 Ｃ ８冊 １００時間
4 a2 Ａ ６冊 １５０時間

result
番号 No. 科目 人気度 参考図書 時間
1 a1 化学 Ｃ ８冊 １００時間
2 a2 生物 Ａ ６冊 １５０時間

回答No.1

keithin · ベストアンサー

わざわざ番号と説明してるのは、シート２はＡ列が番号列で１，２，３を持っていて、Ｂ列からＮｏ列にしてるって事でいいんですね？そういう事にします。

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

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

’Ｃ列に一列空けてファイル１から転記、不要な行を抹消
　range("C:C").insert shift:=xlshifttoright
　range("C1:C" & lastrow).formula = "=VLOOKUP(B1,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

ていうか、マクロはほとんとどこも変わらないですけどね。

＃ご相談で前に教わったのから新しく質問するときは、手抜きして「前のご相談（や教わったの）をコピーして情報提供する（したつもりになってる）」のは絶対にやめて、「いまは実際にどうやってるのか」「今度は何をしたいのか」キチンと正しく情報提供する事を憶えて下さい。

お礼

有難う御座いました。

補足

ご回答有難う御座います。
＞「いまは実際にどうやってるのか」「今度は何をしたいのか」
＞キチンと正しく情報提供する事を憶えて下さい。
承知致しました。
「いまは実際にどうやってるのか」
は、
ご教示頂きました通りで、出来ました。
VLOOKUPを、使う方法は、すごいです。
少ないコード数でばっりち成果が出ます。
「今度は何をしたいのか」
は、申し訳御座いません。更に以下をしたいのですが、
教えて下さい。
１、Sheet2をコピーして、resultを作り←上記マクロで既に出来上がり
２、Sheet１とのNo.を比較して、共通な番号を残し、（この場合、a1とa2）
　後の行は削除して
３、今度は列を追加しないで、
科目の下（同じ行内で）に、Sheet2の「系」
難易度の下（同じ行内で）に、Sheet2の「ランク」
を入れたいです。

これまで通り、VLOOKUPを使い、コードはあまり変更しない方がありがたいです。

以上、よろしく御願い致します。

下記は、excelを、コピペしたのですが、うまく貼り付けられませんでした。

sheet1
No. 科目 難易度
f2 物理 9
f2 数学 10
a1 化学 2
a2 生物 2

Sheet2
番号 No. 系 ランク
1 c4 文系 Ａ
2 c5 文系 Ｓ
3 a1 理系 Ｇ
4 a2 理系 Ｆ

result
番号 No. 科目 難易度
1 a1 化学 2
理系 Ｇ

2 a2 生物 2
理系 Ｆ