エクセル、フィルタ後の行のみを反映させる方法

質問

フィルタ後の行のみを自動で別シートに反映させる方法を教えてください！！

回答No.1

keithin · ベストアンサー

シート１に元リストを作る

Ａ１セルにNo.と記入する
Ａ２セルに
=IF(SUBTOTAL(3,B2),SUBTOTAL(3,$B$2:B2),"")
と記入し，リストの下端までコピーしておく
Ｂ列以降に表を配置し，仮にＪ列まであるとする。

シート２に抽出後を転記させる
シート１の１行目をコピーし，シート２のＡ１に貼り付ける
シート２のＡ２に
=IF(ROW(A1)>MAX(Sheet1!A:A),"",ROW(A1))
と記入し，リストの最大行までコピーしておく
シート２のＢ２に
=IF($A2="","",VLOOKUP($A2,Sheet1!$A:$J,COLUMN()))
と記入し，右に下にコピーしておく。

お礼

ばっちりできました！！
ありがとうございます！！！