エクセルの空白をつめて表示する方法

質問

こんにちは。こちらではいつもお世話になっています。
タイトルの通り、エクセルの空白をつめて表示する方法を教えてください。
具体的には、以下の通りです。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
　　Ａ　Ｂ　Ｃ　　　　→　　　　　　　Ａ　Ｂ　Ｃ　　　　
１　　　あ　　　　　　　　　　　　１　あ　あ　　
２　　　　　　　　　　　　　　　　 ２　い　　　　　　　　　　
３　　　い　　　　　　　　　　　　３　う　い　　　　　
４　　　う　　　　　　　　　　　　 ４　え　う
５　　　　　　　　　　　　　　　　 ５
６　　　　　　　　　　　　　　　　 ６
７　　　え　　　　　　　　　　　　７　　　え
・　　　　　　　　　　　　　　　　・
・　　　　　　　　　　　　　　　　・
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
上記の様に、Ｂの列に入っている値をＡの列に空白をつめて表示したいのです。
Ｂの行数は続き、１００弱ぐらいでしょうか。
Ｂの列に値が入れば、自動にＡの列が上記のようになればベストです。（関数？）

説明が不十分であれば、申し訳ございません。
宜しくお願いします。

回答No.5

noname#204879 · ベストアンサー

A1: {=INDEX(B$1:B$100,SMALL(IF(B$1:B$100<>"",ROW(B$1:B$100),""),ROW(B1)))}
　　(配列数式)

お礼

お礼が遅くなり申し訳ございません。とても参考になり、助かりました。有難うございました。

回答No.4

kmmk16

VBAを使用する方法です。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, n As Integer
n = 1
If Intersect(Columns("B"), Target) Is Nothing Then Exit Sub
For i = 1 To 100
If Cells(i, 2) <> "" Then
Cells(n, 1) = Cells(i, 2)
n = n + 1
End If
Next
End Sub

を貼り付けてください

お礼

お礼が遅くなり申し訳ございません。有難うございました。

回答No.3

web2525

C列に作業セルを使いますが
A列に
=IF(COUNTA($B:$B)<ROW(),"",OFFSET($B$1,SMALL($C:$C,ROW())-1,0))
C列に
=IF(B1="","",ROW())

お礼

お礼が遅くなり申し訳ございません。有難うございました。

回答No.2

某HN クロメート(Chromate)（@CoalTar）

非推奨ですが頭が回らないので配列数式でA1セルに
=IF(COUNTA(B:B)<ROW(),"",
INDEX(B:B,SMALL(IF($B$1:$B$6<>"",ROW($B$1:$B$6)),ROW())))
[Ctrl]+[Shift] ＋[Enter] で確定、({}で囲まれる)
下へオートフィル

お礼

お礼が遅くなり申し訳ございません。有難うございました。

回答No.1

kztk

どういう要望をされているのかが、例示された内容ではわからないのですが・・・
>Ｂの列に入っている値をＡの列に

・例えば右側のA1にある「あ」はB1の「あ」を表示しているということですか？
　A2の「い」はいったいどこから？？？
　A3の「う」〃
　　：
・どこに空白があり、どう詰めたいのかがわかりません