VBA初心者、勉強中です。
よろしくお願いいたします。
こちらのデータを以下のように
A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | |
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
1 | 9/1 | Aさん | クレジット | りんご | 200 | 5 | |||||||||
2 | 9/1 | Aさん | クレジット | バナナ | 100 | 2 | |||||||||
3 | 9/1 | Aさん | クレジット | みかん | 500 | 1 | |||||||||
4 | 9/1 | Aさん | クレジット | すいか | 1000 | 1 | |||||||||
5 | 9/1 | Bさん | 現金 | バナナ | 100 | 10 | |||||||||
6 | 9/1 | Bさん | 現金 | いちご | 500 | 2 | |||||||||
5 | 9/1 | Cさん | 現金 | りんご | 200 | 4 | |||||||||
6 | 9/1 | Dさん | クレジット | すいか | 100 | 2 |
完成イメージ
A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | |
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
1 | 9/1 | Aさん | クレジット | リンゴ | 200 | 5 | バナナ | 100 | 2 | みかん | 500 | 1 | すいか | 1000 | 1 |
2 | 9/1 | Bさん | 現金 | バナナ | 100 | 10 | いちご | 500 | 2 | ||||||
3 | 9/1 | Cさん | 現金 | りんご | 200 | 4 | |||||||||
4 | 9/1 | Dさん | クレジット | すいか | 100 | 2 |
A・B・Cが同じ場合
D・E・Fを後ろにコピー
行を削除し上に詰める
お力をお貸しください。
よろしくお願いいたします。
9/8 追伸 マクロの記録
lang
1Sub Macro1() 2 3 Sheets.Add After:=Sheets(Sheets.Count) 4 Sheets("Sheet1").Select 5 Range("A1:F1").Select 6 Selection.Copy 7 Sheets("Sheet2").Select 8 ActiveSheet.Paste 9 Sheets("Sheet1").Select 10 Range("D2:F2").Select 11 Application.CutCopyMode = False 12 Selection.Copy 13 Sheets("Sheet2").Select 14 Range("G1").Select 15 ActiveSheet.Paste 16 Sheets("Sheet1").Select 17 Range("D3:F3").Select 18 Application.CutCopyMode = False 19 Selection.Copy 20 Sheets("Sheet2").Select 21 Range("J1").Select 22 ActiveSheet.Paste 23 Sheets("Sheet1").Select 24 Range("D4:F4").Select 25 Application.CutCopyMode = False 26 Selection.Copy 27 Sheets("Sheet2").Select 28 Range("M1").Select 29 ActiveSheet.Paste 30 ActiveWindow.LargeScroll ToRight:=-1 31 Sheets("Sheet1").Select 32 Range("A5:F5").Select 33 Application.CutCopyMode = False 34 Selection.Copy 35 Sheets("Sheet2").Select 36 Range("A2").Select 37 ActiveSheet.Paste 38 Sheets("Sheet1").Select 39 Range("D6:F6").Select 40 Application.CutCopyMode = False 41 Selection.Copy 42 Sheets("Sheet2").Select 43 Range("G2").Select 44 ActiveSheet.Paste 45 Sheets("Sheet1").Select 46 Range("A7:F7").Select 47 Application.CutCopyMode = False 48 Selection.Copy 49 Sheets("Sheet2").Select 50 Range("A3").Select 51 ActiveSheet.Paste 52 Sheets("Sheet1").Select 53 Range("A8:F8").Select 54 Application.CutCopyMode = False 55 Selection.Copy 56 Sheets("Sheet2").Select 57 Range("A4").Select 58 ActiveSheet.Paste 59 60End Sub