[[20210908115758]]　『縦に並んだデータをコピーして、横へ貼り付けて指』（ジーマ）　ページの最後に飛ぶ

『縦に並んだデータをコピーして、横へ貼り付けて指定セル数から下段へ貼り付け』（ジーマ）

Sheet2のA2:A200(増減あり)まで氏名が入力されています。
これをコピーして、Sheet1のA2から行列入れ替えで貼り付け、
横に25個目のセルから下段へ移って貼り付けられていくような
事が出来ませんでしょうか？
お知恵をお貸し下さい。

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

詰まっている部分が分かりませんが、マクロだとしたら↓みたいな感じにすればよいのでは？

    Sub さんぷる()
        Dim i As Long
        Dim dstRNG As Range

        Set dstRNG = Worksheets("Sheet２").Range("A2")

        For i = 2 To 200 Step 25
            Worksheets("Sheet1").Cells(i, "A").Resize(25).Copy
            dstRNG.PasteSpecial Paste:=xlPasteAll, Transpose:=True
            Set dstRNG = dstRNG.Offset(1)
        Next i
    End Sub

（もこな２） 2021/09/08(水) 12:19

 数式でいいのなら･･･

 A2 =INDEX(Sheet2!$A$2:$A$201,(ROW(A1)-1)*25+COLUMN(A1))&""
 右・下コピー

 以上
（笑） 2021/09/08(水) 12:29

もこな２ありがとうございます。
早速試してみたところ、Sheet2のA2からA9が消えただけでした。
ちなみに以下のような感じにしたいのですが宜しくお願い致します。

Sheet2

下記をコピー
Aさん
Bさん
Cさん
Dさん
Eさん
Fさん
Gさん
Hさん
Iさん
Jさん
Kさん
Lさん
Mさん
Nさん

Sheet1
下記のように指定位置で下段に貼り付け

Aさん Bさん Cさん Dさん Eさん Fさん Gさん
Hさん Iさん Jさん Kさん Lさん Mさん Nさん

（ジーマ） 2021/09/08(水) 13:27

もこな２
Sheet1とSheet2が逆だったんですね、出来ました。
ありがとうございました。
（ジーマ） 2021/09/08(水) 13:31

コメント返信：

[ 一覧(最新更新順) ]

[[20210908115758]] 『縦に並んだデータをコピーして、横へ貼り付けて指』（ジーマ） ページの最後に飛ぶ

[[20210908115758]]　『縦に並んだデータをコピーして、横へ貼り付けて指』（ジーマ）　ページの最後に飛ぶ