excel VBA 表の移動について

質問

基本的な質問で申し訳ありませんが、よろしくお願いします。

excelで一定の大きさの表があります（たとえば10行×14列）
横に向かって長く連続している状態なのですが、これを縦方向に移動したいと思っています。

10×14　　　10×14　　　10×14…
（実際にはスペースは無いです）

これを

10×14
10×14
10×14

検索をしたのですが、なかなか思い通りものを見つけられませんでした。
よろしくご教授願います。

回答No.1

keithin · ベストアンサー

横に１４ずつを，縦に１０ずつ切って貼っていきます。

たとえば先頭の表がＡ１セルから１０×１４で始まっているとして
２つ目以降の表も「隙間無く」ならんでいるとして

sub macro1()
　dim i as long
　for i = 1 to cells(1, columns.count).end(xltoleft).column / 14 - 1
　　cells(1, i * 14 + 1).resize(10, 14).cut cells(i * 10 + 1, "A")
　next i
end sub

お礼

有難うございました！できました。