エクセルで縦並びのデータを横1本にしたい

Question

楽天RMS等でよくあるデータの形ですが下記の様なデータを横並びにまとめたいと考えています。

150-0001　東京都渋谷区神宮前番地　山田ビル1F　山田太郎　00-0000-0000　すごい石鹸A　1個
150-0001　東京都渋谷区神宮前番地　山田ビル1F　山田太郎　00-0000-0000　ミラクルシャンプー　1個
150-0001　東京都渋谷区神宮前番地　山田ビル1F　山田太郎　00-0000-0000　ミラクルリンス　　　2個

何か良い手はありませんでしょうか。

こんなイメージです。
　↓
150-0001　東京都渋谷区神宮前番地　山田ビル1F　山田太郎　00-0000-0000　すごい石鹸A　1個
　ミラクルシャンプー　1個　ミラクルリンス　　　2個

よろしくお願い致します。

piroin654 · Accepted Answer

コードを提示してもいいのですが、以下にほぼそのままの
質問と回答があります。少し変更すれば質問の場合に
使用できます。

http://oshiete1.watch.impress.co.jp/qa3873154.html

「00-0000-0000」が識別番号ならば、これをキーとして、
サンプルにあてはめればそのまま使えます。サンプルでは
キーがA列の名前になっていますが、質問の場合は
「00-0000-0000」がある列を指定すればよろしいかと。
必要があればコードを質問に合わせてみますが。

layy · Answer

郵便番号から電話番号までは、前行と同じかどうか判定します。Ｊ列にでも、セルの数式ですべての文字をつなげます。 J1=A1&B1&C1&D1&E1 J2=A2&B2&C2&D2&E2 J1とJ2を比べると同じか違うかわかります。 IF(J1<>J2)・・・ IF(J2<>J3)・・・同じ場合、同じ中で連番をつけます。違うなら１にします。 1 2 3 1 2 1 2 3 4 ・・・みたいな感じで並んでいきます。郵便番号・・・電話番号、１の値、２の値、３の値、・・・となればいいので、商品と個数列を範囲コピーして、行列を逆にして貼り付け、これをそのかたまり毎に行います。郵便番号・・・電話番号、１、１の商品の値、・・・郵便番号・・・電話番号、２、２の商品の値、・・・郵便番号・・・電話番号、３、３の商品の値・・・が郵便番号・・・電話番号、１の商品の値、２の商品の値、３の商品の値、・・・それか１のときＫ列、２のときＬ列、３のときＭ列になるよう考えます。郵便番号・・・電話番号、１、１の商品の値、－－－－－、－－－－－、・・・郵便番号・・・電話番号、２、－－－－－、２の商品の値、－－－－－、・・・郵便番号・・・電話番号、３、－－－－－、－－－－－、３の商品の値、・・・エクセルだけの数式、コピー＆貼り付けの範囲ではこんな感じです。ＶＢＡがわかる人がいたら（今後のこれの追加修正もあるだろうし）見てもらう。項目が増えたりしても対処できないと困りますので、ある程度何やっているかはみておく。それでもわからない場合は、手間でも他のできる手段を見つける。ＡＣＣＥＳＳがあれば同じようなことできます。

layy · Answer

将来ＳＥなら、
これは、コントロールブレイクがわからないとできません。
必須です。学習してください。

Public Sub AA()
      Dim i As Long
      Dim j As Long
      Dim k As Long
      
      Dim WBA As String
      Dim WBB As String
      Dim WBC As String
      Dim WBD As String
      Dim WBE As String
      Dim WBF As String
      Dim WBG As String
      Dim BKSHOHIN As String
      
      Dim WOLD As String
      Dim WNEW As String
      
      Sheets(1).Select
      Range("A1").Select
      
      i = 1
              
      i = i + 1
        WBA = Chr(34) & Cells(i, 1) & Chr(34)
        WBB = Chr(34) & Cells(i, 2) & Chr(34)
        WBC = Chr(34) & Cells(i, 3) & Chr(34)
        WBD = Chr(34) & Cells(i, 4) & Chr(34)
        WBE = Chr(34) & Cells(i, 5) & Chr(34)
        WBF = Chr(34) & Cells(i, 6) & Chr(34)
        WBG = Chr(34) & Cells(i, 7) & Chr(34)
      WNEW = WBA & "," & WBB & "," & WBC & "," & WBD & "," & WBE
      WOLD = WNEW
      BKSHOHIN = ""
      BKSHOHIN = BKSHOHIN & "," & WBF & "," & WBG
              
      MsgBox ("処理30行までで、結果は C:\TEMP\KEKKA.CSV に出力します。")
      Open "C:\TEMP\KEKKA.CSV" For Output As #1
      
      For i = 3 To 30
        
        WBA = Chr(34) & Cells(i, 1) & Chr(34)
        WBB = Chr(34) & Cells(i, 2) & Chr(34)
        WBC = Chr(34) & Cells(i, 3) & Chr(34)
        WBD = Chr(34) & Cells(i, 4) & Chr(34)
        WBE = Chr(34) & Cells(i, 5) & Chr(34)
        WBF = Chr(34) & Cells(i, 6) & Chr(34)
        WBG = Chr(34) & Cells(i, 7) & Chr(34)
        WNEW = WBA & "," & WBB & "," & WBC & "," & WBD & "," & WBE
        If WNEW <> WOLD Then
           Print #1, WOLD & BKSHOHIN
           BKSHOHIN = ""
           WOLD = ""
        Else
        End If
                
        BKSHOHIN = BKSHOHIN & "," & WBF & "," & WBG
        
        WOLD = WNEW
      Next i
      Print #1, WOLD & BKSHOHIN
      Close #1
      
      MsgBox ("終了")

End Sub

ざっと作成しました。結果はＣＳＶに出ます。
１行ずつ下へ処理して、Ａ列からＧ列まで退避しながら
Ａ列からＥ列までが同じか判定、違えば前行分の右にＦ列値Ｇ列値を付与、
これの繰り返しです。
体裁、効率化、結果は別シートへ、等ありますが、
基本的な箇所はそのまま使えるので後はアレンジしてください。

acha51 · Answer

力技です！

列A　　　　　　　列B　　　　　　　　列C　　　　列D　　　　　列E　　　　　列F　　　　列G
　　　
行1　150-0001　東京都渋谷区神前番地　山田ビル1F　山田太郎　00-0000-0000　すごい石鹸A　1個
行2　150-0001　東京都渋谷区神前番地　山田ビル1F　山田太郎　00-0000-0000　ミラクルシャンプー　1個
行3　150-0001　東京都渋谷区神前番地　山田ビル1F　山田太郎　00-0000-0000　ミラクルリンス　2個

まとめるセルに以下の数式を入力する
　ここで""の間は必要な空白を入力です
　
＝A1&" "B1&" "C1&" "D1&" "E1&" "F1&" "G1&" "F2&" "G2&" ""F3&" "G3

固定化するにはセルを選択しコピー
セルを選択し、形式を選択し貼り付け
値を選択し　OKする

エクセルで縦並びのデータを横1本にしたい

コードを提示してもいいのですが、以下にほぼそのままの

郵便番号から電話番号までは、前行と同じかどうか判定します。

将来ＳＥなら、

力技です！

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング