解決済みのQ＆A

VBAで横に入力されたセルを縦にする場合について質問です。

お世話になります。
Excel 2010のVBAについて教えてください。
VBAを使わなくても、行列の入れ替えで縦横の入れ替えができます。
VBAを使って一行を縦に変換も出来ます。

画像のようにB列とD列はデータが入っていないので(空白なので)無視して縦に並べたいです。
この場合の構文はどうなりますでしょうか？

複数の行を縦にする場合は、一行ずつ縦にしてからくっつけていくしかないのでしょうか？

ご教示お願い致します。

投稿画像

違反報告

質問日時：

2013/9/3 17:32:22
解決日時：

2013/9/6 21:25:48
閲覧数：

84

回答数：

2

ベストアンサーに選ばれた回答

mskz1954さん

一例です。
仮にデータのSheet1からSheet2に並び替えています。

Sub sample()
On Error Resume Next
Sheet1.Range("A1").CurrentRegion.Copy
Sheet2.Range("A1").PasteSpecial Paste:=xlPasteAll, Transpose:=True
Application.CutCopyMode = False
Sheet2.Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

違反報告

回答日時：2013/9/3 18:06:13

質問した人からのコメント

ありがとうございました☆
コメント日時：2013/9/6 21:25:48

ベストアンサー以外の回答

（1件中1〜1件）

ishikura_jcpさん

１つづつ縦にしてみました
Sub test4()
ii = 4
For i = 1 To 5
If Cells(2, i) <> "" Then
ii = ii + 1
For j = 1 To 2
Cells(ii, j) = Cells(j, i)
Next
End If
Next
End Sub