Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

46496 / 76732

←次へ　｜　前へ→


	【35206】Re:横から縦に並び替える方法

ichinose - 06/2/23(木) 18:47 -


	引用なし

	パスワード

▼aki さん：
こんばんは。
400行ぐらいなら、

'=====================================================
Sub main()
　　Const 列数 As Long = 8
　　dim myarray as variant
　　Dim rng As Range
　　Set rng = Range("a1") '400行8列の開始セル
　　myarray = rng.Resize(400, 列数).Value
　　rng.Resize(400, 列数).Value = ""
　　For idx = 1 To 400 * 列数
　　　 Cells(idx, "a").Value = myarray((idx - 1) \ 列数 + 1, (idx - 1) Mod 列数 + 1)
　　　 Next

End Sub

これでも一瞬でしたよ！！

7 hits

▼

【35201】横から縦に並び替える方法 aki 06/2/23(木) 17:15