[[20141031123851]]　『オートフィルタ後の表示されている行だけをコピー』（ぱんち）　ページの最後に飛ぶ

『オートフィルタ後の表示されている行だけをコピー(マクロ無しで)』（ぱんち）

マクロを使用しないで、以下の事が出来るでしょうか。
もし数行で実現出来る様ならばマクロでも結構です。
あまりに関数だけでは難しい様であればマクロ検討しますが、
出来るだけ使いたくないので。
すみませんが宜しくお願い致します。
SHEET1に下の様なデータが入っています。
D列に何か入っている行だけを、別のSHEET2の先頭に
コピーしたいのですが、どうすれば良いでしょうか。
SHEET1の１行の見出しはあっても無くても良いです。

   A     B       C            D
1 No.  内容１  内容２        数量 
2    1 data１  data１０１       
3    2 data２  data１０２     11
4    3 data３  data１０３       
5    4 data４  data１０４     12
6    5 data５  data１０５

＜使用 Excel：unknown、使用 OS：unknown ＞

 オートフィルタでD列の抽出条件を「空白以外のセル」にして
 表示された範囲をコピーしてシート2に貼り付けるというのでは
 だめなのでしょうか？
（se_9） 2014/10/31(金) 13:00

すみません、説明が悪かったです。
手操作で張り付けるのでなく、張り付く場所に関数等を埋め込んで
出来れば操作がなく、やりたいのですが出来ませんか。
（ぱんち） 2014/10/31(金) 13:58

 表題と中身があっていないようだが？

 オートフィルタで表示している行だけを持ってくるのか、オートフィルターにはかかわりなくD列に何か入っている行を
 持ってくるのか、オートフィルターで表示している行内でD列に何か入力されている行を持ってくるのか？
（ねむねむ） 2014/10/31(金) 14:13

度々すみません。
オートフィルターにはかかわりなくD列に何か入っている行を
持ってくると言う事です。
オートフィルタは、ある意味関係ありません。
オートフィルタを使えば、絞れて、持って来るのに簡単になるかな？と
思っただけです。
（ぱんち） 2014/10/31(金) 16:04

 それなら
[[20141030194553]]
 のねむねむさんの式でできると思います。

 Sheet2のA1セルに =IFERROR(INDEX(Sheet1!A$1:A$1000,SMALL(IF(Sheet1!$D$1:$D$1000="","",ROW($A$1:$A$1000)),ROW(A1))),"")
 Ctrl + Shift + Enter で確定
 右と下にフィルコピー
（se_9） 2014/10/31(金) 16:17

すばらしいです。出来ました。
なんかとても難しい内容でしたが、おぼろげながらわかるような、、、
そんな程度でした。関数を配列として入力するなんてのは初めて知りました。
どうも有り難う御座いました。
（ぱんち） 2014/10/31(金) 21:31

コメント返信：

[ 一覧(最新更新順) ]

[[20141031123851]] 『オートフィルタ後の表示されている行だけをコピー』（ぱんち） ページの最後に飛ぶ

[[20141031123851]]　『オートフィルタ後の表示されている行だけをコピー』（ぱんち）　ページの最後に飛ぶ