データ転記。うまく転記できないシートがあります。
エクセルのデータ転記について助けてください。
現在 エクセルで職場で使用する現金出納帳を作成中です。完成間近なのにつまずいてしまいました。
作成にもう長い時間かかっるので今週中になんとか仕上げたいのです。
（職場での周りの目がこわくって・・・）
どうかどうかよろしくおねがいします。
＊各シートの説明
【シート１（元帳）】は記入用シート（1年間の経費等の入力をします）
A1は表題
２行目はタイトル行で B列：月日、C列：曜日、：D列：経費部門コード（以下部C）、E列：経費部門名（D列の部C入力時に他シートにあるデータベースからLOOKUPで抽出して表示するようにしてます）
F、G列は手入力用の内訳や備考の列、H列：収入金額、I列：支払金額、J列：差引残高。（I・J列は転記必要なしです）
データはB3（日付）から入力します。
データ表の範囲はとりあえず１００行目まで（A1からJ１００）
【シート２～シート１６（シート名はD列の経費部門コード番号です）】
こちらが転記先シートです。
A1に部門コード、B2に部門コード名（A1のコードでデータベースより抽出）２行目はB列：月日、C列：曜日、D、E列：内訳、備考、F：支払金額
【シート１７（経費部門コードのデータベース）】
部門番号と部門名を表にして 元帳で入力の際 ここからひっぱってくるようになっています。
番号は１５種類（経理上不規則な番号）：1・2・4・5・6・7・8・９・１０・１２・２０・２１・２２・仕・給（これをシート名にしてます）
＊希望する完成仕様
元帳（シート１）に入力したデータが同時に部門C別シート（１５種類）に必要な項目だけ転記される。必要な項目は上記のシート説明参照。
＊現在の作成状況
・元帳のシート A3に'=COUNTIF($D$3:D3,D3)&D3 以下 A列はA3をコピー
・１５枚の部門番号のシート
B3（転記初期行）に'=IF(ISERROR(VLOOKUP(ROW(元帳!A1)&$A$1,元帳!$A$1:$I$100,2,0)),"",VLOOKUP(ROW(元帳!A1)&$A$1,元帳!$A$1:$I$100,2,0)) C３,D３,E３,F３列はB３をコピーしLOOKUPの列番号を変更
＊現在の状況と問題点
シート4・5・6・7・8・9・１０・１２・２０・２１・２２はきちんと転記する。
シート１（部門C：１）は部門C：１と部門C：２１のデータが転記されてしまう
シート２ （部門C：２）は部門C：２と部門C：１２と部門C：２２のデータが転記されてしまう。
この２つのシートは 下１桁でひっぱってきてしまってるのは分かるのですが改善方法が分かりません。
どうかこの２シートがきちんと動く数式を教えていただけるでしょうか？
文章力不足のため 質問の理解にさぞ悩まれるでしょうがどうぞよろしくお願いします。
補足：０１ ０２ ０４と 二桁でもしてみましたが反応は同じ。 よく分からなくて セルの表示変えても値は１・２・４になってしまうんです・・。
結局よく分かりませんでした。
お礼
早速やってみました これでいちいち個別計算しなくて すみそうです有り難うございました。