データ転記。うまく転記できないシートがあります。

質問

エクセルのデータ転記について助けてください。
現在 エクセルで職場で使用する現金出納帳を作成中です。完成間近なのにつまずいてしまいました。
作成にもう長い時間かかっるので今週中になんとか仕上げたいのです。
（職場での周りの目がこわくって・・・）
どうかどうかよろしくおねがいします。

＊各シートの説明
【シート１（元帳）】は記入用シート（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：２２のデータが転記されてしまう。
この２つのシートは 下１桁でひっぱってきてしまってるのは分かるのですが改善方法が分かりません。
どうかこの２シートがきちんと動く数式を教えていただけるでしょうか？

文章力不足のため 質問の理解にさぞ悩まれるでしょうがどうぞよろしくお願いします。

補足：０１ ０２ ０４と 二桁でもしてみましたが反応は同じ。 よく分からなくて　セルの表示変えても値は１・２・４になってしまうんです・・。
結局よく分かりませんでした。

回答No.1

onlyrom · ベストアンサー

＞文章力不足のため 質問の理解にさぞ悩まれるでしょうがどうぞよろしくお願いします

文章力の不足はいたしかたないとは思いますが、
せめて、表のレイアウト（項目名、それぞれのセル番号など）は正確なものを書かなければいけませんね。

例えば、
＞【シート１（元帳）】
＞H列：収入金額、I列：支払金額、J列：差引残高。
＞▲▲▲（I・J列は転記必要なしです）▲▲

＞こちらが転記先シート
２行目はB列：月日、C列：曜日、D、E列：内訳、備考、▲▲▲F：支払金額▲▲▲

転記先シートの「支払金額」は、元帳シートでは転記必要なしと書いてある、I列にありますよね？？？

それから、
＞こちらが転記先シートです。
A1に部門コード、B2に部門コード名（A1のコードでデータベースより抽出）

Ｂ２に部門コード名とありますが、これは、Ｂ１　ですよね？

質問するときは、とくにこういった一目瞭然ではないシートの説明をするときは、何回も推敲して投稿しませう。

ま、突っ込みは、これくらいにして、、(^^;;;

●元帳のシートの Ａ３

=RIGHT("0000" & COUNTIF($D$3:D3,D3),4)&RIGHT("000" & D3,3)

●部門番号のシートの　Ｂ３

=VLOOKUP(RIGHT("0000"&ROW(A1),4)&RIGHT("000"&$A$1,3),元帳!$A$1:$I$100,2,0)

何をしているかは見てもらえばわかると思いますが。。

全データが最大９９９９件として、件数の頭に０を付加して４桁固定に変換

　　３　－＞　０００３
　５６　－＞　００５６
７８９　－＞　０７８９

部門コードは、頭に０を付加して、３桁固定に変換

　　２　－＞　００２
　２２　－＞　０２２

合わせて、７桁の固定に変換すると

０００１００２　　部門２の１件目
０００１０２２　　部門２２の１件目

となり、区別できる。
ゆえに、上手く動作する。。(^o^)/
以上。

お礼

ご指摘箇所・・・ごもっともです。
確認したつもりだったのですが・・すみません。
以後気をつけるようにします。

教えていただいたやり方さっそく入力したところ上手くできました！
意味も理解できます。
エクセルは関数覚えてもまだぜんぜん応用ができなくて・・。
丁寧なご説明　ありがとうございました。とても助かりました。