検索する = cells(i,2).Value  4   10/7   工場1    8.0 純粋に別のシートに自動的に表示したいのであれば、 ActiveWindow.SmallScroll Down:=-3 という数式を入れオートフィルでずぃ~~~!っと下へコピーしておきます。 極端にデータ量が多い場合はおススメできませんが・・・ 75 ペン というデータがsheet1に入力されています。 3 201    じゃが芋    80      400 の数式を掲示板上でコピーします(シート名は合わせてください) セルのコピーはしませんので不要です。 たとえば、 5 203    人参      20      100 ホルダ  R-134256  1  名前   日付  場所   時間 7 302    砂糖      4       20  した後、シート1のC1をクリックする。  【検査範囲】から【検査値】を探し、 というのが前提です。複数のセルがHITすると関係ないセルの値が返るので、 とても面白くて便利ですね。すぐにできました。 Private Sub Worksheet_Activate() 'このシートがアクティブになったら自動実行 という数式を入れ列方向と行方向にオートフィルでコピー! その表から、質問(1)の回答がaの人の名前のみを別表に表示したいのです。 → そのまま(編集可能なまま)Shift+Ctrlキーを押しながらEnterキーで確定! 日付のセル書式は「日付」形式に再設定してください これは配列数式になってしまいますので、Shift+Ctrl+Enterで確定! 以上、参考になれば良いのですが・・・m(__)m, エクセルの表である条件にあてはまる行を Operator:=xlOr, Criteria2:="=企画" と、OR条件で"企画"を加えれば可能です。 補足 6月3日             4      2     佐藤         をクリックします。 と、あるとしてB列の企業名が重複しているものを抽出したいのですが・・・。この場合 AAAA社とBBBB社ですが。 3東京都 新宿区  マウス いいえ。 Windows("コード一覧表.xls").Activate ⇒シート2のD2のセルをアクティブにして「=」を入力 2 玉葱   200 6月2日             1            佐藤  =IF(COUNTBLANK(Sheet2!$A$1:$B$1),"",IF(AND(A2<=Sheet2!$A$1,E2=Sheet2!$B$1,F2=""),ROW(),"")) '--------------------------↑ココマデ↑-------------------------- 別シートに順番に抽出されるような関数を教えてください。 2 101    牛肉      30      150 おはようございます、merlionXXです。 With Sheets("Sheet1") 'Sheet1対して これで画像のような感じになります。m(_ _)m꜊, こんにちは! 因みに、シート2のイメージは   I = I + 1  A      B     C     D    F ⇒シート2のD2のセルをアクティブにして「=」を入力 4東京都 渋谷区  ペン エクセルで特定のデータの一部のみ抽出して別表に表示することができますか?たとえば、左端に名前、その隣にアンケートの質問項目(1)(2)(3)(4)の回答結果が入力されている表があるとします。その表から、質問(1)の回答がaの人の名前のみ 最近は毎日データ入稿。今夜は、こんな感じ。富士山のA看板。のぼり旗。先日つくったネオの看板ステッカーも届きました。かなりデカい。看板張り、三度目の正直です。富士山のメニューの写真撮りをしました。なので昨夜は、その肉で宴会。和牛しゃぶしゃぶです。 Operator:=xlOr, Criteria2:="=企画" と、OR条件で"企画"を加えれば可能です。 3. 商品名  商品番号  コード  =OFFSET(A1,SUMPRODUCT(ROW(A1:F200)*(A1:F200=X1))-1,SUMPRODUCT(COLUMN(A1:F200)*(A1:F200=X1))) 初歩的な質問だと思いますが、検索しても分からなかったので、よろしくお願いします。, 同じ質問が結構よく出てますが、そんなに初歩的でもありません 5東京都 渋谷区  モニタ  4  Cさん  10/7  工場2   4.0 .AutoFilterMode = False 'オートフィルタ終了(あればエラーになるた...続きを読む, 希望日    りんご   ばなな   みかん   担当   配達チェック というデータがsheet1に入力されています。 1 しょうゆ 30  表示されるようになります。  5   10/8   事務所    8.0 Private Sub Worksheet_Activate() 'このシートがアクティブになったら自動実行 部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。  Dim I As Long E  表示されるようになります。 ・ 大阪府の公共料金一覧│暮らしデータ 【goo 住宅・不動産】 大阪市中央区の格安引越しはプロスタッフへ 泉大津市• 0% 大阪瓦斯4938円 大阪市2073円 大阪市1252円 100. A4セルの表示形式は「日付」にし、A4~C4セルを範囲指定 → C4セルのフィルハンドルで下へコピー! 自動的に反映されるよう、関数で作成できたらと思います。 どうぞよろしくお願いします。, 部品表というブックがあります =IF(COUNT(Sheet1!$G:$G)恥ずかしながら、ピボットテーブルを初めて知りました。 6月1日      2             1     山田 シート1のC列のデータを上から順に抽出されるようにしたいです。 オートフィルタではごちゃごちゃしてしまうので不可です。 適した関数がありましたら教えてください。 元の表を編集するので、自動的に反映されるように関数で作成したいと思っています。できれば、抽出後のソートやフィルタオプションは避けたいです。 ホルダ  R-134256  I = 2 メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。 また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。 1.1つのセルだけの場合 この画面から数式をコピー&ペーストする場合は 例)シート1のC1に5を打ち込んだら、 別シートに順番に抽出されるような関数を教えてください。  1  名前   日付  場所   時間 Sheet2のA4セルに  Dim xlBook 2 山田 社員 開発 45  未調整  6  Aさん  10/8  事務所   8.0 モータ  U-1325-L   Excel2007以降のバージョンをお使いだとして・・・   シート1にあるコピー元のセルを範囲選択して、 一応、各コードの動きに解説もつけておきました。(解説は’でコメントアウトしてますのでこのまま貼り付けてもOKです。) End Function 2月20日    DDDD社 ・ E 元データ(sheet1)を更新するたび シート1のB列にあるデータが"渋谷区"のとき 7/2 ぶどう 200円 以下の方法があります。 2東京都  港区  PC 教えてください お願いいたします。, 企業名がセルB2からセルB300まで入力されていると仮定します。  3  Bさん  10/7  工場1   8.0 1.1つのセルだけの場合 2つの条件にあったデータを 2月 1日   BBBB社 6月1日      3                   山田      済 =INDEX(シート1!C1:C11,SMALL(IF(シート1!B1:B10="渋谷区",ROW(A1:A10),11),ROW(A1:A10)))&""   そして出てきた小さな画面の左下にある「リンク貼り付け」という 6月2日             1            佐藤  食材の注文をするのに、業者別にしなければいけませんが、量が多くて毎...続きを読む, >恥ずかしながら、ピボットテーブルを初めて知りました。 関数とどちらが自分の仕事に合うのかやってみます。 【シート3】 コード200番台 Excel2007以降のバージョンをお使いだとして・・・ また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。 別シートに自動的に抽出したいので ↓の画像でSheet1に作業用の列を設けています。 一気に表示する方法です。 よろしくお願いいたします。, エクセルの表である条件にあてはまる行を ↓の画像で右側がSheet2とします。 Sheet2のA4セルに ※SUMPRODUCT(ROW(A1:F200)*(A1:F200=X1)) ⇒ A1:F200で値がX1と一致するセルの行番号 お客様の許可なしに外部サービスに投稿することはございませんのでご安心ください。, エクセルVBA C列に特定の文字列を含む行のみを抽出し、一つのExcelにまとめたい。, エクセルで特定の列にある日付データの中から、毎年 指定した日付範囲を抽出する方法を教えてください, Exel VBA 別ブックから該当データを検索し、必要なデータを取得する方法について, ある範囲のセルから任意の値を検索して、その隣のセルの値を取得するという関数はありますか?. 1月 4日   BBBB社 例えば、シート1のC1に5を打ち込んだら、シート2のD2にシート1で打ち込んだ5が自動で表示される。 【シート4】 コード300番台 6月1日      2              1     山田  1   名前  :  Aさん  2東京都  港区  PC  Application.ScreenUpdating = False と、してみたものの、検索しても、その検索結果の隣のセルのコードをどうやって取得すればいいのかが、わかりませんでした。  ・担当 山田の...続きを読む, こんばんは! 以下の方法があります。 ある範囲のせるを検索して、その隣のセルの値を取得するという関数を探しています。 2 高橋 役員 人事 50  未調整 入力したセルの値を合計とかでなくて、 元の表を編集するので、自動的に反映されるように関数で作成したいと思っています。できれば、抽出後のソートやフィルタオプションは避けたいです。 1 じゃが芋 400 =IF($B$1="","",IFERROR(INDEX(Sheet1!B$1:B$1000,SMALL(IF(Sheet1!$A$1:$A$1000=$B$1,ROW(A$1:A$1000)),ROW(A1))),"")) '--------------------------↓ココカラ↓-------------------------- ・できるだけエラー(#N/Aなど)表示されないようにしたいです。 3月 2日   AAAA社 >その「ある範囲」の中には検索したい値が入っているセルは1つしかありません。 1 氏名 役職 部署 年齢 移動時期       関数で作成したいです。 ・ A列     B列     C列       ・元データ(シート1)はこれからもデータを追加するので これは配列数式になってしまいますので、Shift+Ctrl+Enterで確定! セルC2に IF(COUNTIF($B$2:B2,B2)>1,"*","") を入力し、セルC300までコピーして下さい。すると重複したデータの二番目以降に "*" のマークが付きます。 VLOOKUP関数では一番左端が検索されますが、 関数とどちらが自分の仕事に合うのかやってみます。 1 コード  食品名    一人分分量   総量 【シート2】 コード100番台 部品表は、何百種類もありますので、関数ではなく、マクロで処理を希望します。 例)シート1のC1に5を打ち込んだら、 別シートに順番に抽出されるような関数を教えてください。 部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。 いずれもExcel2003で動作確認済。 1月 1日    AAAA社 74 PC 【シート1】 シート2のE74からE80くらいまでに  5  Cさん  10/7  工場1   8.0  3   日付   場所   時間 ↓の画像で右側がSheet2とします。 【シート1】  8  Aさん  10/9  事務所   4.0 4 202    玉葱      40      200 画像のような感じになります。 希望日    りんご   ばなな   みかん   担当   配達チェック 法律 関連 (4) 不動産 の 税務 (7) 用途地域 建築基準法 開発 (3) 不動産 売買 便利帳 (4) 補助金 還付金 (2) 店舗 物販 飲食 サイト (4) 工場 産業 製造 サイト (3) 企業データ ランキング (2) 政府統計 (1) 建築 住まい (4) 何でもランキング (6) 電話帳 (4) 10  xlBook.Close ※最初のA1はワークシートの左上隅を示すものなので、検索範囲に関わらずA1固定 6月2日                    2     山田 End Sub, > 部署を"人事"と"企画"の両方で抽出する条件を追加する 無謀な事をやろうとしているのかもしれませんが、どなたかアドバイスをください。 2. また1列すべてを自動で表示させる場合、一つのセルの時と違いがありましたら教えてください。よろしくお願いします。, こんばんは。      A     B    C     D   2 山田 社員 開発 45  未調整 76 モニタ 3 田中 社員 人事 42  4/1~ 10  7  Cさん  10/8  工場2   8.0 ・ 6月3日             4      2     佐藤       A列に日付 B列に企業名このデータが300件ほどあります。 1 氏名 役職 部署 年齢 移動時期  Sub 別ブックから貼り付ける() 説明が不十分で伝わりにくいかと思いますが   参考にしてみてくださいね。。 元データ(sheet1)を更新するたび   シート2のD2の上で「右クリック」⇒「形式を選択して貼り付け」 .Range("A1:E1").AutoFilter Field:=5, Criteria1:="未調整" '左から5つ目のフィルタを"未調整"で抽出 Option Explicit それをある範囲まで拡張して、 その右隣の値を取得できるようにしたいのです。 【シート2】 よろしくお願い致します。, エクセルの表である条件にあてはまる行(複数の列を指定したい)を、 (注) 数式を下のセルまでコピーするため、COUNTIF($B$2 は絶対参照にして下さい。, ※各種外部サービスのアカウントをお持ちの方はこちらから簡単に登録できます。   If セル = 検査値 Then Exit For E74:E80セル範囲を選択します 以上ご参考まで。, ●X1セルの値を範囲A1:F200の中から探して、その右隣のセルの値を返す   ボタンをクリックすると完成です。      A     B    C     D   シート1のB列にあるデータが"渋谷区"のとき   念のためにリンク貼り付けを図解しているURLを載せておきます。 お礼は明日になってしまいますが、必ずご返答いたします。 7/2 すいか 300円 このような感じです。 1 牛肉   150 ...続きを読む, >E74に関数を入力し、その後関数をE80までドラッグすればよいのでしょうか? とりあえず実用性も踏まえました。 メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。 例)例)シート1のC1~C5に何かを入力したら、 With Sheets("Sheet1") 'Sheet1対して  Å列      B列 というのが前提です。複数のセルがHITすると関係ないセルの値が返るので、   http://www.geocities.jp/office_inoue/excel/eq21.htm, こんばんは。     Do While Range("A" & I).Value <> "" =IF($B$1="","",IFERROR(INDEX(Sheet1!B$1:B$1000,SMALL(IF(Sheet1!$A$1:$A$1000=$B$1,ROW(A$1:A$1000)),ROW(A1))),""))  最初にHITしたセルについて、右隣のセルの値を返す。  3  Bさん  10/7  工場1   8.0 ・ 別シートに順番に抽出されるような関数を教えてください。 Option Explicit 基本事項は本で学びましたが、呪文のようなコードはよく理解できません。懸命にネットで検索して、訳して理解する努力をしてはいますが。 数式バーで[Ctrl]+[V]貼り付け 1. 今回の回答では、簡潔に回答するため、操作上の細かい注意点やノウハウなどを書きませんでしたが、今回のケースでピボットテーブルを利用されるなら、たとえばグループ化したコードのフィールドをページフィールド(A1セルの部分)にドラッグすれば、その部分のドロップダウンリスト...続きを読む, 部品表というブックがあります A列     B列     C列       今回の回答では、簡潔に回答するため、操作上の細かい注意点やノウハウなどを書きませんでしたが、今回のケースでピボットテーブルを利用されるなら、たとえばグループ化したコードのフィールドをページフィールド(A1セルの部分)にドラッグすれば、その部分のドロップダウンリストから該当データだけを表示させることができます。 3 田中 社員 人事 42  4/1~ >その「ある範囲」の中には検索したい値が入っているセルは1つしかありません。 Selection.AutoFilter Field:=3, Criteria1:="=検索する", Operator:= xlAnd シート1のC列のデータを上から順に抽出されるようにしたいです。   シート2のD2~D7にシート1で打ち込んだものが自動で表示される 7/1 りんご 100円 1 氏名 役職 部署 年齢 移動時期      入力したセルの値を合計とかでなくて、 シート1のコード(A列)が100番台のもの、200番台のもの、300番台のものの、それぞれ食品名(B列)と総量(D列)を、シート2~シート4に別表として抽出したいです。  ex. =Sample(X1,A1:F200) よろしくお願いします。, こんばんは。教えてください。 ただ、このままではSheet1に空白セルがあれば「0」が表示されてしまいますので、 モータ  U-1325-L   Windows("部品表.xls").Activate 部品表は、何百種類もありますので、関数...続きを読む, こんにちは。       A     B     C   以上の表から別のシート2にAさんだけの行を抽出するには、どのようにすれば良いのでしょうか? これをC4セルまでコピー!  Application.ScreenUpdating = False