[[20190312205831]]　『列を行×列にコピー』（りん）　ページの最後に飛ぶ

『列を行×列にコピー』（りん）

シート1のA列に漢字2文字が800行あります。
シート2にA1を基点に16行×5列ずつ下へコピーしたいです。

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

＞800行

１）80行の間違いですか
２）数式での回答でしょうか。

（マナ） 2019/03/12(火) 21:09

A1:=Sheet1!A1
B1:=Sheet1!A17
C1:=Sheet1!A33
D1:=Sheet1!A49
E1:=Sheet1!A55

と入力して、16行目までコピー

ではだめですか。
実際に試したら、2分ほどでできました。

（マナ） 2019/03/12(火) 21:15

もしかして、16行×5列が１０ブロックでしょうか？

（マナ） 2019/03/12(火) 21:17

マクロで並べ替えるとすると

 Option Explicit

 Sub test()
    Dim k As Long
    Dim i As Long, j As Long

    i = 1
    j = 1

    For k = 1 To 800 Step 16
        Sheets("sheet1").Cells(k, 1).Resize(16).Copy Sheets("sheet2").Cells(i, j)
        j = j + 1
        If j > 5 Then
            j = 1
            i = i + 16
        End If
    Next

 End Sub

（マナ） 2019/03/12(火) 21:32

＞１）80行の間違いですか
今のところ800行です。これから増えていきます。

＞２）数式での回答でしょうか。
提示してくださった式を使用していました。が
手間がかかり大変だったのでやめました。
冒頭で述べておけばと反省しています。

＞もしかして、16行×5列が１０ブロックでしょうか？
ブロック的な意味合はありません。

＞マクロで並べ替えるとすると
希望通りの結果がえられました。
有難うございました。
（りん） 2019/03/13(水) 14:42

コメント返信：

[ 一覧(最新更新順) ]

[[20190312205831]] 『列を行×列にコピー』（りん） ページの最後に飛ぶ

[[20190312205831]]　『列を行×列にコピー』（りん）　ページの最後に飛ぶ