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

解決済

質問者：kkaazzuu
質問日時：2006/04/10 21:21
回答数：5件

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (5件)

No.5ベストアンサー

回答者： toshi_ho
回答日時：2006/04/11 19:45

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

- 5
- 件

通報する

この回答へのお礼

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

通報する

お礼日時：2006/04/13 18:10

No.4

回答者： BLUEPIXY
回答日時：2006/04/11 18:46

＃２＞データの入っていないセルが大量に発生します。

アクティブセルある列のアクティブセル以下の部分で空白セルを削除するマクロ
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

- 0
- 件

通報する

この回答へのお礼

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

通報する

お礼日時：2006/04/13 12:31

No.3

回答者： toshi_ho
回答日時：2006/04/11 17:51

No.1です。

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

この回答への補足

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

これを

　　Ａ　
　　d1
　　d2
　　d3
　　・
　　・
　　d17

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