エクセルVBA ID行がもつ複数、単数の項目を別シートにID毎（重複）での単数項目で転記したいが

エクセルVBAをつかい
下記添付のようにID行がもつ複数項目（単数あり）データを
別シートにID毎（重複）での単数項目で転記したいが
具体的方法がネットで検索してもみつからず、教えていただきたく。
よろしくお願いします。

No.1 ベストアンサー 回答者： tom04 回答日時： 2017/05/06 07:59

こんにちは！

一例です。
元データはSheet1にあり、Sheet2に表示するとします。
標準モジュールにしてください。

Sub Sample1()
Dim i As Long, j As Long, myRow As Long
Dim lastRow As Long, wS As Worksheet
Set wS = Worksheets("Sheet2")
lastRow = wS.Cells(Rows.Count, "A").End(xlUp).Row
If lastRow > 1 Then
Range(wS.Cells(2, "A"), wS.Cells(lastRow, "D")).ClearContents
End If
myRow = 1
With Worksheets("Sheet1")
For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
For j = 4 To .Cells(i, Columns.Count).End(xlToLeft).Column
If .Cells(i, j) <> "" Then '//←念のため//
myRow = myRow + 1
wS.Cells(myRow, "A") = .Cells(i, "A")
wS.Cells(myRow, "B").Resize(, 2).Value = .Cells(i, "B").Resize(, 2).Value
wS.Cells(myRow, "D") = .Cells(i, j)
End If
Next j
Next i
End With
End Sub

こんな感じではどうでしょうか？m(_ _)m

この回答へのお礼

ありがとうございます。まずはお礼申し上げます。
いただいた例を改造してあてはめてみました。思ったことができました。
教えていただきましたコードをくわしく読んでみます。

お礼日時：2017/05/06 09:46