エクセルのマクロで（１）

質問

エクセルのマクロで下記のようなことはできますか？
なんかとても複雑なような気がしますがもしご存知の方よろしければご教授下さい。

　　A　　B　　C　　D
１名前　品名　数量　日付　←タイトル
２山田　たこ　　３　　日付
３山田　たこ　　２　　日付
４山田　いか　　１　　日付
５佐藤　たこ　　２　　日付
６佐藤　なす　　５　　日付

となっていた時に下記のようにしたいのです。

　　A　　B　　C　　D
１名前　品名　数量　日付　←タイトル
２山田　たこ　　５　　日付
３　　　　いか　　１　　日付
４佐藤　たこ　　２　　日付
５　　　　なす　　５　　日付

説明：
・１行目はタイトルです
・名前が重なっているのを上の行に１つ入るようにする。
・山田さんのように同じ＜たこ＞がある場合、数を足して＜たこ＞は１つに合計する。ただし佐藤さんの＜たこ＞とは合わせない。
・数を合わせた後３行目はスペースが空くのでBに合わせてBが無記入の行のみ詰める。

さらにこんなことができましたら別で構いませんので同時にご教授していただけるととてもありがたいです。

別ファイル（食べ物＜日付＞.xls）をファイル名にできれば日付が入るように自動作成して
A2から品名数の集計を貼り付ける

　　A　　B　　C　　D
１品名　合計　　　日付
２たこ　７　　　　　日付
３いか　１　　　　　日付
４なす　５　　　　　日付

だいぶ複雑そうですが何卒宜しくお願いいたします。

回答No.6

toshi_2000 · ベストアンサー

No.5です。以下の通り。
for i=cells(1,1).end(xldown).row to 3 step -1
If Cells(i, 1) = Cells(i - 1, 1) Then
Cells(i, 1)=""
End If
If Cells(i, 5) = Cells(i - 1, 5) Then
Cells(i, 5)=""
End If
next

回答No.5

toshi_2000

No.4です。空白にする方法です。
for i=cells(1,1).end(xldown).row to 3 step -1
If Cells(i, 1) = Cells(i - 1, 1) Then
Cells(i, 1)=""
End If
next

お礼

度々大変ありがとうございます。ただ試してみたところ例えば今回の例だと山田さんが数人いた場合でも１名の山田さんしか残らなくなってしまうのですが、例えば同じ山田さんでも顧客番号が異なる場合に顧客番号優先で番号が同じところ⇒同一人物の山田さんは１つだけ残して後は消すといった感じにしたいのですが可能でしょうか？さらにできれば日付のようなまったく同様に並んでしまうところも客番に合わせて消したいのですが...

例：
　 　A　　　B　　　C　　　D　　　　E
１ 客番　名前　品名　数量　日付←タイトル
２ s001　　山田　たこ　　３　　日付
３ s001　　山田　たこ　　２　　日付
４ s001　　山田　いか　　１　　日付
５ s003　　山田　なす　　１　　日付
６ s005　　鈴木　たこ　　２　　日付
７ s005　　鈴木　なす　　５　　日付
８ s999　　鈴木　いか　　５　　日付
・
・

↑これがこんな感じになる↓

例：
　 　A　　　B　　　C　　　D　　　　E
１ 客番　名前　品名　数量　日付←タイトル
２ s001　　山田　たこ　　５　　日付
３ 　　　　　　　　 いか　　１　
４ s003　　山田　なす　　１　　日付
５ s005　　鈴木　たこ　　２　　日付
６ 　　　　　　　　 なす　　５　
７ s999　　鈴木　いか　　５　　日付
・
・

度々すみませんが何卒宜しくお願いいたします。

回答No.4

toshi_2000

No.3です。以下の通りです。
If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 5) = Cells(i - 1, 5) Then
Cells(i - 1, 6) = Cells(i - 1, 6) + Cells(i, 6)

お礼

大変ありがとうございました。無事できました！もしよろしければ同じ名前を一番上の一つだけ残して空白にする方法と２つ目の

別ファイル（食べ物＜日付＞.xls）をファイル名にできれば日付が入るように自動作成してA2から品名数の集計を貼り付ける

はご存知でしょうか？何卒宜しくお願いいたします

回答No.3

toshi_2000

No.1です。
名前の３行目、５行目は空白にしていませんが、次の通りです。

i = 3
Do Until Cells(i, 1) = ""
If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 2) = Cells(i - 1, 2) Then
Cells(i - 1, 3) = Cells(i - 1, 3) + Cells(i, 3)
Rows("" & i & ":" & i & "").Delete Shift:=xlUp
i = i - 1
End If
i = i + 1
Loop

お礼

ありがとうございます。こちらの例でやってみたらバッチリうまくいきました。ただこの応用がどうしてもできないのですが、Eに品名、Fに数量といった場合どのようにすれば良いでしょうか？
何卒宜しくお願いいたします。

回答No.2

imogasi

>なんかとても複雑なような気がしますが
いえいえ簡単です。基本情報処理の試験の、コントロール・ブレーク
処理（普通は明細をそのままにして合計・小計を出したりする）のロジックの多少変形版です。パソコン以前はコンピュターはこんなことばかりしていたケースが多かったのではと思います。
個人別品別合計表など
（１）処理をしやすくするために＜A,B列でソートします。VBAでもできますが手操作でやります。ソートキーはA列＋B列です。
（２）A、B列をあわせたものをキーとして考えます。
直前行と比較し、変われば出力、変わらなければ計数足しこみです。
Sub test01()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Worksheets("Sheet2")
Set sh2 = Worksheets("Sheet3")
'---
j = 2
m = sh1.Cells(2, "A") & sh1.Cells(2, "B")
t = sh1.Cells(2, "C")
d = sh1.Range("a65536").End(xlUp).Row
MsgBox d
'----
For i = 3 To d
k = sh1.Cells(i, "A") & sh1.Cells(i, "B")
If k = m Then
t = t + sh1.Cells(i, "C")
Else
sh2.Cells(j, "A") = sh1.Cells(i - 1, "A")
sh2.Cells(j, "B") = sh1.Cells(i - 1, "B")
sh2.Cells(j, "C") = t
sh2.Cells(j, "D") = sh1.Cells(i - 1, "D")
t = sh1.Cells(i, "C")
j = j + 1
End If
m = k
Next i
sh2.Cells(j, "A") = sh1.Cells(i - 1, "A")
sh2.Cells(j, "B") = sh1.Cells(i - 1, "B")
sh2.Cells(j, "C") = t
sh2.Cells(j, "D") = sh1.Cells(i - 1, "D")
End Sub
佐藤 たこ 2 日付
佐藤 なす 5 日付
山田 いか 1 日付
山田 たこ 5 日付
第１行目は元シートの第１行目を貼り付けてください。
VBAでもできます。
同じ名前を空白にするのは、略。全行と同じ場合条件付き書式白色でも良い。
問題は山田・佐藤の順だが、別途何かのコード列がないと山田を先にできない。
後半も同じ考えでできるが略。

お礼

大変ありがとうございました。１つ目の方は無事できました！もしよろしければ同じ名前を空白（一番上の一つだけ残して、また山田・佐藤の順はいづれでも大丈夫です）にする方法と２つ目の

別ファイル（食べ物＜日付＞.xls）をファイル名にできれば日付が入るように自動作成してA2から品名数の集計を貼り付ける

はご存知でしょうか？何卒宜しくお願いいたします。

回答No.1

toshi_2000

マクロで可能です。
貴方のマクロの理解度がわかりませんので、
一から十までマクロを教えるのか、またはどういう風に処理したら
いいのかの概要だけでいいのか、どちらでしょうか。

お礼

早速のご回答ありがとうございます。ド素人なのでマクロをそのまま教えていただければありがたいです。質問は例ですので実際にはさらにありますが、こちらのマクロが分かれば何とか応用できると思います。
何卒宜しくお願いいたします。