• 締切済み

エクセル 行の指定抜き出しについて

こんにちわ。 添付の画像のようなことをマクロを使用せずにしたいのですが可能でしょうか? このシートの用途としては、 手順1.左の一覧表に値を貼付け。 手順2.左の一覧表の「A列」を参照し、「B及びC列の値を抜き出した一覧を自動作成」 このようにして、抜き出し作業を楽にしたいと思っています。 可能であれば、作成方法を教えてください。 よろしくお願いいたします。

みんなの回答

回答No.4

目的が「抜き出し作業を楽にしたい」ことのみなのでしたら、参照ではなく、フラグの列を用意した上で、オートフィルタを適用する方法をお勧めします。簡単で、応用範囲も広いので。 列どうしの順序は任意ですが、例えば添付図のように作ります。 A2 =mod(c2,2) B2 =0+(mod(rows(B$2:b2),4)=1) 今回 A 列と B 列の「0」、「1」は数式を使って算出してみましたが、手入力で記入しても問題ありません。手入力であれば、好きな行を「1」などにできますね。また数式により、数字でない文字列をフラグにすることも、IF 関数などを併用すれば可能です。 オートフィルタを設置するには、表の中のどこか 1 セルにカーソルを置き、「データタブ > フィルタ」を押します。 「1」のみに絞り込んだ状態を保存したければ、絞り込んだ表をコピーして別シートに貼り付けたり、PDF に印刷するなどします。

全文を見る
すると、全ての回答が全文表示されます。
  • tom04
  • ベストアンサー率49% (2537/5117)
回答No.3

こんばんは! 一案です。 奇数番号や3行おきに表示する場合、いちいち数式を変えるのは面倒なので ↓の画像のようにSheet2のA1セルに何行毎に表示させたいか?という数値を入力すると 奇数や2行毎のように表示するようにしてみました。 ↓の画像では右側がSheet1で左側のSheet2に表示させるとします。 Sheet2のA4セルに =IF(OFFSET(Sheet1!$A$2,$A$1*(ROW(A1)-1),COLUMN(A1)-1)="","",OFFSET(Sheet1!$A$2,$A$1*(ROW(A1)-1),COLUMN(A1)-1)) という数式を入れ列・行方向にフィルハンドルでコピー! これで画像のような感じになります。 ※ 必ず連番の「1」番目は表示するようにしていますので、偶数だけの表示はできません。m(_ _)m

全文を見る
すると、全ての回答が全文表示されます。
  • host-f
  • ベストアンサー率100% (2/2)
回答No.2
全文を見る
すると、全ての回答が全文表示されます。
  • mt2008
  • ベストアンサー率52% (885/1701)
回答No.1

要するに情報(2)を作りたいという事でしょうか? 添付の図ではE2に↓の式を入れて[Ctrl]+[Shift]+[Enter]で確定 =IFERROR(SMALL(IF(MOD($A$2:$A$11,2)=1,$A$2:$A$11,""),ROW(E1)*2-1),"") F2に↓の式を入れる =IFERROR(VLOOKUP(E2,$A:$C,2,FALSE),"") G2に↓の式を入れる =IFERROR(VLOOKUP(E2,$A:$C,3,FALSE),"") E2:G2をE3:G4にコピー こんな感じでどうでしょう?

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • Excel 2007 マクロ 表の貼り付け

    Excel 2007 マクロ 表の貼り付け Excel 2007 マクロ 表の貼り付けについて教えてください。 <Sheet1>の表にあるA2からD4を <Sheet2>に値貼り付けをします。 表は画像を添付します。 マクロの記録では下記内容になります。 Sub Macro1() ' ' Macro1 Macro ' ' Range("A2:D4").Select Selection.Copy Sheets("Sheet2").Select Range("A2:D4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub <Sheet1>のA列の行の増減にかかわらず、<Sheet2>に貼り付けることができるように するにはどのようにマクロを修正すればよろしいでしょうか。

  • 行コピーして、今日の日付の行に貼り付けるマクロ

    こんにちは、エクセルマクロについて、助けて頂きたく質問させていただきました。 添付しました画像のような表があり、 セルA2に「=TODAY()」が入っていて、セルB2から右は別シートのデータを参照しています。 マクロを実行すると、2行目を行コピーし、セルA3以下の日付からセルA2の日付(今日の日付)を探し出して、行貼り付けしてほしいです。 行コピーや値で貼り付けはマクロの記録を使って、詳しくない私でもなんとか作ることはできるのですが、 今日の日付を探し出して、そこに貼り付ける。というマクロは作れませんでした・・・。 お助け下さい、宜しくお願いします! ※補足します セルA2の今日の日付は便宜上入力しているだけです。無い方がマクロを組みやすいのなら、無くせます。

  • EXCELで指定した範囲の切り取り貼り付け

    Excelで シート1のA1~E1000までデータがあります。 B列には0~1500の数値データがあり昇順で並んでいます。 このB列のデータの700~1000の数値データのA~E列全ての範囲を「切り取り」・シート2に「形式を指定して貼り付け」(値)という作業をマクロにてできませんか? 尚、1つセルが下がるごとに1数字があがるとは限りません。 大変困ってます。詳しい方ご教授ください。

  • EXCEL VBAで複数シート内のセルをまとめて表を作成

    EXCELマクロ(VBA)を教えてください。 なやんでいることは、 目的:シート1からシート5までの表の値をシート6に一覧表を作成させる。 ・シート1からシート5まで シート内の表からセル値をコピーしてマクロで(ボタンか何かで)シート6にシート1からシート5のセル値を貼り付けていくような動作をさせられるようなプログラムをつくりたいです。    表(一覧)を作成させたいので わかる方プログラミングを教えてください。よろしくお願いします。

  • Excel 隣接しない列に値貼り付け

    Excel 隣接しない列に値貼り付け ※「Excel 隣接しない列に一発で値貼り付け」の書き直しです。 ある一定の書式にしたがって作成された20~30のシートのデータを1つのシートに集約しており(集約シートを含み全てのシートは同じデータ内です。)、データを集約した集約シートの「表A」は下記の添付画像左側のようになります。 やりたいことは、「表A」のB列、C列、D列、E列をある条件のもとに右側の「表B」のH列、J列、L列、N列に値の貼り付けを行いたいのです。 現在の作業工程は、C列の空白行は必要ないため(C列が空白=他の列も空白)C列に文字入力があるとチェックが入るA列のオートフィルターで、「○」のみ表示にし、B~E列を順にそれぞれ、2行目からデータが記載された最終行までコピーし 「表B」のそれぞれの箇所に値貼り付けを行っています。 この時の注意点として、A列のオートフィルタ利用のためC列には空白がありませんが、B、D、E列には空白が存在します。 データがある最終行以下の空白は必要ありませんが、データ間の空白には意味があります。(下記の図で示すと「B3、4」や「D3、4」) 現在の作業工程でも問題はないのですが、この作業は最初に記載した20~30のシートに記載されたデータの校正に使うため取りこぼしをしたくなく、不特定多数の方が簡単に使えるようにしたいので、どうにか作業工程を減らしたいと考えています。 よろしくお願いします。 ▼書式シート *シートの数は増減する。 *集約シートが参照するセルには、必ずデータが入力されているわけではない。 *入力データは全て数値ではなく文字である。 ▼集約シート *他のブックと共通使用なため、一部の式は他のブックへのコピーに対応する形である。 *空白セルを参照している場合に結果として返される「0」は、オプション設定で非表示にて対応 *「表A」の行長は増減する。 *貼り付け先「表B」の列は飛び飛びである。 ▼ちなみに「表A」に使われている計算式(実際とは一部変えています) ■A列  :C列に文字入力がある場合「○」が表示されます     {=IF(OR($C1>""),"○","")} ■B-E列:他のシートの任意のセルの値をコピー     {=IF(ISERROR(INDIRECT("'シート名'!セル")),"",INDIRECT("'シート名'!セル"))} PC環境:Win XP / Excel 2003

  • エクセルでマクロを使用してシート2の表から行単位でシート1の表の指定位

    エクセルでマクロを使用してシート2の表から行単位でシート1の表の指定位置に値を表示させたい シート2の A列に番号(連番) B列に商品名(数字とアルファベットの組み合わせ) C列に仕入先(数字4桁) D列にメーカー(数字4桁) E列に区分(数字とアルファベットの組み合わせで3ケタ) が入っていて約5,000行のデータが有ります。 シート1にレイアウトした表があって シート1のB4にシート2のA2の値(番号連番) シート1のB5にシート2のB2の値(商品名) シート1のB6にシート2のC2の値(仕入先) シート1のB7にシート2のD2の値(メーカー) シート1のB8にシート2のE2の値(区分) が表示されるようにしてあります。 マクロを利用して、作成したシート1のボタンを押すと シート1のセルB4の番号欄が1から2(シート2のA3の値)に繰り上がり、 シート1の表のA列の番号と同じ行のそれぞれの値を 上記の規則で表示させるようにできますか? シート1のB4が2になるとシート1の3行目をさしますので シート1の表には、 シート1のB4にシート2のA3の値(連番) シート1のB5にシート2のB3の値(商品名) シート1のB6にシート2のC3の値(仕入先) シート1のB7にシート2のD3の値(メーカー) シート1のB8にシート2のE3の値(区分) が表示されます。 シート1のボタンをクリックするごとにB4のセルは3,4,5,6と繰り上がり シート2のA列の番号と一致した行のそれぞれの値を表示させていく。

  • エクセル 特定の行を表示させるには…続きです。

    このような質問を立て続けに申し訳ありません。 やってみたのですが、どうしてもSheet2に表示されません。 関数式を入れる際、値などを間違えているのだと思うのですが、 どこが間違えているかわからないので、ご指摘いただければありがたいです。 どうぞよろしくお願いいたします。 画像添付のやり方がわからないので、下記URLに作成中のものを入れました。 これでご指摘をいただけるかわかりませんが、よろしくお願いします。 このような質問を立て続けに申し訳ありません。 やってみたのですが、どうしてもSheet2に表示されません。 関数式を入れる際、値などを間違えているのだと思うのですが、 どこが間違えているかわからないので、ご指摘いただければありがたいです。 どうぞよろしくお願いいたします。 画像添付のやり方がわからないので、下記URLに作成中のものを入れました。 これでご指摘をいただけるかわかりませんが、よろしくお願いします。 http://yahoo.jp/box/PRw0Wx 依頼者=Sheet1、作業シート=Sheet2 となっています。 作業シートのA4セルの関数式を見ていただきたいのですが、 教えていただいたように自分のデータで該当するものを入れてみたんですが… 違うらしく、表示されません>< ちなみに、Sheet1の作業列にはきちんと値が表示されています。 Sheet2のA2に●が入っていますが、ここに海外と入れると、ちゃんと番号が出ます。 依頼者=Sheet1、作業シート=Sheet2 となっています。 作業シートのA4セルの関数式を見ていただきたいのですが、 教えていただいたように自分のデータで該当するものを入れてみたんですが… 違うらしく、表示されません>< ちなみに、Sheet1の作業列にはきちんと値が表示されています。 Sheet2のA2に●が入っていますが、ここに海外と入れると、ちゃんと番号が出ます。

  • エクセルのデータベースで参照・貼り付け

    エクセル2003で、データベースを作成してあります。 別のシートに、コードを入力すると、データベースを参照して関連の項目を貼り付けるという作業したいと思っています。 例 シート2にデータベース住所録を作成。 [コード][氏名][住所][電話]... シート1の[A]列にコードを入力すると、データベースから氏名をコピーし[B]列に貼り付け...[C]列に住所... ※貼り付けたデータを後で編集したいため、貼り付けで行いたいと思います。 ※マクロではなくて、関数で行いたいと思います。 ※実際には住所録ではなくて、在庫管理です。 よろしくお願いいたします。

  • リンク貼り付けをマクロで簡素化したい

    1)個人票ブック(太郎シート 花子シート 次郎シー・・・・・)の各シートのA1からA5まで、値や公式がはいっています。 2)このシートのA1からA5までの値等を、別の総括表ブック(一枚のシートしかない)にリンク貼り付けをします。 3)まず、太郎シートのA1~A5までは、総括表ブックのB列にリンク貼り付けするマクロボタンを、太郎シートに設置します。 4)さらに、花子シートのA1~A5までは、総括表ブックのC列にリンク貼り付けするマクロボタンを、花子シートに設置します。 5)そして、次郎シートのA1~A5までは、総括表ブックのD列にリンク貼り付けするマクロボタンを、次郎シートに設置します。 6)こうしてマクロボタンを順次貼り付けていきます。 7)各シートの貼り付け場所は列に貼り付けていきますが、上から順番ではなく、任意に飛んでいますが、  各シートの行は、みな一律で同じ行です。 列は違っても皆おなじ行にリンク貼り付けしたいです。 このような操作をマクロ記録でつくりましたが、膨大な作業が必要です。これをなんとかVBAで簡素化したいのですが・・よろしくお願いします。

  • vbaで最終行に張り付け

    Excelマクロについて教えてください。 sheet2にsheet1から選択した範囲を貼り付けております sheet2のC列が連続した値になっておりそれを軸に貼り付けをしたいのです。 sheet1のA1:g40の範囲をcutしたものを sheet2のC列の最終入力行の一段下の行に A列から貼り付けしたいのです。 よろしくお願いします

このQ&Aのポイント
  • 購入した製品であるZERO スーパーセキュリティを使用しているが、オフィスWi-Fiネットワークの表示が出るため、家族それぞれのパソコンに設定しても問題ないか疑問がある。
  • 在宅で仕事をしている個人事業主が、家族それぞれにパソコンを所有している場合、オフィスネットワークとして設定することは可能か疑問がある。
  • 3台のパソコンのうち1台は仕事用であり、ZERO スーパーセキュリティを使用しているが、オフィスWi-Fiネットワークの表示が出るため、家族のパソコンにも同様に設定しても良いか疑問がある。
回答を見る

専門家に質問してみよう