|
//コピー
Workbooks("受注計画 井口.xls").Worksheets("受注予想").Range("B54:R60").Copy
// 貼り付け
Workbooks("受注計画_井口.xls").Worksheets("受注予想").Range("B54:R60").PasteSpecial Paste:=xlPasteValues
Sheets("受注予想").Select
Workbooks("受注計画 佐藤.xls").Worksheets("受注予想").Range("B54:R60").Copy
Workbooks("受注計画_佐藤.xls").Worksheets("受注予想").Range("B54:R60").PasteSpecial Paste:=xlPasteValues
Sheets("受注予想").Select
Workbooks("受注計画 徳永.xls").Worksheets("受注予想").Range("B54:R60").Copy
Workbooks("受注計画_徳永.xls").Worksheets("受注予想").Range("B54:R60").PasteSpecial Paste:=xlPasteValues
Sheets("受注予想").Select
Workbooks("受注計画 矢崎.xls").Worksheets("受注予想").Range("B54:R60").Copy
Workbooks("受注計画_矢崎.xls").Worksheets("受注予想").Range("B54:R60").PasteSpecial Paste:=xlPasteValues
Sheets("受注予想").Select
Workbooks("受注計画 濱里.xls").Worksheets("受注予想").Range("B54:R60").Copy
Workbooks("受注計画_濱里.xls").Worksheets("受注予想").Range("B54:R60").PasteSpecial Paste:=xlPasteValues
Sheets("受注予想").Select
上記のコピーされた5人の個々のデータを関数(SUM)等で集計して
集計_受注計画.xlsに5人分の合計の数字を求めるにはどのような構文を使えば
よいのでしょうか?
|
|