[[20150326155222]]　『複数シートの中から該当する数字のみ抽出したい』（まぁ）　ページの最後に飛ぶ

『複数シートの中から該当する数字のみ抽出したい』（まぁ）

おせわになります。

シート１

    A   B   C   D
 1
 2              5
 3
 4
 5
シート２
    A   B   C   D
 1
 2              
 3
 4
 5
シート３
    A   B   C   D
 1
 2              35
 3
 4
 5
シート４
    A   B   C   D
 1
 2              80
 3
 4
 5

1つのエクセルには、シート60くらいあります。
そのうちＤ２に入っている数値で、シート６０に一番近いシートのＤ２の数値のみ、
別シートに拾い出したいです。別シート「管理表」を作り、その書き出し場所もＤ２。

１００人ほど使用しているエクセルのため、エクセルブックだけでも１００個くらいになってしまい、１つずつ開けて、入力されたシートの最終が何シート目なのか、見ていくのが大変なためです。
人によっては、Ｄ２の入力がシート４０くらいが最終の方もいれば、
日々何かの更新でシート６０の最後のシートのＤ２に入力がある方もいます。
途中のシートの数値は無視し、あくまでもシート６０に一番近いシートに入力のあるＤ２の数値のみ拾いたいです。
上記で言ったら、シート４の「80」のみ拾うという感じです。

シート６０に一番近いシートのＤ２の数値のみ、別シートに表記するための、数式があったら教えてください。

当方、エクセル不慣れなため説明下手で申し訳ありませんが、よろしくお願いいたします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

数式だと、100ブック*60シートと連結するブックになって、まともに開けない遅さになりませんか？
どうみてもVBAマクロで実現すべきと思うのですが…。60シートだって、その数は前後しているのですよね？

それに、最大値だけでいいのですか？　どのブックの、どのシートにあったかは知らなくて良い？
（???） 2015/03/26(木) 17:00

言葉足らずですみません。
１ブックずつ「管理表」というシートを設けてあり、
そこには、入力者氏名及び、入力者の通し番号も記載してあります。
その管理表を紙ベースで印刷し、保管しています。

1ブックに６０シートは固定です。
なので、管理表のＤ２へ６０シートの中で６０シートに一番近い入力があるＤ２の数が落ちてきていれば、大丈夫なのです。

マクロは開いてみたものの、何をどこにどう入れるのか、ちんぷんかんぷんでした(T_T)/~
（まぁ） 2015/03/26(木) 17:35

1ブック内のシートを調べ、なるべく後ろのシートにデータがあるものを抜き出せば良い、ということでしょうか。
管理表シートのシートモジュールに記述するマクロ例。

 Sub test()
    Dim i As Long

    For i = Sheets.Count To 1 Step -1
        If Sheets(i).Name <> "管理表" Then
            If Sheets(i).Range("D2") <> "" Then
                Range("A1") = Sheets(i).Range("D2")
                Exit For
            End If
        End If
    Next i
 End Sub
（???） 2015/03/26(木) 18:02

返信が遅くなりまして申し訳ありません。
やはり、マクロなのですね^_^;
当方、マクロちんぷんかんぷんなため、他の方にやってもらったところ、自分の思い通りのデータが
でてきました。
大変参考になりました。

ありがとうございました。

（まぁ） 2015/04/03(金) 10:01

コメント返信：

[ 一覧(最新更新順) ]

[[20150326155222]] 『複数シートの中から該当する数字のみ抽出したい』（まぁ） ページの最後に飛ぶ

[[20150326155222]]　『複数シートの中から該当する数字のみ抽出したい』（まぁ）　ページの最後に飛ぶ