EXCEL【ＶＢＥ】範囲別にその行を別sheeｔの表に値だけを貼り付け追加登録も出来るようにしたい。

質問

先日 回答していただいたのですが、データが初期化されず　追加登録もできるように　できないでしょうか？
たびたびすみません　よろしくお願いします。

　　　　A　　　B　　　　　C　　　　　　　D
１　　日付　　コード　　仕入れ金額　　　数量
２　　10/2　　0098　　　　20　　　　　　　9
３　　10/2　　0180　　　　21　　　　　　　9
４　　10/3　　0128　　　　23　　　　　　　10
５　　10/4　　0089　　　　24　　　　　　　9
６　　10/9　　0123　　　　23　　　　　　　12

コード0099以下のデータ行を　sheet２　へ
コード0100～0149のデータ行を　sheet３　へ
コード0150以上のデータ行を　sheet４　へ

値だけを貼り付けできないでしょうか？
よろしくお願いいたします。

回答No.2

papayuka · ベストアンサー

こちらが提示したサンプルはまるで無視で、前回のURLを書いて「よろしく」っていう姿勢は如何なもんかと思うけど、、、

ようするにSheet1は毎月データを入れ替えて、Sheet2～4には追加していくって感じでしょうか？
前回の Wendy02氏 の例で言えば

　　　'タイトル行の貼り付け
　　　For j = 2 To 4
　　　　Worksheets("Sheet" & j).Range("A1").CurrentRegion.ClearContents　'←ここ
　　　　　.Rows(1).Copy Worksheets("Sheet" & j).Rows(1)
　　　Next j

の「ここ」または４行全部を削除又はコメントアウトすれば、毎回消えなくなるけど。

お礼

無礼な補足お許しください。
すみませんでした。
そしてほんとうに　papayuka様ありがとうございました

今後気をつけます。

回答No.1

papayuka

以前の回答がどういったものか不明ですので、どんな回答であったか、または QNo を書いて貰えると良いのですが、、、

例はオートフィルタを使ったやり方です。
差分を取るのは大変なので、全置き換えです。
データが減ることは想定してません。

「コード」に前ゼロがあるのが気になります。
ここが文字列扱いだとまともに動作しません。

Sub Test()
With Worksheets("Sheet1").Range("A1")
　　 If Worksheets("Sheet1").AutoFilterMode Then .AutoFilter
　　 .AutoFilter field:=2, Criteria1:="<100"
　　 .CurrentRegion.Copy
　　 Worksheets("Sheet2").Range("A1").PasteSpecial xlPasteValues
　　 .AutoFilter field:=2, Criteria1:=">=100", Operator:=xlAnd, _
　　　　　　　　Criteria2:="<150"
　　 .CurrentRegion.Copy
　　 Worksheets("Sheet3").Range("A1").PasteSpecial xlPasteValues
　　 .AutoFilter field:=2, Criteria1:=">=150"
　　 .CurrentRegion.Copy
　　 Worksheets("Sheet4").Range("A1").PasteSpecial xlPasteValues
　　 Application.CutCopyMode = False
　　 .AutoFilter
End With
End Sub

補足

http://oshiete1.goo.ne.jp/kotaeru.php3?q=1748061

よろしくお願いします