| 
    
     |  | ▼Hirofumi さん: 修正ありがとうございます
 そして大変申し訳ないのですが、私の説明不足でお詫びしなくてはならないことがあります。
 シート部門のレイアウトは本店の下に支店Aその下に支店Bの表を作成しておりました。支店Aを選択したときのデータ転記行は170,173,"","",182,"",176,145,148,"",127,115,"","","","",130,133,161,118,,164,151,121,"","","",136,"",139,"","" 行目
 支店Bのときは
 "", "", "", "", "", "", "", "", "", 211, "", "",207, "", "", "", "", "", "", "", _
 "", "", "", "", "", "", 214, "", 221, ""行目になるよにレイアウトしていました。説明不十分ですいません
 >    Case "支店A" '★追加
 >      vntRPos = Array(166, 169, "", "", 178........)
 >    Case "支店B" '★追加
 >      vntRPos = Array("", "", "", "", "", "", "", "", "", 207             "", "", 203...........) の訂正だけでは無理ですね?
 
 昨日から試しているのですがうまくいかず返事がおそくなってしまいました
 それから転記したいのはhirohumi様のおっしゃるとおり累計値です私がコード間違ってupしたみたいです すいません
 また時間の空きましたときに修正箇所教えて頂けますでしょうか
 最終的にはList2抽出した前年累計値もシート部門の本年累計値の一行下に転記したいと思ってます
 A   B   C   D   E   F   G   H   I   J
 1
 2
 3              売上        差益
 4           目標 実績 達成率 目標 実績 達成率 差益率
 5       本年
 6 11係    前年
 7       差額
 8       本年
 9  16係    前年
 10       差額
 
 シート部門はこんなかんじになってます
 今回はせっかく修正いただいたのに説明不足で御迷惑かけてほんとにすいませんでした。
 
 
 >
 >
 
 |  |