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

質問

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

日付　　機械
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 · ベストアンサー

データが
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

お礼

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