• 締切済み

エクセルのオートフィルタについて　マクロ

宜しくお願いします。 シート「B5」から「AV504」にデータが入っています。（A列にはA5からNo.を入力しています） マクロで「I」列の条件が「成約済」または「ボツ」であれば、B5からAV504の該当行データを クリアし、（すべての行ではなく、B～AV列までクリア（×削除））さらに、クリア後のB列から AV列の空白行を上に詰めてなくしたい（最下行までの空白をなくしたい）のですが、可能で しょうか。 宜しくお願いいたします。

画像を拡大する

みんなの回答

  • KURUMITO
  • ベストアンサー率42% (1835/4283)
回答No.1

マクロを組まれるほどのこともないでしょう。関数を使って別のシートにお望みの表を作るようにしてはどうでしょう。 例えばシート1にお示しの表があるとします。そこでシート1のAW列は作業列としてAW5セルに次の式を入力して下方にオートフィルドラッグします。 =IF(OR(I5="成約済",I5="ボツ",COUNTBLANK(B5:H5)+COUNTBLANK(J5:AV5)=46),"",MAX(AW$4:AW4)+1) AW列には番号が表示されますが目障りでしたらAW列を選択して右るりっくし「非表示」を選択すればよいでしょう。 シート2にお望みの表を作るとします。 シート1の3行目まではコピーしてシート2に貼り付けます。またシート1のA列も選択してコピーしシート2のA列に貼り付けます。 その後にシート2のB5セルには次の式を入力して右横方向にオートフィルドラッグしたのちに下方にもオートフィルドラッグします。 =IF(OR(COLUMN(A1)>47,ROW(A1)>MAX(Sheet1!$AW:$AW)),"",INDEX(Sheet1!$B:$AV,MATCH(ROW(A1),Sheet1!$AW:$AW,0),COLUMN(A1))) これでお望みの表がシート2に表示されます。上記の式では空白のセルは0で表示されますがその表示をさせないためにはB5セルへの入力の式を次のようにしてもよいでしょう。 =IF(OR(COLUMN(A1)>47,ROW(A1)>MAX(Sheet1!$AW:$AW)),"",IF(INDEX(Sheet1!$B:$AV,MATCH(ROW(A1),Sheet1!$AW:$AW,0),COLUMN(A1))=0,"",INDEX(Sheet1!$B:$AV,MATCH(ROW(A1),Sheet1!$AW:$AW,0),COLUMN(A1))))

napland
質問者

お礼

ありがとうございました。なるほど、こういう方法もあるのですね。 実は自分で色々やっていたところマクロのほうでも実現する事ができましたが 参考になりました。ありがとうございました。

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. ビジネス・キャリア
  3. 職種
  4. 財務・会計・経理

関連するQ&A

  • エクセルで連番をマクロで

    こんにちは　いつもお世話になっています。 Windows7、エクセル2010で教えてください。 　B3から仮にB100まで文字列があるとします、空白セルはありません。 この状態でA3からA100まで１から始まる連番をマクロで実行したいのです。 実際はB列のデータの最終行は不定です。つまり、B列にデータがなくなるまで（空白セルになるまで）A列に連番をつけたいのです。現在はA3,A4に１，２と入力し、オートフィルで該当セルを選択し「予測」で連番をつけています。 マクロ記録ではB列にデータがなくなる判断ができなくて作れません。 この作業が頻繁にあるものですからマクロができれば助かります。 よろしくお願いいたします。

  • エクセル：マクロの起動条件

    お世話になります。 以下の条件でのマクロを起動する方法、及びそのマクロを教えてください。 《条件》 ブックを開いた時、あるシートのＣ列でデータが入っている最下行の行番号とＡ列のデータが入って最下行の行番号の差が１００以下だった場合、マクロを実行する。 （なおＣ列の行番号の方が必ず大きいです） ちなみに実行したいマクロは１～６の手順です。 １．ブックを開いたとき ２．「入力用」という名前のシートのＣ列でデータが入っている最下行の行番号とＡ列のデータが入っている最下行の行番号の差が１００以下だった場合 ３．「入力用」というシートにかかっているシートの保護をはずし ４．データが入っているＣ列の最下行のＡ～Ｚ列を選択して、５０行分　下にコピーする。 　（例えば、Ｃ列の最下行が３５０行の場合、Ａ３５０～Ｚ３５０まで　を選択したあと４００行まで下にコピーする。） ５．再度シートの保護をかけ ６．Ａ列でデータが入っている最下行の１つ下のセルを選択する ちなみに、２の条件に当てはまらないときはマクロを実行しません。 またＣ列の最下行よりＡ列の最下行が大きい数字になることはないはずですが、もし同じかＡ列の方が大きい場合、「エラー：Ｃ列よりＡ列が大きくなっています」と画面に表示させたい。 なお、行番号の差：１００、選択するＡ～Ｚ行、５０行分下にコピー　は変わる可能性があるので、修正する場合どの部分を修正すればよいかも教えてください。 よろしくお願いします。

  • Excelのオートフィルタでデータ抽出するマクロについて

    オートフィルタで指定した期間のデータ抽出のマクロを作成しているのですが上手くいきません。 例えばA列に １０月２９日 １１月１日 １１月３日 １１月５日 と日付を入力しており、B列、C列にデータを入力していたとして D列１行目に１０月３１日、D列２行目に１１月４日と入力し D列１行目からD列２行目までと指定したデータを抽出するマクロを教えていただけませんか。 マクロ初心者で、困っております。どうかよろしく御願いします。

  • エクセルでマクロの作成

    a列の１行目が『Ｎｏ』の項目名以下の行が空欄になっています。 ｂ列に『あ』があれば同じ行のa列を空白にして、次のｂ行が空欄であれば同じ行のa列に１の数字を、ｂ列の空白行に対しa列には連続番号が入るようにしたいのですが、マクロがどうしてもうまくできません。 どなたか、初心者向けに解りやすい解説と実際のマクロを教えていただけませんか？ 初心者でうまく説明できてないかもしれませんがよろしくお願いします。

  • Excel マクロのオートフィルターについて

    オートフィルターのコピーについて 下記の表で、「種類：空白」と「進捗：良」でオートフィルターで 絞ります。 ※リンゴとバナナが空白です。 <出荷シート> 製品名 種類 担当者 進捗 金額 リンゴ A 良 300 みかん 国産 B 良 100 なし 外国産 B 悪 150 バナナ C 良 80 絞った内容のみ、となりの「果物シート」のA2に貼り付ける場合に どのようなマクロになりますか。 また、7行目以降に行が追加されても対応できるマクロを考えています。 アドバイスお願いいたします。

  • エクセルのマクロを知りたい

    エクセルで，たくさんのデータが入力された【シートａ】があります。 新しく【シートｂ】を作成して，そこに空白の表(1)～(10)までを作成します。 （ちなみに表(1)は１行から始まり１００行まで，表(2)は１０１行から始まり２００行まで・・・・といった感じです） 【シートｂ】の表(1)には，【シートａ】でＡ列に「１」が入力されているデータを抽出して，それをＢ列の昇順に並べて記入しなさい。同様に，表(2)には，【シートａ】でＡ列に「２」が入力されているデータを抽出して，それをＢ列の昇順に並べて記入しなさい。・・・というのを表(10)まで続けます。 上記のような命令をボタン一つで操作できるようなマクロを教えて欲しいのです。 お願いします。

  • エクセル　マクロ　ＶＢＡ

    エクセルのマクロについて質問です。 『集計』というブックの『集計開始』というシートに 　　　　Ａ列　　　　Ｂ列　　　　　Ｃ列 １行目　見出し　　見出し　 　見出し　 　　　　（商品名）　 （支店）　　（個数） 　 　　　　　 ２行目　コメント　 空白　　　　　空白 　 ３行目　空白　　　空白　　　　　空白 ４行目　商品名　　支店　　　　　個数　 ５行目　空白　　　空白　　　　　空白 ６行目　空白　　　空白　　　コメント１ ７行目　空白　　　空白　　　　　空白 ８行目　空白　　　空白　　　コメント２ ９行目以降　　　　上記のデータ（見出しを除く）の繰り返し というデータが入っています。 Ｂ列の中に『ＡＡＡ』という文字が含まれていたら、そのセルを空白に置換し、 含まれていなかったら、そこで処理がとまったりエラーが出たりしないで次のステッップへ進み、 Ｃ列の中に『Ｂ』という文字が含まれていたら、そのセルを空白に置換し、 含まれていなかったら、そこで処理がとまったりエラーが出たりしないで次のステッップへ進み、 （今は、手作業で編集→置換→検索する文字列の中に『Ｂ*』と入力し、 置換後の文字列を空白にしてすべて置換ということをやっています。） 　　　　　　　　　　　　　　　　　　　　　　　　　　 ＡＢＣ列（データーの入っている行まで）の空白を含む行を一括削除し、 以下のような形にしたいのです。 　　　　Ａ列　　　　Ｂ列　　　　　Ｃ列 １行目　見出し　　見出し　 　見出し　 　　　　（商品名）　 （支店）　　（個数） 　 　　　　　 ２行目　商品名　　支店　　　　　個数　 ３行目　商品名　　支店　　　　　個数　 　　　　　　　　・ 　　　　　　　　・ このようにするマクロ文はどのようになりますでしょうか？

  • オートフィルタ後の、マクロでの値の参照に関して

    オートフィルタ後の、マクロでの値の参照に関して 下記を悩んでいます。教えて頂ければ幸いです。 マクロで、あるデーター表から、オートフィルタを使用し、必要なデーターを 抽出し、マクロ内に戻し、その後の計算で使用したいと考えています。 A列、B列、C列にそれぞれ、検索条件を指定し、オートフィルタ後、下記のような状態になります。 参照したい値は、D列になります。 下記のような例では、2.5と2.7の値をマクロ内に戻したいです。 (例：オートフィルタ後) 1行　　A▼　　B▼　　C▼　　D 16行　**　　**　　　**　　2.5　　 20行　**　　**　　　**　　2.7 ＊2～15行目は見えなくなっています。 *17～19行目は見えなくなっています。 セルを参照し、マクロ内に戻すには、どのような構文(マクロ)の記述が必要でしょうか？ 【備考】 ・上記の例では、セルはD16、D20となりますが、抽出条件によっては、行番号が変わってしまいます。 ・抽出後のD列のデーター数は、常に2つです。 よろしくお願いします。

  • エクセルでマクロの記録が出来ません。

    エクセルでマクロの記録が出来ません。 エクセルのＡ列とＢ列に1,000行のデータがあります。 マクロの記録を起動します。 １．Ｂ１セルを選択 ２．右クリックで挿入を選択 ３．Ａ列とＣ列にデータが有り、Ｂ列は空白となる。 ４．Ｂ１セルを選択します。右クリックの貼り付けを選択。 　　マクロの起動前にクリップボードにあらかじめコピーしておいた 　　以下の式を貼り付けます。 　　 　　=IF(A1="","",IF(ISERROR(FIND("-",ASC(A1))),IF(LEFT(ASC(A1),1)<>"9",MID(A1,1,3) &"-"&MID(A1,4,5)&"-"&MID(A1,9,2)&"-"&MID(A1,11,2)&"-"&MID(A1,13,2),IF(LEFT(ASC(A1),2)= "9X",MID(A1,1,3)&"-"&MID(A1,4,11),IF(LEFT(ASC(A1),1)="9",MID(A1,1,5)&"-"&MID(A1,6,5)& "-"&MID(A1,11,2)&"-"&MID(A1,13,2),""))),IF(FIND("-",ASC(A1))=6,A1,MID(A1,1,3)&"-"& MID(A1,4,11)))) ５．「Ctrl」＋「Ｃ」 ６．エクセルの左上の名前ボックスを 　　B1　→　B1:B1000に変更。Ｂ列が選択されます。 ７．「Ctrl」＋「Ｖ」 ８．Ｂ列に式で変換されたデータが入りました。Ｂ列が選択されたままです。 ９．「Ctrl」＋「Ｃ」 １０．右クリックで形式を選択して貼り付けで「値」を選んでＯＫをおす。 　　　セルに入っていた式は全て消えました。Ｂ列が選択されたままです。 １１．マウスポインタをセルのＡ１におく。Ｂ列の選択が解除されました。 マクロの記録を終了 これでＮＯ．４の操作の時に「記録できません」と表示されます。 データを一旦削除し、再度、Ａ列とＢ列にデータを入れて マクロを実行してもデータＢ列がＣ列に移動しＢ列は空白です。 実際にマクロの記録中でもＮＯ．１からＮＯ．１１の操作は出来ています。 なぜ記録されないのでしょうか？ どうすれば記録できますか？ よろしくお願いします。

  • エクセルマクロ、空白行（セル）の挿入

    データがA、B、C、D、E列100行まであります。 このうちD、E列を除き、エクセルのマクロで1行ごとに空白で10行挿入したいです。 （A、B、C、D列のデータに空白セルを10行分挿入し、下にシフトするイメージ。D、E列はそのまま。） ご教授頂きたく、お願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する