エクセルで行頭にある数字で行を揃えたい

質問

エクセルの使い方で質問です。

エクセルにのA列にID（01～10）が10行入っており、B列に01黒、04白、10赤、C列と4行、さらにC列には02大、05小、06中、08中、09小、と5行入っている状態です。

この表にはは空白がなく上に詰まっている状態です。

つまり1行目には

01　01黒　02大

2行目には

02　04白　05小

と入っている状態です。これらの表を先頭の数値に合わせて整理したいのですが、どのような方法がいいでしょうか？

つまり1行目には文字列の先頭が「01」のものが、2行目には文字列の先頭が02のものがならび、該当する文字列がない場合は空白にしておきたいです。

よろしくお願いします。

回答No.3

KURUMITO · ベストアンサー

作業列を作って対応します。
Ｄ１セルには次の式を入力してＥ１セルまでドラッグコピーしたのちに下方にもドラッグコピーします。

=IF(B1="","",MATCH(LEFT(B1,2),$A$1:$A$10,0))

Ｆ１セルには次の式を入力してＧ１セルまで横にドラッグコピーしたのちに下方にもドラッグコピーします。

=IF(COUNTIF(D$1:D$10,ROW(A1))=0,"",INDEX(B$1:B$10,MATCH(ROW(A1),D$1:D$10,0)))

最後にＦ１セルからＧ１０セルを範囲として選択してコピーし、その後にＢ１セルを選択してから「形式を選択して貼り付け」で「値」にチェックを付けて貼り付けます。
Ｄ列からＧ列は削除します。

お礼

ありがとうございます。この方法でやりたいことができました。説明不足にも関わらず的確な解答ありがとうございました！

回答No.5

MackyNo1

以下の式を入力して右方向に１つ下方向に10行分オートフィルコピーしてください。

=INDEX(B:B,MIN(INDEX((LEFT(B$1:B$10,2)<>TEXT(ROW(A1),"00"))*100+ROW(B$1:B$10),)))&""

お礼

ありがとうございます。他の方をベストアンサーに選んでから、MackyNo1様の解答に気づきました。お答えいただいた方法でも実現しました。列数が少なくて済む分、こちらのほうが時間が短縮できました、ありがとうございます！

回答No.4

watabe007

>B列に01黒、04白、10赤、C列と4行、さらにC列には02大、05小、06中、08中・・・
こんにちは、マクロで行うのなら

Sub Test()
　　Dim c As Range, n As Long
　　Dim v(1 To 10, 1 To 2)

　　For Each c In Range("B1:C10").SpecialCells(2)
　　　　n = Left(c.Value, 2)
　　　　v(n, c.Column - 1) = c.Value
　　Next
　　Range("B1:C10").Value = v
End Sub

お礼

マクロは使い慣れていないので、試してみたいと思います。ありがとうございました。

回答No.2

keithin

Ａ１からＡ１０に数字で１，２，３…１０まで入れておきます。
Ｂ列とＣ列にアナタの今のデータが記入されています。

Excel2007以降を使っている場合：
Ｄ１に
=IFERROR(VLOOKUP(TEXT($A1,"00")&"*",B:B,1,FALSE),"")
と記入し下にコピー，Ｅ列にもコピーします。

Excel2003以前を使っている場合：
Ｄ１は
=IF(COUNTIF(B:B,TEXT($A1,"00")&"*"),VLOOKUP(TEXT($A1,"00")&"*",B:B,1,FALSE),"")
になります。

ご相談投稿では，ご利用のソフトのバージョンまでキチンと明記することを覚えてください。

お礼

ありがとうございます。現在会社ではKingsoft Spreadsheet2010を使っており、エクセルで試せていないので、自宅にあるエクセル2007で試してみます。

回答No.1

aokii

意味不明ですが、VLOOKUP関数、あるいは並べ替え機能、を使って整理するのはいかがでしょう。

お礼

説明不足と、質問の文章がすこしおかしかったですね。ありがとうございました、他の回答者様のを参考に試してみます。