[[20190530174840]]　『オートフィルターで絞り込んだ結果だけコピーした』（とぽぽ）　ページの最後に飛ぶ

『オートフィルターで絞り込んだ結果だけコピーしたい(VBA)』（とぽぽ）

　似たような質問を探しましたが見つからず、質問させていただきます。

　別のブックから集計したセルが10以上あり、空白も含まれる。
　オートフィルターで空白以外を抽出しコピーし、別のシートでペースト。
　（オートフィルターの見出し以外コピーしたい）
　
　分かりづらいと思いますがこんな感じです。

　別ブックから集計したシート（合計シート）

　　　　　A　　　　B　　　　C
１　　　通数　　　色　　　名前

２　　　200　　　　青　　　田中

３　　　50　　　

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

↓ご参考になりそうな

Office TANAKA - Excel VBA Tips[オートフィルタ[絞り込んだ行を操作する]]
http://officetanaka.net/excel/vba/tips/tips155d.htm

（白茶） 2019/05/30(木) 18:28

ごめんなさい。途中で更新してしまったので、コメントから打ち直します。
こんな感じです。

　似たような質問を探しましたが見つからず、質問させていただきます。

　別ブックから集計したシート（合計シート）

　　　　　A　　　　B　　　　C
１　　　数　　　　色　　　名前　←（A１からC１がフィルター・見出し）

２　　　200　　　　青　　　田中

３　　　50　　　　黄色　　　山田

４　　　　　　　　白　　　福田

・　　　・　　　　・　　　　・　
・　　　・　　　　・　　　　・　
・　　　・　　　　・　　　　・　

　見出し以外通数から名前までコピーし、別シートにB２から貼り付ける。
　(結果シート)

　　　　　A　　　　B　　　　C　　　　D
１　　　番号　　　通数　　　色　　　名前

２　　　１　　　　200　　　　青　　　田中

３　　　２　　　　50　　　　黄色　　　山田

・　　　・　　　　・　　　　・　　　　・
・　　　・　　　　・　　　　・　　　　・　
・　　　・　　　　・　　　　・　　　　・

　こんな感じで、一つのボタンが（自動フィルター＆コピー＆ペースト）
　出来たらいいなと思っています。
（とぽぽ） 2019/05/30(木) 18:35

回答ではありません。

＞見出し以外通数から名前までコピーし、別シートにB２から貼り付ける。

なぜ、見出しごとコピーではだめなのですか？

（マナ） 2019/05/30(木) 18:40

結果シートには合計シートと異なる表が用意されています。

合計シートから見出しごとそのままコピーしてしまうと、
結果シートの用意された表が崩れてしまいます。

出来るだけ、通数から名前までの結果だけをコピーしたいのです。

（とぽぽ） 2019/05/30(木) 18:50

 この辺とか
[[20120411112157]]　『特定文字を含む行を選択するマクロ』（SG550）

 .Offset(1, 1)　の列と　Columns.Count - 1
 が、本題とずれているような気もするけど。
 AutoFilter.Range で検索すれば色々出てくると思います。
（BJ） 2019/05/30(木) 18:58

コメント返信：