高ポイント差し上げます。T1,T2テーブルがあります。T1にはitem_code,item_nameがあります。T2にはitem_code,code1,code_name,code_flgとあります。

あるカラム（フィールド）のデータを1行に表示したいというのはよく聞く要望ですが、

本来のデータベースの働きからするとあまり簡単な処理ではありません。

MySQL ではこれを行うための GROUP_CONCAT という関数を提供していますが、他の DB では

このような機能はないので、Access でやる場合も VBAを使い自分で表形式を制御する必要があります。

一応ご希望の仕様にしたつもりですが、異なる点があったらコメントください。

Option Compare Database

Sub exportExcel()
'// 出力用の EXCEL の設定
    Dim objXL As Object
    Set objXL = CreateObject("Excel.Application")
    objXL.Application.Visible = True
    
    Dim objWB As Object
    Set objWB = objXL.Workbooks.Add()
    
    Dim objWS As Object
    Set objWS = objWB.Worksheets(1)
    
    Dim DB As Database
    Set DB = CurrentDb
    
'// 集計用のクエリ
    Dim sql As String
    sql = "SELECT T1.item_code AS item_code, item_name, code_name, code1, code_flg " _
        & "FROM T2, T1 WHERE T2.item_code = T1.item_code " _
        & "ORDER BY T2.item_code, code_name"

    Dim RS As Recordset
    Set RS = DB.OpenRecordset(sql)
  
    Dim res As String
    Dim i As Integer
    
'// code_name 管理用に Dictionary を使用
    Dim objDic As Object
    Set objDic = CreateObject("Scripting.Dictionary")
    
    Dim colNum As Long
    colNum = 3
    
'// タイトル行の出力
    objWS.Cells(1, 1).Value = "item_code"
    objWS.Cells(1, 2).Value = "item_name"
    
    Dim r As Long, c As Long
    r = 2
'// 2行目のデータの設定
    objWS.Cells(r, 1).Value = RS!item_code
    objWS.Cells(r, 2).Value = RS!item_name
    
    Dim cKey As String, pKey As String
    pKey = RS!item_code & "/" & RS!item_name
    
    Do Until RS.EOF
        cKey = RS!item_code & "/" & RS!item_name
'// グルーピング処理
        If cKey <> pKey Then
            pKey = cKey
            r = r + 1
            objWS.Cells(r, 1).Value = RS!item_code
            objWS.Cells(r, 2).Value = RS!item_name
        End If

'// code_name の列の計算
        If objDic.Exists(CStr(RS!code_name)) Then
            c = objDic.Item(CStr(RS!code_name))
        Else
            objDic.Add CStr(RS!code_name), colNum
            c = colNum
            objWS.Cells(1, c).Value = RS!code_name
            colNum = colNum + 1
        End If
'// code_name のデータの出力
        objWS.Cells(r, c).Value = RS!code_flg
        RS.MoveNext
    Loop

    RS.Close
    Set objDic = Nothing
    Set RS = Nothing
End Sub