[[20170815114512]]　『セルを9個ずつ整列させたい。』（さき）　ページの最後に飛ぶ

『セルを9個ずつ整列させたい。』（さき）

開いてくださり、ありがとうございます。

縦並びのセルを9個ずつ横並びにしたいのですが、
一発で出来る方法をご存じでしたらおしえてください。(>_<)

つまり
1
1
1
1
1
1
1
1
1
1
1
1
1　
1
…

と縦1列のデータを
111111111
111111111
111111111
111111111
111111111
111111111
111111111
111111111
111111111…

と、9個ずつセルを折り返して、横並びに整列させたいのです(>_<)
どなたかよろしくお願いします。(T_T)

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

 こんにちわ。

 元データがA列にあるとして、A1からデータが始まる前提で、C～K列に表示させます。

 C1 =INDEX($A:$A,(ROW(A1)-1)*9+COLUMN(A1))
 K列までと、必要数下にフィルコピー

（sy） 2017/08/15(火) 12:11

一発で出来る方法一発といえばボタン押下一回という意味だろうか。。。

一応こんなマクロで出来ますが、応用は難しいかなぁ。。。

Sub test()

    Dim rngOld As Range
    Dim rngNew As Range
    Dim c As Range
    Dim ix As Long
    Const n As Long = 9

    Set rngOld = Range(Range("A1"), Cells(Rows.Count, "A").End(xlUp))
    Set rngNew = Range("D1").Resize(rngOld.Count \ n + 1, n)

    For Each c In rngOld
        ix = ix + 1
        rngNew(ix).Value = c.Value
    Next
End Sub
（まっつわん） 2017/08/15(火) 12:33

コメント返信：