EXCEL:形式が違う別bookへの転記

質問

マクロほぼ初心者のため、形式が違う別Bookへの転記について悩んでいます。
どなたかご教示いただけないでしょうか。よろしくお願いいたします。

（詳細）
(1)売上実績表.xls　の「比較」シート　

　　　A　　　　　　C　　　　　D　　　　　　E　　　　　F　　 　　 G　　　　 　H
１　商品No.　　　　　　　　　　　　 　　　4月　　 　　 　　 　 　　　5月
２　　　　　　.　　2009 　　2010　　　　2011　　　2009　　　2010　　　　 2011
３　　100　　　　　0　 　　1000　　 　　 800　　 　 　0　　　　1200　　
４　　101　　　　　0　　　　　　0　　　　　　0　　　　　0　　　　　　0
５　　102　　　　 800　　　2050　　　　4000　　　500　　　　3000
６　　103

(2)売上計画表.xls　の「2011」シート

　　　 C　　　　　D　　　　　　E 　　　　 　F　　　　　G　　・・・
１　　商品No.　　　4月 　　　　5月　　　　6月
２　　 100 　　　　 800　　　　1000　　　1000
３　　 102 　　　　4000　　　 5000　　　　5000
４　　 107 　　　　1200　　　　500 　　　　500

(1)の2011の列に毎月実績を入力していきます。
それを(2)に転記(上書き)させたいのですが、
(1)と(2)の形式が違うためうまくできません。

今考えているのは　inputboxで月を指定して、
たとえば「4月」と入力すれば　(2)のC列の商品No.と(1)のA列の商品No.をみて、
(1)E列の値を(2)D列に転記させ
「5月」と入力すれば　(1)H列の値を　(2)E列に転記させたいのですが・・・

恥ずかしながら、下記のように列を指定して転記させる
レベルでストップして、困っています・・・

Sub 転記()
Dim LastRow As Long

With Workbooks("売上実績表.xls").Sheets("比較")
LastRow = .Range("D65536").End(xlUp).Row
Workbooks("売上計画表.xls").Sheets("2011").Range("D2:D" & LastRow).Value = .Range("E3:E" &

LastRow).Value
End With
End Sub

どうかよろしくお願いいたします。

回答No.2

keithin · ベストアンサー

なかなか一発では行かないモノですね。。。

＞実際は「4月」「5月」は必ず2011の上のセルにあります

「４月」はC1:E1を結合セルにして記入してあると想定していました。
必ず2011の上にあるなら，それなりにマクロを直す必要がありますがそこまで辿り着きませんでしたね。

スミマセン，回答したマクロをご覧になってすぐに判ったと思いますが，ブックが分かれているのを忘れてました。

改訂マクロ：
Sub macro1()
Dim m As String
Dim c As Long
Dim r As Long

m = InputBox("何月？")
If m = "" Then Exit Sub
c = Workbooks("売上計画表.xls").Worksheets("2011").Range("IV1").End(xlToLeft).Column + 1
r = Workbooks("売上計画表.xls").Worksheets("2011").Range("A65536").End(xlUp).Row

Workbooks("売上計画表.xls").Worksheets("2011").Cells(1, c) = m
With Workbooks("売上計画表.xls").Worksheets("2011").Cells(2, c).Resize(r - 1, 1)
.FormulaR1C1 = "=VLOOKUP(RC1,[売上実績表.xls]比較!C1:C37,MATCH(R1C,[売上実績表.xls]比較!R1:R1,0),FALSE)"
.Value = .Value
End With
End Sub

言わずもがなですが念のため，このマクロを動かすときには，計画と実績の両方のエクセルブックが同時に開いていることが前提です。
計画を閉じたまま実行したいときは，マクロの中で計画を開かせ，必要に応じてその後保存して閉じる機能を追加してください。

恐らくしばしば間違いやすいのは，インプットボックスには「４月」と入力し，でも実際に実績に記入されているのが「4月」だったりして，誤入力になるケースが発生すると思いますので注意してください。

お礼

お返事が遅くなってすみません。おかげでなんとかできました。
誤入力を防ぐためにドロップダウンのリストで選択させるようにしてみますね。
本当にありがとうございました！

回答No.1

keithin

比較シートの「４月」や「５月」が３年分の列に渡っていて，具体的にどこのセル番地に書いてあるのかはっきりしないので，マクロを書いてもらっても間違える可能性があります。
実際に合わせて適切に修正してください。

作成例：
sub macro1()
　dim m as string
　dim c as long
　dim r as long

　m = inputbox("何月？")
　if m = "" then exit sub
　c = worksheets("2011").range("IV1").end(xltoleft).column + 1
　r = worksheets("2011").range("A65536").end(xlup).row

　worksheets("2011").cells(1, c)=m
　with worksheets("2011").cells(2, c).resize(r - 1, 1)
　.formular1c1 = "=VLOOKUP(RC1,比較!C1:C37,MATCH(R1C,比較!R1:R1,0)+2,FALSE)"
　.value = .value
　end with
end sub

＃言い換えるとわざわざマクロを使わなくても，2011シートに適切な（上述のマクロで書かせたような）数式を記入しておけば，それで終わりのお仕事のように見えます。

お礼

keithinさん、丁寧なご説明ありがとうございます！
　確かに(1)のシートの図がずれていて　「４月」や「５月」がどこのセルにあるか
　分からなかったですね。すみません。
　（実際は「4月」「5月」は必ず2011の上のセルにあります。）

ところで教えていただいたマクロだと
With Worksheets("2011").Cells(2, c).Resize(r - 1, 1)　のところで
「アプリケーション定義またはオブジェクト定義のエラーです」といわれます。
これはどこがいけないんでしょうか・・・