エクセルで複数の列を1列にまとめる方法

質問

エクセルの１つのシートの複数の列にデータがあって、それを１つの列にまとめる方法を教えてください。
Ａ列のデータの最後の次にＢ列のデータ、Ｃ列のデータと次々にデータをつなげたいのです。
よろしくお願いします。

回答No.5

toshi_ho · ベストアンサー

No.1です。以下でどうでしょう。シート１からシート２へコピーします。
i = 1
For 列 = 1 To 255
For 行 = 1 To Cells(65536, 列).End(xlUp).Row
Sheets("sheet2").Cells(i, 1) = Sheets("sheet1").Cells(行, 列)
i = i + 1
Next
Next

お礼

ありがとうございました
完璧です

回答No.4

BLUEPIXY

＃２＞データの入っていないセルが大量に発生します。
アクティブセルある列のアクティブセル以下の部分で空白セルを削除するマクロ
Public Sub del_empty_cell()
Dim r As Range, end_cell As Range
Set r = ActiveCell
Set end_cell = Cells(65536, r.Column).End(xlUp)
Application.ScreenUpdating = False
Range(r, end_cell).Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlUp
r.Select
Application.ScreenUpdating = True
End Sub

お礼

ありがとうございました
うまくいきました

回答No.3

toshi_ho

No.1です。
>１列に入っているデータが大量でかつ数が一定でないので↑を実行するとデータの入っていないセルが大量に発生します。
具体的なデータを示してもらえると、マクロで実行可能かもしれません。

補足

こういうデータがあるとして（実際には列も行も大量にあり、かつ１列にあるデータの数が一定でない）
　　Ａ　　　Ｂ　　Ｃ　　Ｄ　　
１| d1　　d7　　d11　　d16
２| d2　　d8　　d12　　d17
３| d3　　d9　　d13
４| d4　　d10　 d14
５| d5　　　　　 d15
６| d6

これを

　　Ａ　
　　d1
　　d2
　　d3
　　・
　　・
　　d17

こういう風に1列にデータを順番にまとめたいのです
よろしくお願いします

回答No.2

BLUEPIXY

http://okwave.jp/kotaeru.php3?qid=1810528
が参考になりますか

補足

ありがとうございました。
一応これでも十分なのですが
１列に入っているデータが大量でかつ数が一定でないので↑を実行するとデータの入っていないセルが大量に発生します。
ソートして空白行を削除して戻せば問題ないのですが。そこまで自動化できれば完璧なのですが。

回答No.1

toshi_ho

&演算子を使用して、セルのデータを結合すれば、できます。
=A1 & B1 & C1 という式を入力します。

お礼

さっそくありがとうございました
説明不足でしたが、複数の列のそれぞれに複数のデータがあり（かなり大量）しかもそれぞれの列のデータの数が一定でないものを1つの列にまとめたいのです。
上の方の方法でなんとかなりそうです。