[[20190801135313]]　『複数列のデータを１行にするには』（ヤドン）　ページの最後に飛ぶ

『複数列のデータを１行にするには』（ヤドン）

検索してみたのですが、同様の質問がないため書き込みをさせていただきます。

　A
1 東京
2 A12345
3 091234
5 07A123
6 あいうえお
：
：

６列でひとつのデータがずらっと１列になっています。
これを、１行にしたいのですが

　A　　B　　　C　　　D　　　E
1 東京 A12345 091234 07A123 あいうえお
2

といった風にしたいです。
自分で考えたり、いろいろ調べたりしたのですが、ピンとくるものがなかったので
ここで知恵をお借りしたいです。
よろしくお願いいたします。

＜使用 Excel：Office365、使用 OS：Windows10 ＞

6行で1つのデータですよね？ 2か月くらい前に同様の質問があり、5列にするコードを書いたので、うまく探せば見つかったかもです。

 Sub test()
    Const XMAX = 6
    Dim vw() As Variant
    Dim i As Long
    Dim iy As Long

    With Range("A1").CurrentRegion
        iy = (.Count - 1) \ XMAX
        ReDim vw(iy, XMAX - 1)
        For i = 1 To .Count
            vw((i - 1) \ XMAX, (i - 1) Mod XMAX) = .Item(i).Value
        Next i
        .ClearContents
    End With

    Range("A1").Resize(iy + 1, XMAX).Value = vw
 End Sub
（???） 2019/08/01(木) 14:24

さっそく試したところ、望んでいたデータの形になりました。
とても助かりました…

質問の検索の仕方がよくなかったのでしょうか。
次回利用の際は、もう少しうまく検索してみます。

回答ありがとうございました！
（ヤドン） 2019/08/01(木) 14:33

コピーまたはTRANSPOSE関数でできます。

（） 2019/08/01(木) 20:01

コメント返信：

[ 一覧(最新更新順) ]

[[20190801135313]] 『複数列のデータを１行にするには』（ヤドン） ページの最後に飛ぶ

[[20190801135313]]　『複数列のデータを１行にするには』（ヤドン）　ページの最後に飛ぶ