Excel 1行を複数列に書き出す

質問

表Aは数社の価格比較表で、C列が社名、D列が価格 (E列以下同様) です。
シート1の表Aからシート2に表Bを作りたいです。
関数の方がいいですが、できなければマクロでもいいです。

(表A)
A B C D E F G H I J K L M N O P Q R S T U V
1 製品1 2009/3/1 A社 120円 B社 110円 C社 150円 D社 130円
2 製品2 2009/3/15 Z社 20円 M社 50円
3 製品3 2009/3/10 M社 130円
4 製品4 2009/3/5 L社 90円 F社 120円 X社 150円
5 製品5 2009/3/1 K社 190円
6 製品6 2009/3/4 S社 10円 A社 80円
7 製品7 2009/3/8

(表B)
A B C D E F G H I J K L M N O P Q R S T U V
1 製品1 2009/3/1 C社 150円
2 (BLANK) (BLANK) D社 130円
3 (BLANK) (BLANK) A社 120円
4 (BLANK) (BLANK) B社 110円 ○
--------------------------------
5 製品2 2009/3/15 M社 50円
6 (BLANK) (BLANK) Z社 20円 ○
--------------------------------
7 製品3 2009/3/10 M社 130円 ○
--------------------------------
8 製品4 2009/3/5 X社 150円
9 (BLANK) (BLANK) F社 120円
10 (BLANK) (BLANK) L社 90円 ○

(説明と条件)
・表Bの(BLANK)は、空白セルになります。
・表Aの1行あたりの会社の数は決まっていませんが、とりあえず最大10社にしています。
・表Bでは、表Aにおける1行ごとの価格の高い順に並べていますが、できなければ、Aの表と同じ会社の順序で並べても構いません。
・表BのE列は、表Aにおける1行ごとの最安値に○をつけています。

よろしくお願いします。

回答No.1

web2525 · ベストアンサー

完全に希望の形にするためにはマクロでも組まないと無理だと思います。
参考までにこんな方法もと言う事で。

A1に
=INDEX(一覧表!A:A,INT((ROW()-1)/10)+1)
B1に
=VLOOKUP(INDEX(一覧表!A:A,INT((ROW()-1)/10)+1),一覧表,2,0)
C1に
=VLOOKUP(INDEX(一覧表!A:A,INT((ROW()-1)/10)+1),一覧表,1+2*RIGHT(ROW()),0)
D1に
=VLOOKUP(INDEX(一覧表!A:A,INT((ROW()-1)/10)+1),一覧表,2+2*RIGHT(ROW()),0)
C1：D1を選択して下方向9行目までフィル
C10に
=VLOOKUP(INDEX(一覧表!A:A,INT((ROW()-1)/10)+1),一覧表,21,0)
D10に
=VLOOKUP(INDEX(一覧表!A:A,INT((ROW()-1)/10)+1),一覧表,22,0)

A1:D10までを選択して下方向にフィル

オートフィルターでC列またはD列で0以外を選択

最安値の抽出ですが元表の価格の書式設定によってはややこしい計算が必要になりますので、作っていません。
オートフィルターを掛ける前の状態で自分で考えてみてください。

お礼

ありがとうございます。(^^)
関数でここまでできるのですね。すごいです。
これを参考にもう少し表の形式や方法を考えたいと思います。

回答No.3

noname#204879

前に出た「エクセル 関数 条件にあったセルを表示したい」という質問（ http://oshiete1.goo.ne.jp/qa4757078.html ）にそっくりですが、そこの[回答番号：No.5]（マクロ音痴の私の回答）のようなもので良ければアップします。しかし、前質問者のようにマクロをお好みなら、私のこのコメントは無視してください。
貴方に無益な回答はしたくありません。

お礼

ありがとうございます。

回答No.2

rukuku

はじめまして

各行の会社の数が変化しますので関数では難しいと思います。
マクロならできます。
データの並べ替えの部分のプロクラムは以下のようになります。プログラムといっても、手作業でやることをそのまま書いただけです。

条件は
・Sheet1（元データ）とSheet2（並べ替えの出力先）が存在している
・データは１行目から始まり、途中に空白行はない
・会社と価格のデータは、C列から始まり、途中に空白列はない
です。
…Sheet2のB列は後で書式を「日付」に直してください。

Sub test()
Dim R As Long
Dim C As Long
Dim Line As Long

ThisWorkbook.Activate
Sheet2.Select

Line = 1
For R = 1 To Sheet1.[A1].End(xlDown).Row
Cells(Line, "A") = Sheet1.Cells(R, "A")
Cells(Line, "B") = Sheet1.Cells(R, "B")
For C = 3 To Sheet1.Cells(R, "C").End(xlToRight).Column Step 2
Cells(Line, "C") = Sheet1.Cells(R, C)
Cells(Line, "D") = Sheet1.Cells(R, C + 1)
Line = Line + 1
Next C
Next R

End Sub

お礼

ありがとうございます。(^^)
こんな短いマクロでできるのですね。
これを参考にもう少し表の形式や方法を考えたいと思います。