|
こんにちは。
検索について色々前の投稿を見させて頂き、書いていたのですが
初心者のため、分からない事が出てきたので質問させてください。
BOOK1
シート1には
プロジェクト名 期間
プロジェクト1 2005/10/1〜2006/4/30
プロジェクト2 2006/4/30〜2006/9/30
プロジェクト3 2006/12/1〜2006/5/30
シート2には
2006/4月 5月 6月 7月 8月 9月 ・・・ 2007/3月
プロジェクト1
プロジェクト2
プロジェクト3
BOOK2(プロジェクト1)
10月 11月 12月 1月 2月 3月 4月
120 130 140 150 160 170 180
BOOK3(プロジェクト2)
4月 5月 6月 7月 8月 9月
100 120 120 140 150 120
BOOK4(プロジェクト3)
12月 1月 2月 3月 4月 5月
120 130 140 150 160 170
BOOK2、3、4の情報をBOOK1のシート2に転記したいのです。
ただ、1期が2006/4〜2007/3のため 2005年の情報は転記する必要がないのです。
プロジェクト1は4月のみ、プロジェクト2は4月から9月すべて
プロジェクト3は4月と5月 という具合です。
sub 転記()
dim II as variant
dim BRow as range
set II =workbook("プロジェクト1").range("A1:A12").find(what:="4月",
lookin:=values,lookat:=xlwhole)
if not II is nothing then
BRow=workbook(1).sheets(2).range("B65536").end(xlup).row
workbook(1).sheets(2).range("B" & BRow+1) =II.offset(1).value
else
BRow=workbook(1).sheets(2).range("B65536").end(xlup).row
workbook(1).sheets(2).range("B" & BRow+1)="0"
end if
End sub
どう変えていけばよいのでしょうか?
ご教授お願いします。
いくつかの質問とかぶっているところが有ると思うのですが・・・申し訳ないです。
|
|