複数の縦方向に並んだ表を並べ変える方法（２）

質問

同じような質問をさせていただきましたが、データ形式が少し違うため困っております。

添付画面のように、AB列に含まれる縦方向のデータを
赤字セルのように抽出できないでしょうか。

*前回の質問では、カッコ内が（Q1）、(Q2）のようにQが含まれるものでしたが
　今回は任意の記号（文字数も異なる）になります。

やりたい操作は、
・B列から(***)を含むセルだけを、C1セルから右に自動的に抽出
　（例）B7セル→C1セルに

・B8からB10を、A8からA10の１～３の数字に沿って、C2からC4に配列

・B12セルから下についても繰り返す。

このような操作は可能でしょうか。膨大なデータのため、手作業でやることは諦めています。
どなたか是非お知恵をお貸しください。<(_ _)>

当方、Windows7、エクセル2010です。
よろしくお願いいたします。

回答No.3

MackyNo1 · ベストアンサー

B列の空白セルを基準に関数で分割する方法を提示します。
例示のレイアウトならC1セルに以下の式を入力して右方向および下方向にオートフィルすればご希望のリストを作成できます。

=OFFSET($B$1,SMALL(INDEX(($B$1:$B$1000<>"")*10000+ROW($1:$1000),),COLUMN(A1))+ROW(A1)-1,0)&""

各質問の回答の種類にばらつきがある場合は（たとえば回答の種類で最大が4種類で最小が2種類の場合）、C2セルの数式を以下のように変更し、右方向および下方向にオートフィルしてください。

=IF(C1="","",OFFSET($B$1,SMALL(INDEX(($B$1:$B$1000<>"")*10000+ROW($1:$1000),),COLUMN(A2))+ROW(A2)-1,0)&"")

お礼

おかげさまで問題を解決することができました。
エクセル関数の本を引っ張りだして悪戦苦闘していましたが、この回答にはたどり着けなかったと思います。
本当にありがとうございました。

回答No.2

noname#204879

１．セル C2 に次の[条件付き書式]を設定
　　　セルの値が　　次の値に等しい　　0
　　　フォント色　　白
２．セル C2 に次式を入力して、此れを右方および下方にドラッグ＆ペースト
　　　=IF(C1<>0,OFFSET(INDIRECT(ADDRESS(MATCH(C$1,$B:$B,0),2)),ROW(A1),0),0)

【補足】理解できなければ、潔く諦めましょう。

回答No.1

watabe007

参考に

Dim rng As Range, i As Long
Set rng = Range("B1", Cells(Rows.Count, "B").End(xlUp)).SpecialCells(2)
For i = 2 To rng.Areas.Count
　　rng.Areas(i).Copy Cells(1, i + 1)
Next