一回のマクロで 移動できないでしょうか
_____________
A B C D
1 日付 コード 仕入れ金額 数量
2 10/2 0098 20 9
3 10/2 0008 21 9
4 10/3 0128 23 10
5 10/4 0098 24 9
6 10/9 0128 23 12
コード0098のデータ行を sheet2 へ
コード0128のデータ行を sheet3 へ
コード0008のデータ行を sheet4 へ
コピーか 移動できないでしょうか?
よろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
こんばんは。
こんなことかな?一応、コピーにしてあります。
コードには、抜け落ちがないものという前提にしてあります。
Sub TurnOverCodeClassifying()
Dim myCodes() As Variant
Dim c As Range
Dim Ret As Variant
Dim i As Long
Dim j As Integer
myCodes() = Array("0098", "0128", "0008")
With ActiveSheet
'タイトル行の貼り付け
For j = 2 To 4
.Rows(1).Copy Worksheets("Sheet" & j).Rows(1)
Next j
For Each c In .Range("B2", Range("B65536").End(xlUp))
On Error Resume Next
Ret = WorksheetFunction.Match(c.Text, myCodes, 0)
On Error GoTo 0
If Ret <> Empty Then
i = Ret + 1
c.Offset(, -1).Resize(, 4).Copy _
Worksheets("Sheet" & i).Range("A65536").End(xlUp).Offset(1)
Ret = Empty
End If
Next c
End With
End Sub
ひえー!(◎∀◎)すごい!
いまやって見ました~~~できましたできました!!
ほんとにありがとうございました~~~
このコード見るのは初めてですわ~~
No.1
- 回答日時:
>数値別 とは 上記例では、コード別のことか。
数量ごとか。数量のことの場合、数量は段階別になるのか、数量は整数値で限られた種類なのか。
数量の種類だけ、シートに振り分けるのか。
それであれば、数量でソートして、数量が変わるごとにSheetを変える(Sheetのインデックスを1増やす)すればよいと思う。
>一回のマクロとは、1つのプロシージュアーのことか(1本のプログラム)。
移すのは、セルの値だけで良いのでしょう?
この回答への補足
はいコード別に 仕分けを 行いたいのですが
コピーする値は、行単位で
すみません わたし 初心者で 伝わらなかったらごめんなさい
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Visual Basic(VBA) VBA For Each 〜 複数条件について 3 2022/10/20 20:05
- Visual Basic(VBA) VBA active sheetをPDF化して指定フォルダに保存 1 2022/07/07 11:27
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Visual Basic(VBA) VBA 別sheetからの転記なのですが 2 2023/05/22 15:55
- Visual Basic(VBA) VBA Userform転記のみ編集可 1 2023/06/29 11:03
- Excel(エクセル) 表内で、Enterキーで横→行の最後入力したら次の行の先頭に移動するマクロを作りたい 3 2022/05/01 21:19
- その他(プログラミング・Web制作) python OpenPyXLを使って出力結果をエクセルに書き込み 2 2022/06/04 19:46
- Excel(エクセル) 【マクロ】PasteSpecialメソッドにて、コードが動かない理由が分かりません 2 2023/08/15 20:47
- Excel(エクセル) SUMIFSと日付変換 10 2023/04/16 15:38
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
数学 Tan(θ)-1/Cos(θ)について...
-
スマートな関数を教えて下さい。
-
Excel ウインドウ枠の固定をす...
-
EXACT関数とIF関数の組み合わせ...
-
4つのパターンを表示するEXACT...
-
関数を教えて下さい。
-
Excel:一部のフォントでセルの...
-
エクセルで指定した日付、店舗...
-
エクセルでセルに「氏名を入力...
-
Excel 2019 のピボットテーブル...
-
スプレッドシートの関数VLOOKUP...
-
エクセルで日付の入ったセルの...
-
Excelファイルの「数式」タブ→...
-
excelの不要な行の削除ができな...
-
Excelのif関数で文字が見えなく...
-
各ページの1番上の表示について
-
エクセル関数に詳しい方、教え...
-
INDIRECTを使わず excelで複数...
-
Excel 2019 は、SPILL機能があ...
-
UNIQUE関数が使えないバージョ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ファイル内にある数字の出現回...
-
Excel関数の先頭に「@」が入っ...
-
エクセルの気味悪い不思議
-
Excel VBAで、実行時にsheet上...
-
表示されている人数だけを数え...
-
他人が作ったマクロの理解
-
Excelの関数について質問です。
-
Excel 集計表
-
エクセル 日時の計算式について
-
Excelの関数に関して質問です。...
-
エクセル:セル内の文字列の下...
-
絞り込み検索
-
エクセルの関数で
-
エクセルの書式設定について教...
-
余分なEXCELファイルに印刷され...
-
VBA 同一シート内での転記の仕方
-
長期休みの関数はありますか
-
Excelの空のセル
-
エクセルで入力してある文を別...
-
Excelのマクロで、セルを結合し...
おすすめ情報