ＥＸＣＥＬのＶＢＡで、重複データを隣のセルへ移動したい

度々申し訳ありません。宜しくお願いします。
下記のように日付が重複し、データは重複していない表があります。

日付　　機械
4/1　　　1
4/1　　　5
4/1　　　3
4/2　　　2
4/2　　　3

これを

日付　　機械1　機械2　機械3
4/1　　　1　　　　5　　　　3
4/2　　　2　　　　3

というようにしたい場合、どのように組んだらいいのでしょうか？
申し訳ありませんが、宜しくお願いします。

No.1 ベストアンサー 回答者： eipu 回答日時： 2003/05/19 20:52

データが

A列に日付
B列に機械
が入ってるものとして
2行目からデータが入っている場合、
下記で動くと思います。

Sub transform()
Dim x As Integer
Dim y As Integer

y = 2 '先頭のデータの行

Do Until Cells(y + 1, 1).Value = ""
y = y + 1
If Cells(y, 1).Value = Cells(y - 1, 1).Value Then
x = Cells(y - 1, 1).End(xlToRight).Column + 1
Cells(y - 1, x).Value = Cells(y, 2).Value
Cells(y, 2).EntireRow.Delete
y = y - 1
End If
Loop
End Sub

この回答へのお礼

ありがとうございました！
ちゃんと動きました！
本当にありがとうございました。

お礼日時：2003/05/20 08:38