excelのデータの移動？集約？をしたいです

質問

よろしくお願いします
EXCEL2000を使用しています。OSはXPです。

データがランダムにA～O列　1～200行まであります
この量は、その時その時変わるのですが
だいだい、その範囲にあります
そのランダムに入っているデータを空白のセルを除いて
A列に並べたいのです
順番は1行目から横にあるデータを順番に下に並べ
次は2行目のデータで、その次は3行目。。。としたいです

例
A1 B1 C1 D1 E1
A2 C2 E2
A3 B3 D3
というデータを
A1
B1
C1
D1
E1
A2
C2
E2
A3
B3
D3
というようにしたいのですが
よろしくお願いします

回答No.1

imogasi · ベストアンサー

私は常々このコーナーで言っているが、セル（シートの表）の組み換えは関数では苦手です。
１列に並んだとして、あるセルにどの元のセルから持ってくるか、空白セルがある・列数が１定してないので、不定（決めにくく）で、式を作りにくい。
ーー
VBAでやれば、ロジックは素直なものになる。
各行のデータについて、空白セルをスキップしてそれ以外を１行ずつセットするセルを下にずらして行けばよい。
例データ　Sheet1　　A1:G３
1 2 - 3 4 - 5
- 6 7 - 8
9 10 - - 11 - 12
ーは空白セルを示す。
ーー
コード
Sub test01()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
k = 1
d = sh1.Range("A65536").End(xlUp).Row
MsgBox d
For i = 1 To d
r = sh1.Cells(i, 256).End(xlToLeft).Column
For j = 1 To r
If Cells(i, j) = "" Then
Else
sh2.Cells(k, "A") = Cells(i, j)
k = k + 1
End If
Next j
Next i
End Sub
ーー
結果　Sheet2　のA列
1
2
3
4
5
6
7
8
9
10
11
12
しかし上記VBAは簡単なようでも、相当経験が詰まっているので、理解は難しいかも。

お礼

早々とありがとうございます
希望通りで嬉しいです
本当に、助かりました
ありがとうございます