

Excelにおいて一列目に日付別に、一行目にID別に整理されたデータがあります。  
これデータベースとして使えるように整理したいのですが、Excelで使えるVBAのコードがあれば教えてください。Transposeで出来るかと思ったのですが。

オリジナルデータ

[code]

     2016   2015   2014....        
    A Suzuki Yamada Tanaka 
    B Takai  Kuroi  Nakano
    C Tako   Yano    Sano 
    
[/code]

データベース化

[code]

    A 2016 Suzuki
    A 2015 Yamada
    A 2014 Tanaka
    B 2016 Takai
    B 2015 Kuroi
    .
    .
    .
    .
    C 2014 Sano
    
[/code]

初心者ですが、コードの意味は自身で調べようと思います。


CC BY-SA 3.0
2017-10-27T02:45:44.980
39065
2019-10-17T16:01:05.100
2017-10-27T02:55:53.953
5044
25935
question
database excel vba
VBA エクセルのデータベース化


ざくっとですが、以下のような感じです。  
エクセルに二つシートを作成して、1枚目にデータを入力してください。  
2枚目に結果が出力されます。

[code]

    Sub convert()
    Dim inputWS As Worksheet
    Dim outputWS As Worksheet
    
    Dim year As String
    Dim id As String
    Dim name As String
    
    Dim num As Integer
    
    Set inputWS = Sheets(1)
    Set outputWS = Sheets(2)
    
    num = 1
    
    For Row = 2 To 4
        For col = 2 To 4
    
            year = inputWS.Cells(1, col).Value
            id = inputWS.Cells(Row, 1).Value
            name = inputWS.Cells(Row, col).Value
    
            outputWS.Cells(num, 1).Value = id
            outputWS.Cells(num, 2).Value = year
            outputWS.Cells(num, 3).Value = name
    
            num = num + 1
        Next col
    Next Row
    
    End Sub
    
[/code]


CC BY-SA 3.0
2017-10-27T12:13:51.367
39079
2017-10-27T12:13:51.367
17014
39065
answer