エクセルの値を整理したい

質問

セルのデータが下のような、空らんがある表がある場合。

　　　　Ａ　　　　　Ｂ　　　　　Ｃ
１　　りんご　　　　　　　　うりきれ
２　　バナナ　　１００
３　　　　　　　　　　　　　　入荷
４
５　　　　　　　　２００

それを、下のように、一列に並べることは可能でしょうか？並べる順番は問いません。

　　　　Ａ
１　　りんご
２　　うりきれ
３　　バナナ
４　　１００
５　　入荷
６　　２００

解りにくい質問で申し訳ありませんが、ご教授お願いいたします。

回答No.1

mt2008 · ベストアンサー

マクロでやるならこんな感じでしょうか。
Sheet1の内容をSheet2のA列に並び替えています。

Sub Sample()
　　Sheets("Sheet2").Columns("A:A").ClearContents
　　nRow = 1
　　For Each ur In Worksheets("Sheet1").UsedRange
　　　　If ur <> "" Then
　　　　　　Sheets("Sheet2").Cells(nRow, 1) = ur.Value
　　　　　　nRow = nRow + 1
　　　　End If
　　Next ur
End Sub

回答No.4

MackyNo1

空白セルを飛ばして、1列にデータを並べたいなら、機能が豊富なWordの検索置換を併用することをお勧めします。

エクセルのデータをコピーし、ワードに貼り付けて、貼り付け後に表示される貼り付けオプションンのマーカーをクリックして「テキストのみ」を選択します。
次にCtrl+Hで置換ダイアログを出して、「オプション」ボタンをクリックして「ワイルドカードを使用する」のチェックを入れ、検索する文字列に「^9{1,}」置換後の文字列に「^13」と入力し「すべて置換」して複数のタブを改行に変更します。
もう一度検索する文字列の欄だけに「^13^13」と入力して「すべて置換」し2つの改行を1つにします。

このデータをコピーしてエクセルに貼り付ければご希望の1列のデータにすることができます。

回答No.3

MarcoRossiItaly

空白の行がない状態で、縦にデータが並ぶだけでよいのですか？だとすれば、空白セルのみ削除するという方法ではいかがですか？

(1)
B2:B5の範囲を選択して、ドラッグ・アンド・ドロップなどによりこれをA3:A6の位置に移動する。同様に、C1:C3をA7:A9に移動する。

(2)
A列全体を選択し、ジャンプのダイアログ（Ctrl+G）を起動する。

(3)
「セル選択」ボタンをクリックして「空白セル」を指定し、「OK」ボタンを押す。

(4)
A列の空白セルのみ選択された状態になっているので、それらのセルあるいは行全体を削除（Ctrl+ -（マイナス）を押すなどして「上方向にシフト」または「行全体」を指定し「OK」）する。

＞解りにくい質問で申し訳ありませんが、…

どのような内容の回答の望んでいらっしゃるのか、具体的に書かれるとよいと思います。このご質問に限ったことではないですが、同じ結果を得る方法なら、たくさんあります。回答者としても皆さん、無駄な回答はしたくないのではないでしょうか。

回答No.2

keithin

Ｅ１セルに
=IF(ROW(E1)>COUNTA(A:C),"",INDIRECT(TEXT(SMALL(IF($A$1:$C$5<>"",ROW($A$1:$C$5)*100+COLUMN($A$1:$C$5)),ROW(E1)),"!R0!C00"),FALSE))
と記入し、必ずコントロールキーとシフトキーを押しながらEnterで入力してから、下向けにつるつるっとコピー貼り付けます。