質問: エクセルで年月を入力して表ごとデータを抽出したい。 もう一度整理しなおしました。 以下のような、年月ごとの表が、一つのシートの中に縦横にたくさん並んでいます。フォーマットは全て同じです。 これを別シートに、年月を入力して該当月のデータを表ごと表示するようにしたいのです。 色々調べてみてもなかなかわかりません。 よろしくお願いいたします。 <以下表の例> 2005,1 elementsicpxrdmanualestimpondtotal cu122312121271 au1.261.21.21.210.8 ag1.471.41.41.412.6 pt1.2311.231.231.235.92 c4.1714.174.174.1717.68 total2038202020118
回答: 配置の規則性が分かれば関数でも可能かも知れませんが、分かりませんのでマクロで行う事例です。 '前提 excel2000用のコード 'マクロは、データの入ったworkbookに置く '検索は 例えば「2008,1」で検索すると、1個だけがヒットする事 '検索する年月を、sheet1のa1セルに入力して、マクロを実行する 'データはsheet2にある '検索してヒットしたデータをsheet1のa2セル以下に、値だけ複写する sub test() dim foundcell as range dim cellarray as variant with thisworkbook set foundcell = .sheets("sheet2").usedrange.find(.sheets("sheet1").range("a1").value) if not foundcell is nothing then 'セル範囲拡大は、提示された構造に合わせた cellarray = foundcell.resize(8, 7) .sheets("sheet1").range("a2").resize(8, 7) = cellarray end if end with end sub やりたいのはこんな事でしょうか?