エクセルで列を行に並び替えたい

質問

EXEL2003を使用しております。
A列にURLのリスト一覧があります。
URL1
URL2
URL3
URL4
URL5
URL6
URL7…

これを
URL1　URL2　URL3
URL4　URL5　URL6
URL7…
と三列に並べ替えるにはどうすればよいでしょうか？

よろしくお願いします。

回答No.3

pkh4989 · ベストアンサー

VBAなら
Sub 列を行に並び替え()
Dim MaxRow As Integer
Dim wVal As Variant
Dim wR As Integer
Dim wC As Integer
'
MaxRow = ActiveSheet.Range("A1").End(xlDown).Row
wVal = ActiveSheet.Range("A1:A" & MaxRow)
wR = 1: wCol = 0
For wIx = 1 To UBound(wVal)
wC = wC + 1
If wC > 3 Then
wR = wR + 1
wC = 1
End If
ActiveSheet.Cells(wR, wC + 3) = wVal(wIx, 1)
Next
End Sub

(1) Alt+F11 (ツール -> マクロ -> Visual Basic Editor)
(2) 挿入 -> 標準モジュール -> 上記のモジュールを貼り付けて実行(F5を押す)する

回答No.4

noname#95859

過去ログで、全く同じ質問があります。
http://oshiete1.goo.ne.jp/qa1406757.html

参考URL：

http://oshiete1.goo.ne.jp/qa1406757.html

回答No.2

noname#204879

=OFFSET($A$1,(ROW(A1)-1)*3+COLUMN(A1)-1,0)

回答No.1

ryuujiok2205

範囲で選択しておいてコピー、形式を指定して貼り付け、行列を入れ替えるにチェック入れてOK。それを素直に3つずつカットアンドペーストというところでは。