[[20210912203123]]　『列方向への繰り返しの貼り付け』（よこ）　ページの最後に飛ぶ

『列方向への繰り返しの貼り付け』（よこ）

VBA初心者です．

同じ形式で記録されたデータが複数のシートに保存されており，
その各シートを一つのシートをまとめたいです．

ネットで色々と探してはみたのですが，
縦にデータを張り付けていくやり方ばかりで，
A列，B列，C列・・・と横に同じ形式のデータを張り付けていくやり方が見つかりませんでした．

例えば，

7/1
速度：A　
時間：B
距離：C

7/2
速度：D　
時間：F
距離：G

というやり方はあるのですが，

A列　　　B列　・・・・
7/1　　　7/2
速度：A　速度：G
時間：B　時間：F
距離：C　距離：G

というやり方は自分では見つけることができませんでした．

お手数をおかけしてしまい申し訳ありませんが，
以上のような横方向に各シートのデータを繰り返し張り付けていくVBAのコードを教えていただけますでしょうか．
何卒よろしくお願い申し上げます．

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

 Sub macro1()
    Dim ws As Worksheet
    Dim iCol As Long
    Dim iName As String
    iName = "集計"  '←集計するシート名に変更
    For Each ws In Worksheets
        If ws.Name = iName Then GoTo Continue
        iCol = iCol + 1
        With ws.Cells(1, 1)
            Range(.Cells, .End(xlDown)).Copy Worksheets(iName).Cells(1, iCol)
        End With
 Continue:
    Next ws
 End Sub
（qwerty） 2021/09/12(日) 21:06

早速のご返信およびコードのご教授，ありがとうございます．
大変助かりました．

一点だけ追加させていただきたいのですが，
各シートのA12だけ空白のセルになってしまっているため，
今，マクロを実行すると，
本来は以下のようになってほしいところ，

（理想）
A列　　　B列　・・・・
7/1　　　7/2

速度：A　速度：G
時間：B　時間：F
距離：C　距離：G

（現在）
A列　　　B列　・・・・
7/1　　　7/2

このようになってしまっております．．．
度々申し訳ございませんが，以下の点を修正いただくことは可能でしょうか．
お手数をおかけしてしまい申し訳ありませんが，何卒よろしくお願い申し上げます

（よこ） 2021/09/12(日) 21:26

 With ws
     Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)).Copy _
     Worksheets(iName).Cells(1, iCol)
 End With
（qwerty） 2021/09/12(日) 21:46

ありがとうございます！
大変助かりました！！！( ;∀;)
（よこ） 2021/09/12(日) 21:56

 どういたしまして。
 変更点を比較して、理解を深められることを望みます。
（qwerty） 2021/09/12(日) 22:08

コメント返信：

[ 一覧(最新更新順) ]

[[20210912203123]] 『列方向への繰り返しの貼り付け』（よこ） ページの最後に飛ぶ

[[20210912203123]]　『列方向への繰り返しの貼り付け』（よこ）　ページの最後に飛ぶ