
Excelマクロで実現させたいのですが、どのようにすれば
良いのか悩み中です。
下記のような【ベース】の表を【整形後】に一覧表に
したいと思っています。
記入条件
品番が同じであっても出荷日が違う場合はそれぞれ記入する
品番と出荷日が同じであれば出庫数を足して記入する
これを実現させるにはどのような手順?でマクロを組めば
良いでしょうか?どなたか助けて下さい。
【ベース】
品番 品名 出庫数 出荷日
A-01 りんご 10 2/21
A-01 りんご 10 2/27
A-02 もも 10 2/21
A-02 もも 15 2/21
【整形後】
品番 品名 出庫数 出荷日
A-01 りんご 10 2/21
A-01 りんご 10 2/27
A-02 もも 25 2/21
No.1ベストアンサー
- 回答日時:
こんにちは!
一例です。
Sub Sample1()
Dim i As Long, lastRow As Long, c As Range
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
If lastRow > 1 Then
Range("A:A").Insert
With Range(Cells(2, "A"), Cells(lastRow, "A"))
.Formula = "=B2&""_""&E2"
.Value = .Value
End With
End If
For i = lastRow To 2 Step -1
If WorksheetFunction.CountIf(Range("A:A"), Cells(i, "A")) > 1 Then
Set c = Range("A:A").Find(what:=Cells(i, "A"), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
c.Offset(, 3) = c.Offset(, 3) + Cells(i, "D")
Cells(i, "A").Resize(, 5).Delete shift:=xlUp
End If
End If
Next i
Range("A:A").Delete
Application.ScreenUpdating = True
End Sub
こんな感じではどうでしょうか?
※ 一旦マクロを実行すると元に戻せませんので
別Sheetでマクロを試してみてください。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel・Word リサーチ機能を無...
-
メッセージボックスのOKボタ...
-
ExcelのVBA。public変数の値が...
-
【EXCEL VBA】オートシェイプを...
-
ExcelVBA 図形をクリックした...
-
一つのTeratermのマクロで複数...
-
マクロの連続印刷が突然不可能...
-
非表示の列をすべて削除するマクロ
-
【Excel】複数のマクロをまとめ...
-
エクセルに張り付けた写真のフ...
-
Excelで特定の文字のところで自...
-
UWLSの記録でマクロを作成し使...
-
アクセス マクロ クリップボ...
-
Excel_マクロ_現在開いているシ...
-
オートフィルターとExcelマクロ...
-
Excel マクロ VBA プロシー...
-
Excel 改ページのVBAうまくい...
-
コマンドボタンに二回目のマク...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の列が0表示の場...
-
特定のPCだけ動作しないVBAマク...
-
メッセージボックスのOKボタ...
-
Excel_マクロ_現在開いているシ...
-
一つのTeratermのマクロで複数...
-
マクロの連続印刷が突然不可能...
-
ExcelのVBA。public変数の値が...
-
Excel マクロ VBA プロシー...
-
Excel・Word リサーチ機能を無...
-
エクセルに張り付けた写真のフ...
-
Excelのセル値に基づいて図形の...
-
TERA TERMを隠す方法
-
マクロ実行時エラー
-
ExcelVBAでPDFを閉じるソース
-
wordを起動した際に特定のペー...
-
特定文字のある行の前に空白行...
-
エクセルで縦に並んだデータを...
-
Excel マクロでShearePoint先の...
-
マクロ実行時、ユーザーフォー...
-
ソース内の行末に\\
おすすめ情報