【異なる順番の列データの結合】Excelで列名が異なる順番や異なるものを含んだ状態で並んでいる２つのシートを、特定の順番で1つのシートにまとめたいと思います。Excel2003のほかにExcelのVBA、MSアクセス2003やOoo,R等のフリーソフトを使ってもよいですが、なるべくExcelのシートの状態から操作するにあたって、簡単な方法をお教えください。なお、実データは列数が多すぎてExcel上では行と列の入れ替えや、行名全部をLookup関数で検索するなどはできないものとします。

とりあえず回答可能になりましたので、簡単なサンプルです。

期待と異なる点があったら、コメントください。

コードの最初にあるシート名の定義を適切に変更して実行ください。

'----------------------------------------------------
Sub SheetMarge()
'----------------------------------------------------

   '- ★ 統合するシートの指定：実際のシート名にあわせる
    Dim wsA As Worksheet
    Set wsA = Worksheets("2005年")

    Dim wsB As Worksheet
    Set wsB = Worksheets("2006年")

   '---1行目のチェック
    If wsA.Range("A1").Value <> "年" _
      Or wsB.Range("B1").Value <> "月" _
      Or wsA.Range("A1").Value <> "年" _
      Or wsB.Range("B1").Value <> "月" Then
        MsgBox "シートの先頭列が日付ではありません"
        Exit Sub
    End If

   '---統合シートの作成
   '- ★ 同じシート名があるとエラーになるので、再作成する際は事前に削除する必要がある
    Dim dstWS As Worksheet
    wsA.Copy before:=Worksheets(1)
    Set dstWS = ActiveSheet
    dstWS.Name = wsA.Name & "_" & wsB.Name
    
    Dim lastColA As Long
    Dim lastColB As Long
    Dim lastRowA As Long
    Dim lastRowB As Long
    
    lastColA = wsA.Range("A1").End(xlToRight).Column
    lastColB = wsB.Range("A1").End(xlToRight).Column
    lastRowA = wsA.Range("A1").End(xlDown).Row
    lastRowB = wsB.Range("A1").End(xlDown).Row
    
    wsB.Range("A2").Resize(lastRowB - 1, 1).Copy Destination:=dstWS.Cells(lastRowA + 1, "A")
    
    Dim rngTitle As Range
    For i = 3 To lastColB
        Set rngTitle = wsA.Range("A1").Resize(1, lastColA).Find(what:=wsB.Cells(1, i).Value, lookat:=xlWhole)
        
        If rngTitle Is Nothing Then
            lastColA = lastColA + 1
            dstWS.Cells(1, lastColA).Value = wsB.Cells(1, i).Value
            wsB.Cells(2, i).Resize(lastRowB - 1, 1).Copy Destination:=dstWS.Cells(lastRowA + 1, lastColA)
        Else
            wsB.Cells(2, i).Resize(lastRowB - 1, 1).Copy Destination:=dstWS.Cells(lastRowA + 1, rngTitle.Column)
        End If
    Next
    
End Sub