excel2003 VBAマクロの作成

質問

すいません、下記についてコピーして動作する状態でいただけますでしょうか？
本当はもっと複雑なのですが、下記の部分だけなかなかうまくいかず、お力を貸してください。

管理台帳.xlsには↓のように記載があります。

A列 B列 C列 D列
------------------------------------------
管理番号 値段 商品名 数 1行目
K0001 500 X 5 2行目
K0002 200 S 1
K0002 300 T 1
K0003 100 Z 15
K0003 500 X 15
K0003 700 M 15
K0003 600 N 15
・
・ 　　　　　　　n行目
------------------------------------------

■条件/動作要件
・管理番号は商品名別に1行とする為、同じ管理番号は複数行に記載がある
・管理番号1つに対して、商品名は複数ある

マクロの処理内容としては、以下の2つが欲しい
(1)重複計上を避ける為、行の情報がまったく同じものはセル範囲A？:D？の"値"を削除する
※セルや行ごと削除すると、Excel関数を使用しているセルに不具合がでる

(2)2～n行目の範囲をソートする
優先度1：管理番号
優先度2：商品名

※(2)は作成済みなので回答不要です

回答No.1

tom04 · ベストアンサー

こんばんは！
質問の解釈が違っていたらごめんなさい。

＞(1)重複計上を避ける為、行の情報がまったく同じものはセル範囲A？:D？の"値"を削除する
＞※セルや行ごと削除すると、Excel関数を使用しているセルに不具合がでる

に関してはA～D列データが全く同じものについてはA～D列の行を空白にすれば良いのですかね？

一応そういうコトだとしての一例です。

Sub test()
Dim i As Long
Columns(1).Insert
Application.ScreenUpdating = False
For i = 2 To n '←「n」は実際の行数の数値に！
Cells(i, 1) = Cells(i, 2) & "_" & Cells(i, 3) & "_" & Cells(i, 4) & "_" & Cells(i, 5)
Next i
For i = n To 2 Step -1 '←こちらの「n」も実際の数値を！
If WorksheetFunction.CountIf(Range(Cells(2, 1), Cells(i, 1)), Cells(i, 1)) > 1 Then
Range(Cells(i, 2), Cells(i, 5)).ClearContents
End If
Next i
Application.ScreenUpdating = True
Columns(1).Delete
End Sub

こんな感じではどうでしょうか？

的外れならごめんなさいね。m（_ _）m

お礼

バッチリです！！

早急に回答いただき本当にありがとうございました！