[[20171012205012]]　『VBA?　行のデータ有無で、行を取り出し、各シート』（セブン☆）　ページの最後に飛ぶ

『VBA?　行のデータ有無で、行を取り出し、各シートに抽出する』（セブン☆）

行ごとにデータの有無を基準にして、各シートに
データを取り出すことは可能でしょうか。

いろいろな掲示板をみて、似たようなものはあったのですが
貼り付け先のシートに順次足されていくような形にすることが
できず、お手上げです。

詳しくは、元データのシートがあり、あるセルのデータ有無を基準に
別シートにそれぞれコピーする。
別日の作業で、元データをいったん消して、次も同様の元データを貼り付けデータ有無を基準に振り分ける。その際振り分けたシートのデータは以前の振り分けたデータのすぐ下から始まるようにしたいです。

列
有｜・｜・｜シート1に
無｜・｜・｜シート2に
有｜・｜・｜シート1に
無｜・｜・｜シート2に
無｜・｜・｜シート2に

データなしは空白のセルです

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

オートフィルタで抽出しその結果を転記します。

有りの場合は

 Sub test()

    With Range("a1").CurrentRegion
        .AutoFilter 1, "<>"
        If .Columns(1).SpecialCells(xlCellTypeVisible).Count > 1 Then
            .Offset(1).Copy Sheets("sheet1").Range("B" & Rows.Count).End(xlUp).Offset(1)
        End If
        .AutoFilter
    End With

 End Sub

これに、無しの場合を追加するとよいです。

（マナ） 2017/10/12(木) 21:40

コメント返信：

[ 一覧(最新更新順) ]

[[20171012205012]] 『VBA? 行のデータ有無で、行を取り出し、各シート』（セブン☆） ページの最後に飛ぶ

[[20171012205012]]　『VBA?　行のデータ有無で、行を取り出し、各シート』（セブン☆）　ページの最後に飛ぶ