[[20190111095428]] 『フィルターで抽出したデーターを別シートに貼付す』(ココア) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『フィルターで抽出したデーターを別シートに貼付するマクロ』(ココア)

フィルターで抽出したデーターを別シートに貼付するマクロを教えて下さい!

抽出シートで抽出したデーター(2行目〜/A列〜AB列まで)を、シート1の最終行下に貼付したい。
・抽出しても、抽出したデーターの下に「#VALUE!」がA〜C列/500行目まで入ってます。抽出データー以外の「#VALUE!」が入っている行はコピーしたくありません。
・表の罫線も500行目まで入ってます。
・セルに入力があるのはA〜X列までで、Y〜AB列のセルには何も入力はありません。しかし罫線が引かれていて表としてシート1では必要なのでこの部分もコピペしたいです。
・入力データーだけでなく、罫線/書式設定もそのままにシート1へ貼り付けたいです。

よろしくお願いいたします。

< 使用 Excel:Excel2010、使用 OS:unknown >


>フィルターで抽出したデーター

具体例をあげて説明できませんか。

>抽出しても、抽出したデーターの下に「#VALUE!」がA〜C列/500行目まで入ってます。

どんな状態かイメージできません。
フィルタかける範囲を500行目までにしていないのでしょうか。

(マナ) 2019/01/11(金) 18:22


マナさんのコメントとかぶりますが、いくつか確認です。
1.「フィルターで抽出した」とは、どのような状態ですか?
 オートフィルタなのかフィルタオプションなのか、そのほかのものなのかという確認です。

2.「抽出しても、抽出したデーターの下に」とはどのような状態ですか?
 オートフィルタであれば、オートフィルタが設定されている範囲より下に数式が入ってるんでしょうけど・・・

3.オートフィルタだとして、オートフィルタをかける設定や抽出は手動でされるという理解でよいですか?

(もこな2) 2019/01/11(金) 19:41


マナさま、もこな2さま、返信ありがとうございます!
上手く伝えられる自信がないのですが、、、

◼️手動/E列のオートフィルター(色フィルター>セルの色>塗りつぶしなし)

〈抽出前〉

      A      B      C     D    E
1行目 都道府県、市町村、エリア、コード、品名
2行目 東京、新宿、北、100、(塗りつぶし有り)
3行目 東京、新宿、北、100、(塗りつぶし無し) ←抽出する
4行目 東京、渋谷、南、200、(塗りつぶし有り)
5行目 東京、渋谷、南、200、(塗りつぶし無し) ←抽出する
6行目 千葉、幕張、東、300、(塗りつぶし無し) ←抽出する

〈抽出後〉

      A      B      C     D    E
1行目 都道府県、市町村、エリア、コード、品名
3行目 東京、新宿、北、100、(塗りつぶし無し) ←抽出する
5行目 東京、渋谷、南、200、(塗りつぶし無し) ←抽出する
6行目 千葉、幕張、東、300、(塗りつぶし無し) ←抽出する
7行目 #VALUE!、#VALUE!、#VALUE! ←この場合7行目以下、コピー不要
 〜
500行目#VALUE!、#VALUE!、#VALUE!

*A〜C列は、D列/コードを参照した決まった文字列を返すような式が入力されており、E列に入力がない場合は「#VALUE!」と表示されています。
*式と、罫線が500行目まで入ってます。この仕様は変えられません…。
*現在はオートフィルターで抽出して、必要な範囲をコピーして、別シートの最終行下に貼付しています。

宜しくお願いします!
(ココア) 2019/01/12(土) 03:32


D列「#VALUE!」以外
とか
E列「空白」以外
をフィルター条件にできませんか

(マナ) 2019/01/12(土) 09:44


マナさま
オートフィルターを「E列/塗りつぶしなし」→「D列「#VALUE!」以外 」で設定していけば出来ると思います。
(ココア) 2019/01/12(土) 13:14

深く考えないで全範囲をコピーすると
抽出された範囲だけが転記されます
 Range("A2:AB500").Copy Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1)

(マナ) 2019/01/12(土) 13:26


マナさま、ありがとうございます!!感謝です☆
(ココア) 2019/01/12(土) 14:05

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.