[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.