エクセルの関数について

質問

お暇な時で構いませんのでアドバイスいただけると助かります。

毎月、月報を作成しています。
どういうことかというと、Sheet2の貼り付け元から、Sheet1の貼り付け先へ数字を貼り付けるのですが
これを、数式を入れて自動化できないか検討していますが、なかなかうまくいきません。

Sheet2の列C(7月2日)と行2(24時間ホルター心電図)が交わるセルに「4」という数字が入っています。
その数字をそのまま、Sheet1の「24時間ホルター心電図」と「2(日付を表しています)」の交わるセルへコピーします。
これを31日まで、全項目分ひたすらコピーしていくのですが、このような作業のエクセルファイルが複数あるため、非常にこの作業が手間です。

数式を入れればなんとかなるかと思いましたが問題があって、

(1)Sheet2は元々、エクセル以外のデータベースから抽出したもので、毎月新しく抽出しています。
毎月項目も増減があります(たとえば、今月は「24時間ホルター心電図」の項目が存在しますが、来月はこの項目の行自体出てこないときもある)

(2)Sheet1は毎月固定のフォーマットですが、行の順番がSheet2と全く違いバラバラです。

以上2つの問題の壁をどうしても乗り越えられません。。

質問の意味が不明であれば、出来るだけ補足いたしますので、
お力を貸していただけないでしょうか。

宜しくお願い致します。

回答No.4

kagakusuki · ベストアンサー

セルの切取りや削除挿入等を行っても、なるべく正しい値が抽出される様にしました。

　まず、Sheet1(貼り付け先)のC4セルに次の数式を入力して下さい。

=IF(ISNUMBER(VLOOKUP(INDEX($B:$B,ROW()),'Sheet2(貼り付け元)'!$A:$AF,MATCH((TEXT($B$1,"yyyy/m")&"/"&INDEX($3:$3,COLUMN()))+0,'Sheet2(貼り付け元)'!$A$1:INDEX('Sheet2(貼り付け元)'!$1:$1,255),0),FALSE)),VLOOKUP(INDEX($B:$B,ROW()),'Sheet2(貼り付け元)'!$A:$AF,MATCH((TEXT($B$1,"yyyy/m")&"/"&INDEX($3:$3,COLUMN()))+0,'Sheet2(貼り付け元)'!$A$1:INDEX('Sheet2(貼り付け元)'!$1:$1,255),0),FALSE),"")

　次に、Sheet1(貼り付け先)のC4セルをコピーして、Sheet1(貼り付け先)のC4～AG24の範囲に貼り付けて下さい。

　以上です。

お礼

お礼遅くなりまして申し訳ございません。

決算で忙しくなかなかできなかったのですが、先ほどやってみました。
すんなり出来て感動いたしました。。

すごく感謝しています。
本当に有難うございます。

補足

詳細に回答いただきありがとうございました！
凄く助かります。
家に帰ってから早速試してみます！
あとでまたお礼書き込みます！

回答No.5

tom04

こんばんは！

Sheet2の1行目はシリアル値のようなので、Sheet1もシリアル値に変更してみてはどうでしょうか？

Sheet1のC3セル（セルの書式設定から表示形式は　ユーザー定義　→　d　としておきます）に
=IF(MONTH(DATE(YEAR($B$1),MONTH($B$1),COLUMN(A1)))=MONTH($B$1),DATE(YEAR($B$1),MONTH($B$1),COLUMN(A1)),"")
という数式を入れ31日のAG3セルまでオートフィルでコピーしておきます。
これでシリアル値の日付になります。

C4セルには
=IF(COUNTIF('Sheet2(貼り付け元)'!$A$2:$A$100,$B4),INDEX('Sheet2(貼り付け元)'!$B$2:$AF$100,MATCH($B4,'Sheet2(貼り付け元)'!$A$2:$A$100,0),MATCH(C$3,'Sheet2(貼り付け元)'!$B$1:$AF$1,0)),"")
という数式を入れ、列方向・行方向にオートフィルでコピー！

尚、Sheet2の空白セルと一致する場合は「0」が表示されてしまいますので、
メニュー　→　ツール　→　オプション　→　「表示」タブ　→　「ゼロ値」のチェックを外しておきます。

参考になりますかね？m(_ _)m

お礼

お礼遅くなりまして申し訳ございません！

あなた様の回答も大変参考になりました！！

本当に有難うございます！！！