エクセル 列データは買えずに重複行を一つにまとめる

初心者です。ぜひご教授ください。よろしくお願いいたします。

　　　　　　　　　Ａ　　　Ｂ
　　　　　　　　　6月　　7月
１三角商事　　10　　　
２四角本舗　　　5
３丸不動産　　　3
４三角商事　　　　　　　4　　

上表を以下のようにまとめるには、どのようなやり方がありますでしょうか？
（本当のデータは1000行ほどあるので手作業では困難です）

　　　　　　　　　Ａ　　　Ｂ
　　　　　　　　　6月　　7月
１三角商事　　10　　　4
２四角本舗　　　5
３丸不動産　　　3

何卒、よろしくお願いいたします。
　　　　

No.5 回答者： MackyNo1 回答日時： 2012/07/09 22:08

ご希望の集計をするには「統合」の機能を使用するのが簡単です。

添付画像のように、E1セルを選択し「データ」「統合」で統合元範囲をA1セルからデータ範囲を選択してこの範囲を「追加」して「OK」すればご希望のデータ形式にまとめることができます。

No.4 回答者： watabe007 回答日時： 2012/07/09 22:03

こんばんは

データの統合を使えば簡単に求められますよ。

参考URL：http://www.eurus.dti.ne.jp/yoneyama/Excel/tougou …

No.3 回答者： keithin 回答日時： 2012/07/09 21:56

三角商事が１行目っぽく書いてあるけど実は２行目で、１行目には６月７月が書いてあるとして（そういえばＡ列が６月になってますけどそっちもウソで、Ａ列には社名が記入してあるとして）。

手順：
シート２（空シート）を開く
ご利用のエクセルのバージョンが不明ですが、データメニュー（データタブ）の「統合」を開始
統合元範囲として元の表を追加（正しくＡ１からＣ５まで）
上端行、左端列にチェックしてＯＫ

で完成です。

No.2 回答者： tom04 回答日時： 2012/07/09 20:17

こんばんは！

VBAになってしまいますが、一例です。

前提条件として、各月の列に同じ会社のデータは複数ない！という前提です。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub test() 'この行から
Dim i, j, k, L As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
For j = 2 To Cells(1, Columns.Count).End(xlToLeft).Column + 1
For k = Cells(Rows.Count, j).End(xlUp).Row To 2 Step -1
If Cells(k, j) <> "" And WorksheetFunction.CountIf _
(Range(Cells(2, 1), Cells(k, 1)), Cells(k, 1)) > 1 Then
L = WorksheetFunction.Match(Cells(k, 1), Columns(1), False)
Cells(k, j).Cut Destination:=Cells(L, j)
End If
Next k
Next j
Next i
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If WorksheetFunction.CountA(Rows(i)) = 1 Then
Rows(i).ClearContents
End If
Next i
Application.ScreenUpdating = True
End Sub 'この行まで

※　一旦マクロを実行すると元に戻せませんので、別Sheetでマクロを試してみてください。m（_ _）m

No.1 回答者： minosennin 回答日時： 2012/07/09 19:46

一例ですが、ピホットテーブルを使えば簡単に集計できます。

詳細の手順は、↓で確認されてください。他にもっと分かり易いサイトがあるかも知れませんが・・

http://allabout.co.jp/gm/gc/297727/