先日 回答していただいたのですが、データが初期化されず 追加登録もできるように できないでしょうか?
たびたびすみません よろしくお願いします。
A B C D
1 日付 コード 仕入れ金額 数量
2 10/2 0098 20 9
3 10/2 0180 21 9
4 10/3 0128 23 10
5 10/4 0089 24 9
6 10/9 0123 23 12
コード0099以下のデータ行を sheet2 へ
コード0100~0149のデータ行を sheet3 へ
コード0150以上のデータ行を sheet4 へ
値だけを貼り付けできないでしょうか?
よろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
こちらが提示したサンプルはまるで無視で、前回の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
の「ここ」または4行全部を削除又はコメントアウトすれば、毎回消えなくなるけど。
No.1
- 回答日時:
以前の回答がどういったものか不明ですので、どんな回答であったか、または 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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Visual Basic(VBA) VBA active sheetをPDF化して指定フォルダに保存 1 2022/07/07 11:27
- Visual Basic(VBA) VBA Userform転記のみ編集可 1 2023/06/29 11:03
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- その他(プログラミング・Web制作) python OpenPyXLを使って出力結果をエクセルに書き込み 2 2022/06/04 19:46
- Visual Basic(VBA) VBA For Each 〜 複数条件について 3 2022/10/20 20:05
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) VBA 別sheetからの転記なのですが 2 2023/05/22 15:55
- PHP PHPSpreadsheetによる書き出し時のページネーション方法について 1 2023/03/20 10:35
- Visual Basic(VBA) Excel VBA マクロ ある列の最終行迄を参照し、別の列の空白セルに値を入力したいです 2 2023/03/05 02:44
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで長い行を5行ごとに1...
-
【エクセル】区切り文字が含ま...
-
差し込み印刷で文字列が「0」と...
-
エクセルの関数で範囲のある数...
-
SUMIFS関数の計算結果が違います
-
エクセルで列にあるユニークな...
-
エクセルにおいて、数値が入っ...
-
COUNTIFS関数で日付データを数...
-
wordデータを、excelに自動で入...
-
Excelデータに自動でリンクが張...
-
エクセル 貼り付け時の文字化け
-
テキストデータのPDFをWordで開...
-
【Excel VBA】ユーザーフォームで選択...
-
エクセルで日付表示になったも...
-
Excelエクセルが勝手に10MBにな...
-
膨大なデーターの変更点のみ抽...
-
エクセル 種類の個数をカウン...
-
256列以上のデータを作成し、ワ...
-
【Excel2007、外部データの取り...
-
エクセル マクロ 1行おきの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで長い行を5行ごとに1...
-
【エクセル】区切り文字が含ま...
-
エクセルの関数で範囲のある数...
-
差し込み印刷で文字列が「0」と...
-
COUNTIFS関数で日付データを数...
-
エクセルで列にあるユニークな...
-
SUMIFS関数の計算結果が違います
-
オブジェクトブラウザでデータ...
-
テキストデータのPDFをWordで開...
-
エクセルでプルダウン選択され...
-
エクセル 貼り付け時の文字化け
-
エクセルで時間の合計ができません
-
斜めの貼り付け
-
エクセルのマクロで他のシステ...
-
0:00をカウントしない方法
-
DBで改行が入っているデータをE...
-
エクセルの1行目を固定したい...
-
wordデータを、excelに自動で入...
-
膨大なデーターの変更点のみ抽...
-
使用しているエクセルデータか...
おすすめ情報